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: [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
<mailto:[EMAIL PROTECTED]>
To: [email protected]
<mailto:[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]>
[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/
<http://support.microsoft.com/kb/239114/>
terus coba lagi ya pak
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 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
