Sorgudan çekilen alanların döngü ile balirlenmesi

[erkankamilonas]

Private Sub ComboBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call Baglan("\\sql\MALİYET K SYSTEM\VERİ.mdb", "SELECT [MAMÜL KODU]," & _
"[MAMÜL TANIMI], [YMAMÜL TANIMI], [FİRMA KODUGELİR],[SADET]," & _
"[SİPARİS LTL], [SİPARİS LEURO], [SİPARİS LDOLAR], " & _
"[TESLIM TARIHI], [ÜRETİM TARİHİ], [KKONTROL TARİHİ], [ÜRÜN NO]" & _
"FROM SİPARİS " & _
"WHERE [FATURA ACIKLAMASI]='PLAN' AND [MAMÜL KODU] = '" & ComboBox5 & "' ORDER BY [ÜRETİM TARİHİ] DESC ;")

TextBox26 = Rec![MAMÜL TANIMI]

For int1 = 0 To Rec.Fields.Count - 1
Controls("Textbox" & int1 + 14).Value = Rec.Fields(int1).Name
On Error Resume Next
Controls("Textbox" & int1 + 26) = Rec! & Controls("Textbox" & int1 + 26)
Next int1

Kodlarımda altı çizili olan bölümde şunu yapmak istedim ancak olmadı:
Alan adları Döngü ile textboxlara alındılar. Sonra bu alan adlarını içeren verilerin 26 ncı ve sonraki Textboxlara alınması işlemini yapmaya çalıştım.
10-15 sütunun alınması için gereken 10-15 satırlık kodları döngü ile kısaltmaya çalıştım ancak olmadı, yapılabilir mi?

 

[Haluk]

Denemedim ama, şunun gibi bir şey olur mu acaba ....?

Controls("Textbox" & int1 + 26) = Rec.fields(int1 + 26)

 

[erkankamilonas]

Teşekkürler

 

[Haluk]

Ekli örnek dosyaya da göz atabilirsiniz....


.