Re: [Programmer-VB] Sql Tdk Fungsi

[vbPian]

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 & "'"

Note: pastikan tanggal dan alasan diisi.

On 16/05/07, dedi_gunawan1711 <[EMAIL PROTECTED]> wrote:

  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

--
Best Regard,
[zZzz]