Private Sub Komut51_Click()
If Not (CurrentRecord = DCount("Kimlik", "Demirbaş listesi")) Then
DoCmd.GoToRecord , , acNext
Else
MsgBox "Son kayıttasınız", vbInformation, "SON KAYIT BİLDİRİMİ"
Exit Sub
End If
End Sub
Buda uyarı verdirerek bilgilendirebilirsiniz