AccessTr.neT
Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - Baskı Önizleme

+- 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


Visual Basic Code
DoCmd.GoToRecord , , acNext

If Me.NewRecord Then
  DoCmd.RunCommand acCmdRecordsGoToLast
End If




Cvp: Sonraki Kayda Git Butonu Yeni Kayda Gitmsin - berduş - 27/05/2019

Visual Basic Code
If Recordset.AbsolutePosition < Recordset.RecordCount - 1 Then  DoCmd.GoToRecord , , acNext




Cvp: 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

Visual Basic Code
1
2
3
4
5
6
7
8
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