Hasilnya: Configuration option 'user options' changed from 0 to 0. Run the RECONFIGURE statement to install.
Configuration option 'allow updates' changed from 1 to 0. Run the RECONFIGURE statement to install. Sy coba update baru 15x berhasil tidak hang/lock sy coba dulu sampai 1-2hari ini (target 100-150 hit trial) Terma kasih banyak yah bos... it's saving my life kepala rasanya seperti processor yg overheat nih ________________________________ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Sofyan Efendi Sent: Tuesday, August 05, 2008 2:28 PM To: [email protected] Subject: Re: [belajar-access] Tolooong: ODBC--update on a linked table 'namatabel' failed pak, coba di query analyzer jalankan procedure transact-sql ini: sp_configure 'user options',0 go reconfigure with override go set nocount off go dan yg ini Pak: sp_configure 'allow updates',0 go reconfigure with override go Wassalaamu'alaikum Warahmatullahi Wabarakatuh, Sofyan Efendi. http://opi.110mb.com <http://opi.110mb.com> ----- Original Message ----- From: Yohanes Kurniawan <mailto:[EMAIL PROTECTED]> To: [email protected] <mailto:[email protected]> Sent: Tuesday, August 05, 2008 11:16 AM Subject: RE: [belajar-access] Tolooong: ODBC--update on a linked table 'namatabel' failed Sudah di debung dan dijalankan di query (buat baru) tetap sama errornya Bahkan di management studio-nya sql server juga diam Padahal di form tsb tidak di bound otomatis tidak ada yg lock record tsb Tetapi kok di sql server statusnya ada yg "suspended" setelah di kill kadang2 bisa Kadang2 tidak / locking lagi ________________________________ From: [email protected] <mailto:[email protected]> [mailto:[EMAIL PROTECTED] On Behalf Of Ivan Leonardo Sent: Tuesday, August 05, 2008 11:16 AM To: [email protected] Subject: Re: [belajar-access] Tolooong: ODBC--update on a linked table 'namatabel' failed Saya sendiri juga belum mahir di SQL, kalo saya liat running SQL pakai Docmd.runsql pakai DAO connection ? dan saya juga liat koq kayanya bentuk SQLnya ribet ya sql= sql + ..., sudah coba debug ? Maaf kalo tidak membantu Yohanes Kurniawan wrote: Teman-teman, ini syntax-nya: If DCount("EmployeeNo", "EmployeeEmployment", "EmployeeNo='" & Me.EmployeeNo & "'") = 0 Then SQL = "insert into EmployeeEmployment (EmployeeNo,JointDate,FinishDate,Reason,EmployeeCategoryCode" SQL = SQL + ",FileNo,EmployeeTypeCode,TermOfProbationID,TermOfContractID,DueDateOfCo ntract" SQL = SQL + ",MarriageStatusID,MarriageDate,NoOfChildren,BadgeNo,PointOfHire,Occupat ion_RPTKA" SQL = SQL + ",JamsostekYN,JamsostekNo,HeadYN,OfficeEmailAddress,Remarks,MarriageStat usID2" SQL = SQL + ",NoOfChildren2,TaxNo,OrgPositionID,OrgReportTo,SalaryGroupID,JobDescInd " SQL = SQL + ",IDP,LOA,JobProfile,JobAnalyse,JobDescIndFN,JobDescEngFN,IDPFN,LOAFN" SQL = SQL + ",JobProfileFN,JobAnalyseFN,EmpSkill,EmpAttitude,EmpRecommended) " SQL = SQL + "values('" & EmployeeNo & "', #" & JointDate & "#,#" & FinishDate & "#," SQL = SQL + "'" & Reason & "','" & EmployeeCategoryCode & "','" & FileNo & "'," SQL = SQL + "'" & EmployeeTypeCode & "','" & TermOfProbationID & "','" & TermOfContractID & "'," SQL = SQL + "#" & DueDateOfContract & "#,'" & MarriageStatusID & "',#" & MarriageDate & "#," SQL = SQL + "'" & NoOfChildren & "','" & BadgeNo & "','" & PointOfHire & "'," SQL = SQL + "'" & Occupation_RPTKA & "','" & JamsostekYN & "','" & JamsostekNo & "'," SQL = SQL + "'" & HeadYN & "','" & OfficeEmailAddress & "','" & Remarks & "'," SQL = SQL + "'" & MarriageStatusID2 & "','" & NoOfChildren2 & "','" & TaxNo & "'," SQL = SQL + "'" & OrgPositionID & "','" & OrgReportTo & "','" & SalaryGroupID & "'," SQL = SQL + "'" & JobDescInd & "','" & IDP & "','" & LOA & "','" & JobProfile & "'," SQL = SQL + "'" & JobAnalyse & "','" & JobDescIndFN & "','" & JobDescEngFN & "'," SQL = SQL + "'" & IDPFN & "','" & LOAFN & "','" & JobProfileFN & "','" & JobAnalyseFN & "'," SQL = SQL + "'" & EmpSkill & "','" & EmpAttitude & "','" & EmpRecommended & "')" Else SQL = "Update EmployeeEmployment set " SQL = SQL + "JointDate = #" & JointDate & "#" SQL = SQL + ",FinishDate = #" & FinishDate & "#" SQL = SQL + ",Reason = '" & Reason & "'" SQL = SQL + ",EmployeeCategoryCode = '" & EmployeeCategoryCode & "'" SQL = SQL + ",FileNo = '" & FileNo & "'" SQL = SQL + ",EmployeeTypeCode = '" & EmployeeTypeCode & "'" SQL = SQL + ",TermOfProbationID = '" & TermOfProbationID & "'" SQL = SQL + ",TermOfContractID = '" & TermOfContractID & "'" SQL = SQL + ",DueDateOfContract = #" & DueDateOfContract & "#" SQL = SQL + ",MarriageStatusID = '" & MarriageStatusID & "'" SQL = SQL + ",MarriageDate = #" & MarriageDate & "#" SQL = SQL + ",NoOfChildren = '" & NoOfChildren & "'" SQL = SQL + ",BadgeNo = '" & BadgeNo & "'" SQL = SQL + ",PointOfHire = '" & PointOfHire & "'" SQL = SQL + ",Occupation_RPTKA = '" & Occupation_RPTKA & "'" SQL = SQL + ",JamsostekYN = '" & JamsostekYN & "'" SQL = SQL + ",JamsostekNo = '" & JamsostekNo & "'" SQL = SQL + ",HeadYN = '" & HeadYN & "'" SQL = SQL + ",OfficeEmailAddress = '" & OfficeEmailAddress & "'" SQL = SQL + ",Remarks = '" & Remarks & "'" SQL = SQL + ",MarriageStatusID2 = '" & MarriageStatusID2 & "'" SQL = SQL + ",NoOfChildren2 = '" & NoOfChildren2 & "'" SQL = SQL + ",TaxNo = '" & TaxNo & "'" SQL = SQL + ",OrgPositionID = '" & OrgPositionID & "'" SQL = SQL + ",OrgReportTo = '" & OrgReportTo & "'" SQL = SQL + ",SalaryGroupID = '" & SalaryGroupID & "'" SQL = SQL + ",JobDescInd = '" & JobDescInd & "'" SQL = SQL + ",IDP = '" & IDP & "'" SQL = SQL + ",LOA = '" & LOA & "'" SQL = SQL + ",JobProfile = '" & JobProfile & "'" SQL = SQL + ",JobAnalyse = '" & JobAnalyse & "'" SQL = SQL + ",JobDescIndFN = '" & JobDescIndFN & "'" SQL = SQL + ",JobDescEngFN = '" & JobDescEngFN & "'" SQL = SQL + ",IDPFN = '" & IDPFN & "'" SQL = SQL + ",LOAFN = '" & LOAFN & "'" SQL = SQL + ",JobProfileFN = '" & JobProfileFN & "'" SQL = SQL + ",JobAnalyseFN = '" & JobAnalyseFN & "'" SQL = SQL + ",EmpSkill = '" & EmpSkill & "'" SQL = SQL + ",EmpAttitude = '" & EmpAttitude & "'" SQL = SQL + ",EmpRecommended = '" & Me.EmpRecommended & "' where EmployeeNo='" & Me.EmployeeNo & "'" End If SQL = Replace(Replace(SQL, "##", "Null"), "''", "Null") SQL = Replace(SQL, "'True'", "1") SQL = Replace(SQL, "'False'", "0") 'CurrentDb.Execute SQL DoCmd.RunSQL (SQL) ________________________________ From ------------------------------------------------------------------------ --- This message contains confidential information and is intended only for the individual named. If you are not the named addressee you should not disseminate, distribute or copy this e-mail. Please notify the sender immediately by e-mail if you have received this e-mail by mistake and delete this e-mail from your system. E-mail transmission cannot be guaranteed to be secure or error-free as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. The sender therefore does not accept liability for any errors or omissions in the contents of this message, which arise as a result of e-mail transmission. If verification is required please request a hard-copy version.
