Movefirst  ve movelast silinirse alttaki gib yapı olunca hata olmuyor.


Do While OgRS.RecordCount > 0 bunun yerine normalde alttaki kodlar kalıp olarak biliyorum.

Do While OgRS.BOF = False And OgRS.EOF = False



'Kodlar

OgRS.MoveNext

Loop

Yada

Do Until OgRS.EOF



'Kodlar

OgRS.MoveNext

Loop

(22/01/2020, 17:32)accessman yazdı: ilginiz ve emeğiniz için çok teşekkürler sn.berduş

şu hatayı veriyor

O hata bendede vermişti veri bulaması diye sorgudan dolayı.

Ya on error goto yapın yada alttaki gibi deneyin ben deneyemedim.

On error resume next
OgRS.MoveLast
 OgRS.MoveFirst
Err.clear

Teşekkürler feraz

Rica ederim kayıt olup olmadığını böylede test edebilirsiniz.
Alttaki gibi false yerine kısaltılmışı not ilede olur.

İf  not OgRS.BOF  And  not OgRS.EOF then
       Msgbox "kayıt var"
Else
        Msgbox "kayıt yok"
End if

Sorun çözüldü mü?

sn.berduş
kod çalışıyor TblEgtm tablosuna 100 kişilik liste ekliyor sayı doğru ama günlere dağılımını tam anlayamadım
daha doğrusu kodun çalışma mantığını çözemedim galiba vardiyalarda kaydırma yapıyor mesela 
03.02.2020 de sabah çalışması gereken vardiya 4B
ama programın bulduğu isimler 4D vardiyasında