Dosya Başı Ve Sonu İse Mesaj Versin

15/06/2023, 18:41

yenginoglu

sayın hocalarım merhaba,

önceki ve sonraki tuş komutlarında önceki tuşa bastığımda eğer dosya başı ise mesaj versin,
sonraki tuşa bastığım da dosya sonu ise mesaj vermesini istedim ama yapamadım ve bulamadım da.

Saygılarımla,

Ahmet Yenginoğlu
15/06/2023, 21:01

berduş

ne tür bir dosyadan bahsediyorsunuz?
sürekli/süreksiz formdaki Access tablosu mu?
ilk kayıtsa
  If Me.Recordset.AbsolutePosition = 0 Then
son kayıtsa
 If Me.Recordset.AbsolutePosition = Me.Recordset.RecordCount -1 Then
yada
ilk kayıt değilse
 if Not (CurrentRecord = 1) Then
son kayıt değilse
 if Not (CurrentRecord = DCount("*", RecordSource)) Then
16/06/2023, 07:56

yenginoglu

Hocam merhaba,

haklısınız hemen örnek ekliyorum.
Formdaki önceki ve sonraki tuşlarına basıldığında dosya başı veya dosya sonu ise mesaj versin.

Saygılarımla,
19/06/2023, 12:40

yenginoglu

merhaba,

herhalde ben unutuldum.
20/06/2023, 22:23

atoykan

Merhaba Sayın @yenginoglu

@berduş hocam size gerekli yol haritasını zaten vermiş
(15/06/2023, 21:01)berduş yazdı: ne tür bir dosyadan bahsediyorsunuz?
sürekli/süreksiz formdaki Access tablosu mu?
ilk kayıtsa
  If Me.Recordset.AbsolutePosition = 0 Then
son kayıtsa
 If Me.Recordset.AbsolutePosition = Me.Recordset.RecordCount -1 Then
yada
ilk kayıt değilse
 if Not (CurrentRecord = 1) Then
son kayıt değilse
 if Not (CurrentRecord = DCount("*", RecordSource)) Then

ilk kayıt ve son kayıt için 1. ve 2. kodu kullanabilir ve then kısmından sonra msgbox ile istediğiniz mesajı verebilirsiniz.
23/06/2023, 16:23

yenginoglu

Sayın hocalarım,

çok teşekkür ederim. Sağlıkla kalın.


Saygılarımla,