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 ----- Original Message ----- From: Yohanes Kurniawan To: [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] 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,DueDateOfContract" SQL = SQL + ",MarriageStatusID,MarriageDate,NoOfChildren,BadgeNo,PointOfHire,Occupation_RPTKA" SQL = SQL + ",JamsostekYN,JamsostekNo,HeadYN,OfficeEmailAddress,Remarks,MarriageStatusID2" 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.
