+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sonraki Kayda Git Butonu Yeni Kayda Gitmsin (/konu-sonraki-kayda-git-butonu-yeni-kayda-gitmsin.html)
Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - edacan19 - 27/05/2019
Arkadaşlar merhaba,
Sonraki kayda git butonunun yeni kayda gitmsini nasıl önleyebiliriz ?
Cvp: Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - ozanakkaya - 27/05/2019
Sonraki kayda git butonunu kodunu aşağıdaki ile değiştirerek deneyiniz
DoCmd.GoToRecord , , acNext
If Me.NewRecord Then
DoCmd.RunCommand acCmdRecordsGoToLast
End IfCvp: Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - berduş - 27/05/2019
If Recordset.AbsolutePosition < Recordset.RecordCount - 1 Then DoCmd.GoToRecord , , acNextCvp: Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - edacan19 - 27/05/2019
Sorun çözüldü çok teşekkür ediyorum.
Cvp: Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - okumas - 03/06/2019
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