(27/06/2023, 12:40)berduş yazdı: çalışmanızı eklememişsiniz; recordsette kullandığınız sorgu kodu yok, döngüye sokulmasını istediğiniz alan adları da yok.
bu durumda sadece bazı ön kabuller yaparak alan adlarınızın Birim Fiyat1,Birim Fiyat2,Birim Fiyat3........Birim Fiyat8 olduğunu varsayarak bir çözüm önerebiliriz
for x =1 to 8
arr(x) = Cozgu__1.Recordset.Fields("Birim Fiyat" & x).Value
next x
Merhaba,
Aşağıdaki şekilde oluşturduğum kodda;
Set T_Box = frmForm.Controls("Cozgu__" & x)
satırında işlem yapmadan koddan çıkıyor, bir alt satıra geçmiyor.
Nerede eksilik olabilir?
desteğiniz için şimdiden teşekkürler, iyi bayramlar.
Burada;
T_Box: Combobox,
G_Box: TextBox
Kod:
Sub IplikHesap()
Dim frmForm As Form
Dim T_Box As control
Dim G_Box As control
Dim gr As Double, x As Integer
Set frmForm = Forms("Urunler")
For x = 1 To 8
Set T_Box = frmForm.Controls("Cozgu__" & x)
Set G_Box = frmForm.Controls("Gram_" & x)
gr = nullControl(G_Box.Value)
gr = 0
Next