sql sorgusu içerisinde for döngüsü?

[ali8686]

Selam arkadaşlar,

Bir örnek vererek açıklamak gerekirse; aşağıdaki sql sorgusunu userformda combobox1'de sorumlu seçmeden, bir for döngüsü içerisinde tüm sorumlular için sırasıyla yapsın, ilk sorumlu için dosyayı farklı kaydetsin ve sırasıyla tüm sorumlular için aynı olay devam etsin istiyorum. sorumluların tümü aynı tabloda sorumlu isimli sütunda var. farklı kaydet olayı basit hallederim ancak döngüyü nasıl kuracağımı bir türlü bulamıyorum.

rs.Open "SELECT ocak2011 FROM [2011verileri] WHERE sorumlu='" & ComboBox1 & "' AND harekettipi = 'A'", cn, 1, 3
Sheets("ANATABLO").Range("A1").CopyFromRecordset rs
rs.Close

yani örneğin ahmet ve mehmet diye iki sorumlu var. otomatik olarak önce ahmet için sorguyu çalıştırıp farklı kaydedecek, sonra mehmet için aynısı, ve farklı bir sorumlu kalmadığından döngüyü bitirecek. Yardımcı olabilecek var mıdır?

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[COLOR=red]for a=0 to combobox1.listcount-1[/COLOR]
rs.Open "SELECT ocak2011 FROM [2011verileri] WHERE sorumlu='" & ComboBox1[COLOR=red].list(a,0)[/COLOR] & "' AND harekettipi = 'A'", cn, 1, 3
Sheets("ANATABLO").Range("A1").CopyFromRecordset rs
rs.Close
[COLOR=red]next
[/COLOR]

 

[ali8686]

Teşekkürler Levent Bey yardımınız için.