coba format date di buat "mm/dd/yyyy", karena sql hanya kenal format itu.
contoh:
"#" & JointDate & "#,"
menjadi
"#" & format(JointDate,"mm/dd/yyyy") & "#,"
jika ribet, gunakan sql pass through untuk proses insert ini melalui store
procedure.
aksan kurdin
On 8/5/08, Yohanes Kurniawan <[EMAIL PROTECTED]> 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:* [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 <[EMAIL PROTECTED]>
>
> *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 <[EMAIL PROTECTED]>
>
> *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
>
>
>
--
Aksan Kurdin
