Merhaba Arkadaşlar,

Konu başlığı hakkında bir çok arama yaptım fakat henüz sonuca ulaşamadım. Öncelikle konu daha önce açılmış ise özür diliyorum.

Soruma gelince...




Yukarıdaki kod ile sql sorgusunu çalıştırıyorum.




Yukarıdaki kod ile dönen adetlerin toplamını veriyor.

Fakat dönen tüm satır ve sütun değerleri bir Array'a atmak istiyorum fakat bir türlü beceremedi.

Bu konudan yardımcı olacak bir arkadaş var mıdır?

İyi çalışmalar, selamlar...

Sayin ahmet363;
"Array'a atmak istiyorum" derken bir degisken de islem yapmak istiyorum diyorsaniz, ekte ki kodu kullanabilirsiniz.

Sub ARRAY_Ata()
Dim rs As Recordset, Sw, RcS As Long
Set rs = Application.CurrentDb.OpenRecordset("SELECT * FROM TabloAdi WHERE (((KolonAdi)>0)) ORDER BY KolonAdi", dbOpenDynaset)
RcS = rs.RecordCount: Dim Aln(1 To 10000000) As String
rs.MoveFirst
Do Until rs.EOF
Sw = Sw + 1
Aln(Sw) = rs.Fields(0)
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
Sw = 0
For Sw = 1 To RcS
Debug.Print Sw, Aln(Sw)
Next Sw
End Sub

Kolay gelsin....

(08-03-2014, 05:30)dsezgin83260 demiş ki: Sayin ahmet363;
"Array'a atmak istiyorum" derken bir degisken de islem yapmak istiyorum diyorsaniz, ekte ki kodu kullanabilirsiniz.

Sub ARRAY_Ata()
Dim rs As Recordset, Sw, RcS As Long
Set rs = Application.CurrentDb.OpenRecordset("SELECT * FROM TabloAdi WHERE (((KolonAdi)>0)) ORDER BY KolonAdi", dbOpenDynaset)
RcS = rs.RecordCount: Dim Aln(1 To 10000000) As String
rs.MoveFirst
Do Until rs.EOF
Sw = Sw + 1
Aln(Sw) = rs.Fields(0)
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
Sw = 0
For Sw = 1 To RcS
Debug.Print Sw, Aln(Sw)
Next Sw
End Sub

Kolay gelsin....

Hocam çok teşekkür ederim. Ellerine sağlık işimi gördü.