iyi günler
Formda ileri düğmesine basınca son kayıtta ise uyarı vermesini eğer değilse devam etmesini istiyorum fakat EOF hiç TRUE olmuyor. Acaba kullandığım yöntem mi yanlış. yardımcı olursanız sevinirim.
Private Sub sonrakikayit_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM TBLDOSYALAR", CurrentProject.Connection
If rs.EOF Then
MsgBox "son kayittasiniz"
Else
DoCmd.GoToRecord , , acNext
end If
End Sub
sayın koruyucu,
bahsettiğiniz talebinize yönelik olarak;
Site Kuralları gereği lütfen içeriğinde farazi gerçek dışı uydurma bilgiler ve sonuçları görebilmek adına da birkaç kayıt barındıracak haldeki örnek uygulamanızı dahil ediniz.
son olarak;
fikir vermesi ve alternatif bir kullanım olması adına,
EK'te,
kayıtlar arasında gezinmeye yönelik örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
Teşekkür ederim cevabınız için örneği inceledeim.
Benim projemde günde 30 adet yeni kayıt girilmektedir 880 kayıt oldu istediğim geçmişte ti bir kayıda metin kutusuna kimlik nosunu girerek gidip duzenleyebilmek.
örnekteki gibi buton zaten projemde var.
sayın okumas,
sanırım,bu yazdıklarınız;
Kayıt bul veya kimlik numarasına git butonu yapmak
yukarıda bağlantısı yazılı konuya dair olsa gerek.
ilgili konunuza açıklamalarınızı yapabilirsiniz.,bu geçerliyse.teşekkürler.
bilginize...iyi çalışmalar,saygılar.
Sayın Atoz
Öncelikle cevabınız için teşekkür ederim. Vermiş olduğunuz örneği inceledim anladığım kadarıyla eğer formunuzda son veya ilk kayıtta isek ilgili butonu pasif ederek çözüm bulunmuş. Benim isteğim ise tam olarak eğer kayıt son kayıtta ise ileri tuşuna basınca EOF ile kontrol yapmak ve son kayıtta değil isek bir sonraki kayıda gitmek eğer son kayıtta isek mesaj vererek aynı kayıtta kalmasını sağlamaktadır. Fakat rs.EOR her zaman FALSE olduğu için yaptıramıyorum ve run time error 2105 hatası veriyor.
sayın koruyucu,
EK'te;
bahsettiğiniz talebinize yönelik olarak,
alternatif bir kullanım olması adına hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.