AccessTr.neT - Giriş Tarihine Göre Eğitim Planlama

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