- Katılım
- 11 Mart 2005
- Mesajlar
- 3,049
- Excel Vers. ve Dili
- Office 2013 İngilizce
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.
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.
Kod:
-----------------------------------------------------------
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
-----------------------------------
Kod:
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
Kod:
Public Function nullStrControl(val As Variant)
If IsNull(val) Then
nullStrControl = ""
Else
nullStrControl = val
End If
End Function