Jika script sql akan dijalankan melalui vba seperti itu, maka harus diformat english seperti:

DoCmd.RunSQL "update client set verify_date=#"&  format(lddate,"mm/dd/yyyy")&  "#, 
" _
    &  "verify_by='"&  pcUserNameLogin&  "' where client_id="&  
Me.Client_Id.Value


Jika mau ikuti sintak anda:

dim lddate as string '<- kudu string, jangan date !!!!
lddate = Format(Date, "mm/dd/yyyy")
DoCmd.RunSQL "update client set verify_date=#"&  lddate&  "#, verify_by='"&  pcUserNameLogin& 
 "' where client_id="&  Me.Client_Id.Value


aksan kurdin

On 4/14/2010 9:22 PM, 4N17R4 UP4ND4 H4F45 wrote:
para pendekar access...

sintaks 1 :
            lddate = Format(Date, "dd-mmm-yyyy")
DoCmd.RunSQL "update client set verify_date=" & lddate & ", verify_by='" & pcUserNameLogin & "' where client_id=" & Me.Client_Id.Value

sintaks 2 ;
            lddate = date
DoCmd.RunSQL "update client set verify_date=" & lddate & ", verify_by='" & pcUserNameLogin & "' where client_id=" & Me.Client_Id.Value


kenapa dua2nya untuk variable lddate menghasilkan : 12:00:12 AM

bagaimana supaya  tampil  : 4/14/2010
kenapa bisa beda dengan dari textbox diform ya?


Send instant messages to your online friends http://uk.messenger.yahoo.com


Kirim email ke