Private Sub M1_AfterUpdate()
If Dlookup ("BRKD", "KONTROL", "BRKD='" & M1 & "' And g_tarih=#" & Format(Date, "yyyy-mm-dd") & "#") = True Then
MsgBox "Bugün giriş yapmış durumdasınız", vbOKOnly, "GİRİŞ KAYDI MEVCUT"
End If
Dim vSearchString As String
vSearchString = Me.M1.Text
Me.M7.Value = vSearchString
Me.L2.Requery
Me.L2.Selected(0) = True
Me.L3.Requery
Me.L3.Selected(0) = True
End Sub
M1 textboxının afterupdate olayını aşağıdaki gibi değiştirin