[Programmer-VB] Sql Tdk Fungsi

[dedi_gunawan1711]

Salam buat semua

Master VBA_2003 tolong dong revisinya code berikut biar fungsi:

Private Sub Command22_Click()
On Error Resume Next
Dim TempKode, TempAlasan_Out As String
Dim TempTgl_Out As Date
Dim Db As Database
Set Db = CurrentDb
    
    If Not IsNull(Me!NIK) Then
        TempKode = Me!NIK
        TempTgl_Out = Me.T_Out
        TempAlasan_Out = Me.Alasan_Out
        
        Db.Execute "UPDATE T_CV SET T_CV.Paklaring=True WHERE
T_CV.NIK='" & TempKode & "'"
        Db.Execute "UPDATE T_CV SET T_CV.out=True WHERE T_CV.NIK='" &
TempKode & "'"
        
        ' Steatment yang tdk fungsi
        Db.Execute "UPDATE T_CV SET T_CV.Tgl_Out = temptgl_out  WHERE
T_CV.NIK='" & TempKode & "'"
        Db.Execute "UPDATE T_CV SET T_CV.alasan_Out = &tempalasan_out
 WHERE T_CV.NIK='" & TempKode & "'"
        
        Db.Close
end if
end sub