Skip to main content

AccessTr.neT


Personel Giriş Çıkış Saati Takip Programı

Personel Giriş Çıkış Saati Takip Programı

#2
(18/02/2016, 02:18)mehami yazdı: Lakin TC yazımı sonrası eşleştirme ve sistem tarihi ve saatini ilgili kişi için veritabanına yazdırma işini halledemedim(

Örnek çalışma ekte olup;öneri ve yardımlarınızı bekliyor saygılar sunuyorum..

eşleştirme olayı için Dlookup kodu ile tc kimlik numarasının personel tablosunda olup olmadığını kontrol ettirmelisin


If Nz(DLookup("Kimlik", "Personel", "[tc]='" & Me.Metin0 & "'"), 0) <> 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ana ( 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 kod sifrem1 isimli formdaki Komut2 isimli komut butonunun tıklandığında olayına yazılacak kod.

Çıkış için benzeri kod ekleyeceksin, ancak insert into yerine update sorgusu olacak.

Ayrıca, birincil anahtar olan veya otomatik sayı olan iki alan ilişkilendirilmez.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Personel Giriş Çıkış Saati Takip Programı - Yazar: ozanakkaya - 18/02/2016, 10:30
Task