Kod Kısaltma

[tamer42]

Merhaba,
Access te kullanmakta olduğu "Urunler" isimli formda aynı isimdeki tablo ile bağlantılı olarak TextBox' lar var,

TextBox İsimleri:

Cozgu__1
Cozgu__2
Cozgu__3
Cozgu__4
Cozgu__5
Cozgu__6
Cozgu__7
Cozgu__8

Bu TextBox' lar için "Urunler" adlı tablodaki aynı alan isimleri ile bağlantılı;

Aşağıdaki kodu her bir text box için for ..... next dögüsüyle nasıl oluşturabiliriz?
___________________________________________________
for i=1 to 8
"Cozgu__" & i ...............
next i
___________________________________________________
gibi...

Dim arr( 1 to 8)
Cozgu__1.Requery
    Cozgu__1.Recordset.FindFirst "Kod='" & Cozgu__1.Value & "'"
    arr(1) = Cozgu__1.Recordset.Fields("Birim Fiyat").Value

desteğiniz için şimdiden teşekkürler,
iyi akşamlar..

 

[Korhan Ayhan]

Denemedim ama aşağıdaki gibi olabilir..

Sub Test()
    Dim T_Box As Control, X As Byte
 
    Dim arr(1 To 8)
    
    For X = 1 To 8
        Set T_Box = Forms("Urunler").Controls("Cozgu__" & X)
        T_Box.Requery
        T_Box.Recordset.FindFirst "Kod='" & T_Box.Value & "'"
        arr(1) = T_Box.Recordset.Fields("Birim Fiyat").Value
    Next
End Sub