buat master vb.. saya minta tolong revisinya syntax dibawah ini plz... outputnya: tgl_absen terakhir dapat dimasukan kedalam master karyawan dengan kriteria (nik, Bulan dan Tahun) mesti sama.
terima kasih dedi --- In [email protected], "dedi_gunawan1711" <[EMAIL PROTECTED]> wrote: > > 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 >
