+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Döngü (/konu-dongu.html)
Döngü - fenerli6774 - 15/03/2021
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.
RE: Döngü - berduş - 15/03/2021
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.RequeryRE: Döngü - fenerli6774 - 15/03/2021
İstediğimin tam cevabı olmuş. teşekkürler. iyi çalışmalar.
RE: Döngü - berduş - 15/03/2021
Rica ederim
İyi calismalar