M1 textboxının afterupdate olayını aşağıdaki gibi değiştirin

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