Buda uyarı verdirerek bilgilendirebilirsiniz

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