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] 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.
