pak, kodenya sangat kompleks, tolong kode ini di inactive kan sementara :
'DoCmd.RunSQL (SQL)
lalu ganti jadi
debug.print sql
di immediate window copy hasilnya ke mari .... oya, jalankan hanya untuk yg
gagal saja ya pak ...
kalau kata saya, disederhanakan saja pak, buatlah query update dari dua sql
ini, jadi kodenya:
docmd.setwarnings false
If DCount("EmployeeNo", "EmployeeEmployment", "EmployeeNo='" & Me.EmployeeNo &
"'") = 0 Then
docmd.openquery "queryupdate1"
else
docmd.openquery "queryupdate2"
end if
docmd.setwarnings true
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com
----- Original Message -----
From: Yohanes Kurniawan
To: [email protected]
Sent: Tuesday, August 05, 2008 10:46 AM
Subject: RE: [belajar-access] Tolooong: ODBC--update on a linked table
'namatabel' failed
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: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
Sofyan Efendi
Sent: Tuesday, August 05, 2008 10:10 AM
To: [email protected]
Subject: Re: [belajar-access] Tolooong: ODBC--update on a linked table
'namatabel' failed
tolong kirim kode sql nya pak atau semua procedurenya, saya pengen lihat apa
ada yg salah ya di kodenya? saya pakai query update Pak, jarang pakai vba dan
sql update ...
----- Original Message -----
From: Yohanes Kurniawan
To: [email protected]
Sent: Tuesday, August 05, 2008 10:00 AM
Subject: RE: [belajar-access] Tolooong: ODBC--update on a linked table
'namatabel' failed
Saya sudah download dan tidak bisa diinstall muncul pesan spt ini:
Setup has detected that the service pack version of this system is newer
than the update you are applying"
Jadi SP di windows sudah yang terbaru.
Tolong masukannya lagi, ini membingungkan sy berminggu2
thx
----------------------------------------------------------------------------
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of
Sofyan Efendi
Sent: Tuesday, August 05, 2008 9:39 AM
To: [email protected]
Subject: Re: [belajar-access] Tolooong: ODBC--update on a linked table
'namatabel' failed
pak, saya pakai sql server juga, alhamdulillah update selalu jalan pak ...
pak, tolong install dulu Jet 4.0 Service Pack 8 (SP8), download di:
http://support.microsoft.com/kb/239114/
terus coba lagi ya pak
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com
----- Original Message -----
From: Yohanes Kurniawan
To: [email protected]
Sent: Tuesday, August 05, 2008 8:54 AM
Subject: [belajar-access] Tolooong: ODBC--update on a linked table
'namatabel' failed
Mohon bantuannya dong saya mengalami error : ODBC--update on a linked
table '<TABLE NAME>' failed.
Saat update record pada table yang link table ke sql 2005 dan terjadi
kadang2
Form tersebut sudah dibuat bound ke table dan unbound (savingnya pakai
syntax sql) tetapi tetap bermasalah
Ada yang pernah mengalami spt ini tolong dishare saya sudah trial
berbagai teknik & searching di internet belum
Menemukan solusinya.
Regards,
YK
