Döngü

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.

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

İstediğimin tam cevabı olmuş. teşekkürler. iyi çalışmalar.

Rica ederim
İyi calismalar