Mod olan bir arkadaşı uyarmak gibi algılamazsanız sevinirim. Sonuçta burası bir paylaşım platformu. Herkes paylaşacak ki gelişeceğiz.
Alıntı:With rstizinaktar
.MoveLast
.MoveFirst
Do While Not .EOF
'siciller sıralanıyor
Dim rstizinaktar1 As DAO.Recordset
Dim izin As Integer
izin = 0
' Kullandığı İzinler Hesaplanıyor
Set rstizinaktar1 = dbsizinaktar.OpenRecordset("SELECT * FROM Izin WHERE (Izin.Sicili)=" & !Sicili)
If rstizinaktar1.RecordCount <> 0 Then
With rstizinaktar1
.MoveLast
.MoveFirst
Do While Not .EOF
izin = izin + !KullandigiIzin
.MoveNext
Loop
.Close
End With
Hata olarak gördüklerim
1. While döngüsü içinde bir dim yapılıyor. Her döngüde tekrar tekrar tanımlanıyor. Tanımlananı da sonuna kadar giderek tarıyor. Sanki orada bir Dsum kurtarıcakmış gibi.
2. Hatta veri tabanını görsem büyük ihtimalle tek bir Sql ile çözülebilir sanırım. Ben olmasam da değerli arkadaşlar yapabilirler.
Nacizane fikrime göre bu kod inanılmaz yavaş çalışlan bir kod gibi geldi bana.
