Arkadaşlar merhaba,
Sonraki kayda git butonunun yeni kayda gitmsini nasıl önleyebiliriz ?
Sonraki kayda git butonunu kodunu aşağıdaki ile değiştirerek deneyiniz
DoCmd.GoToRecord , , acNext
If Me.NewRecord Then
DoCmd.RunCommand acCmdRecordsGoToLast
End If
If Recordset.AbsolutePosition < Recordset.RecordCount - 1 Then DoCmd.GoToRecord , , acNext
Sorun çözüldü çok teşekkür ediyorum.
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