(02/07/2023, 11:05)berduş yazdı: kodunuzun mantığını pek kavrayamadım
1 - T_Box ve G_Box 'a nesne bağlanıyor
2 - gr'ye G_Box 'nin değeri atanıyor
3 - son olarak da gr=0 yapılıyor arada başka işlem yok
kodun tek yaptığı
1 - gr=0
2 - T_Box = Cozgu__8
G_Box = Gram_8
yapmak
döngü iş yapmadan dönmüş oluyor
Hocam teşekkürler,
Arada bir prosedür bulunuyor, aslında
IplikKarisimOran T_Box.Value, T_Box.Tag, gr, 1
kafa karıştırmasın diye eklememiştim,
yalnız buraya hiç geçmiyor,
Set T_Box = frmForm.Controls("Cozgu__" & x)
satırında işlem yapmadan koddan çıkıyor
Acaba bu tabımlamalarda bir hata mı var? olmazsa akşam örnek dosya ekleyeceğim
Kod:
Public Sub IplikKarisimOran(kod As Variant, t As Integer, gram As Double, typ As Integer)
Dim i As Integer
For i = 1 To 12
If typ = 1 Then
arrCoz(t, i) = nullControl(DLookup(arr(i), "Iplikler", "Kod='" & kod & "'")) * gram / 100
ElseIf typ = 2 Then
arrAtk(t, i) = nullControl(DLookup(arr(i), "Iplikler", "Kod='" & kod & "'")) * gram / 100
End If
Next i
End Sub
(02/07/2023, 14:57)berduş yazdı: sayın @truhi dosya eklemezseniz, açıklamayı net yapmazsanız yada mesajlarımıza dönüş yapmazsanız cevaplanma süreci boşu boşuna uzar.
sürecin daha verimli işlemesi için lütfen bunlara dikkat edin. özellikle dosya eklemeniz çok önemli.
Hocam akşam bir dosya ekleyeceğim,