Döngü

15/03/2021, 12:00

fenerli6774

iyi günler iyi çalışmalar.
tblOgrencibilgilerinde 7 farklı okula ait 87 aktif öğrenci öğrenci var.
frmEtutler formunda btnMevcutsay butonuna aşağıdaki kodu ekledim. yapmak istediğim. Butona basıldığında form üzerindeki boş hücrelere bu 7 farklı okulun yazılması.yazdığım kodla ilk olan okul yazılıyor. Ama ilk okul birinci hücreye yazıldıktansonra 2. hücreye geçiş ve bu 2. hücreye 2. farklı olan okulu yazdırma dönügüsünü yapamadım.yardımcı olurasnız memnun olurum. (Kodlarda srgHepsiaktif sorgusunu kullandım)
yardımlarınız için Teşekkürler.Kolay gelsin.
15/03/2021, 12:56

berduş

kodu aşağıdaki gibi düzenleyip dener misiniz?
Not: Çalışmanıza referanslardan Microsoft Activex Data Object eklememişsiniz o olmadan ADODB.Recordset çalışmaz
Dim strSQL1 As String
Dim rsSQL1 As ADODB.Recordset
Dim Varmi As Integer

strSQL1 = "SELECT [Okulu] FROM srgHepsiaktif group by [Okulu];"
Set rsSQL1 = New ADODB.Recordset

rsSQL1.Open strSQL1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
DoCmd.SetWarnings False
OkulAdi = 1
Do While Not rsSQL1.EOF

Controls("txtOkul" & OkulAdi) = rsSQL1.Fields("Okulu")
OkulAdi = OkulAdi + 1
rsSQL1.MoveNext
Loop

DoCmd.SetWarnings True
rsSQL1.Close
Set rsSQL1 = Nothing
Me.txtMevcut91.Requery
15/03/2021, 17:16

fenerli6774

İstediğimin tam cevabı olmuş. teşekkürler. iyi çalışmalar.
15/03/2021, 17:22

berduş

Rica ederim
İyi calismalar