Skip to main content

AccessTr.neT


Döngü

Döngü

Çözüldü #1
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.
.rar Denemeetutler.rar (Dosya Boyutu: 212,35 KB | İndirme Sayısı: 6)
Son Düzenleme: 15/03/2021, 12:01, Düzenleyen: fenerli6774. (Sebep: Düzeltme)
Cevapla
#2
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
Cevapla
#3
İstediğimin tam cevabı olmuş. teşekkürler. iyi çalışmalar.
Son Düzenleme: 15/03/2021, 17:16, Düzenleyen: fenerli6774. (Sebep: Düzeltme)
Cevapla
#4
Rica ederim
İyi calismalar
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task