Thank's bro...
Aku mo minta nasehat lagi neh gimana caranya buat sql dibawah ini
berfungsi (VBA2003)
mohon revisinya...
Private Sub Form_AfterInsert()
On Error Resume Next
Dim TempKode, TempTgl_Akhir, Temp_Bln, Temp_Thn As String
Dim Db As Database
If Not IsNull(Me!NIK) Then
Set Db = CurrentDb
TempKode = Me!NIK
Temp_Bln = Me.G_Bulan
Temp_Thn = Me.G_Tahun
TempTgl_Akhir = Me.Tgl_Absen
'sql ini maunya memasukan tanggal terakhir absen kedalam
master gaji karyawan dengan catatan NIK,Bulan dan Tahun harus sama
dengan kriteria
Db.Execute "UPDATE T_gajian SET T_gajian.Tgl_Gaji_Akhir = #" &
TempTgl_Akhir & "# WHERE (T_gajian.NIK='" & TempKode & "'") and
(t_gajian.g_bulan='" &temp_Bulan"' & "'")and (T_gajian.G_tahun='"
&temp_thn "'")
Db.Close
SimpanData ("Simpan Data")
MsgBox ("Data telah disimpan"), vbOKOnly + vbInformation,
"Simpan Data"
'Call Kunci2
End If
End Sub
