yeni bir form aç üzerine bir adet metin kutusu iki adet düğme koy
metinkutusunun adı no
düğmelerin adı ise giris çıkıs
kiişi işe geldiği zaman no sunu metin kutusuna girecek giris düğmesine tıkladığızaman bu tarihe ait bir giriş yoksa yeni kayıt olarak eklecek varsa daha önce giriş yapmışsınız diyecek çıkış düğmesine tıkladığı zaman ise bu günü bulacak ve çıkış saaatini yazacak yalnız tablolarında türkçe karakterler kullanma ve arada boşluk alan isimlerinde boşluk bırakma

giriş için
Option Compare Database
Public rstkayit As ADODB.Recordset
Public intCount As Integer
Dim strSQL As String

Private Sub giris_Click()
'güncelleme için kod
strSQL = "SELECT * FROM giriscikis "
strSQL = strSQL & "giriscikis.no=" & Me.no & " AND "
strSQL = strSQL & "giriscikis.isbasi=" & Date
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
If rskayit.RecordCount > 0 Then
MsgBox "Daha önce bu kişiye ait giriş kaydı yapılmış"
Exit Sub
Else
.AddNew
.Fields("no") = Me.no
.Fields("isbasi") = Date
.Update
End If
End With
End Sub

çıkış için ise

Private Sub cikis_Click()
'güncelleme için kod
strSQL = "SELECT * FROM giriscikis "
strSQL = strSQL & "giriscikis.no=" & Me.no & " AND "
strSQL = strSQL & "giriscikis.iscikis=" & Date
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
If rskayit.RecordCount > 0 Then

.Update
.Fields("no") = Me.no
.Fields("iscikis") = Date
.Update
Else
MsgBox "Daha önce bu kişiye ait giriş kaydı yoktur"
Exit Sub

End If
End With
End Sub