Recordset Kayıt kümesi hk. destek

[tamer42]

Arkadaşlar Merhaba,

Doğru çalıştığını düşündüğüm fakat tam da emin olmadığım bir konuda sizlerin destek ve önerilerinize ihtiyacımızım bulunmakta;

Aşağıdaki Do While Not rsUrunler.EOF ........... Loop döngüsü içinde Recordset içeriklerini FiyatAL18 prosedürü içinde düzenliyorum.

rsUrunler ' kayıt kümesini >> FiyatAL18 RS prosedürü içine aktarırken aynı sıradaki kayıtı aktarır değil mi?

acaba burada atladığım bir husus olabilir mi?

teşekkürker, iyi Çalışmalar.

-----------------------------------------------------------  

Dim rsIplikler As Recordset

Do While Not rsUrunler.EOF
  
  BoyaFirma = ""
  BoyaFirma = nullStrControl(rsUrunler("Boya Firmasi").Value)
    
    rsUrunler.Edit
    
    FiyatAL18 rsUrunler

    rsUrunler.Update
    rsUrunler.MoveNext

  Loop

-----------------------------------

Private Sub FiyatAL18(RS As Recordset)
Dim i As Integer
Dim brFiyat As Variant

For i = 1 To 8
brFiyat = Empty

    brFiyat = nullStrControl(RS("Cozgu Iplik " & i).Value))
  
    If brFiyat > 0 Then
        RS("Birim Fiyat" & i).Value = nullControl(brFiyat)
    
        RS("Maliyet" & i).Value = brFiyat * RS("Toplam Gram" & i).Value
    End If
    
Next i

End Sub

Public Function nullStrControl(val As Variant)
  
  If IsNull(val) Then
    nullStrControl = ""
  Else
    nullStrControl = val
  End If
  
End Function