Giriş Tarihine Göre Eğitim Planlama

1 2 3 4 5 6 7 8 9 10 11
22/01/2020, 20:55

feraz

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, 21:17

feraz

(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
22/01/2020, 21:40

accessman

Teşekkürler feraz
22/01/2020, 21:58

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
23/01/2020, 08:40

berduş

Sorun çözüldü mü?
23/01/2020, 11:01

accessman

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
1 2 3 4 5 6 7 8 9 10 11