If Nz(DLookup("Kimlik", "Personel", "[tc]='" & Me.Metin0 & "'"), 0) <> 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE ana SET ( tc, giris_tarih, gir_saat ) VALUES ('" & [Metin0] & "','" & Date & "', '" & Time() & "')"
DoCmd.SetWarnings True
DoCmd.Close acForm, "sifrem1"
Else
MsgBox ("Bu isimde personel yok.")
End If
End Sub| Bu Konudaki Yorumlar |
|
Personel Giriş Çıkış Saati Takip Programı - Yazar: mehami - 18/02/2016, 02:18
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: ozanakkaya - 18/02/2016, 10:30
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: atoz112 - 18/02/2016, 14:51
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: mehami - 19/02/2016, 00:06
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: ozanakkaya - 19/02/2016, 00:31
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: mehami - 20/02/2016, 23:36
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: mehami - 20/02/2016, 23:37
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: atoz112 - 20/02/2016, 23:49
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: mehami - 21/02/2016, 00:24
|
