Merhaba arkadaşlar,
Ben verileri listwieve alıyorum, ama veri tabanındaki toplam borc ile
toplam ödenen leride Form üzerine ekledigim labellere almak istedim
malesef başaramadım,
TBorc.Caption =TBorc.Caption + RS("Toplam")
TOdenen.Caption = TOdenen.Caption+RS("Odeme")
Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım
Sub satıs_al()
On Error Resume Next
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [Mycari]Where Müsno='" & S1 & "'"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste.ListItems.Add(, , RS("sırano"))
kyt.SubItems(0) = RS("sırano")
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(2) = RS("Tarih")
kyt.SubItems(3) = RS("Açıklama")
kyt.SubItems(4) = RS("Adet")
kyt.SubItems(5) = RS("Nevi")
kyt.SubItems(6) = RS("Birimfiyat")
kyt.SubItems(6) = Format(kyt.SubItems(6), "#,##0.00")
kyt.SubItems(7) = RS("Toplam")
kyt.SubItems(7) = Format(kyt.SubItems(7), "#,##0.00")
kyt.SubItems(8) = RS("Odeme")
kyt.SubItems(8) = Format(kyt.SubItems(8), "#,##0.00")
TBorc.Caption = RS("Toplam")
TOdenen.Caption = RS("Odeme")
RS.MoveNext
X = X + 1
Loop
' toplamlar1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(DatabasePath)
Set RS = Nothing
Set RS = Nothing
End Sub
Ben verileri listwieve alıyorum, ama veri tabanındaki toplam borc ile
toplam ödenen leride Form üzerine ekledigim labellere almak istedim
malesef başaramadım,
TBorc.Caption =TBorc.Caption + RS("Toplam")
TOdenen.Caption = TOdenen.Caption+RS("Odeme")
Yardımcı olacak arkadaşlara şimdiden teşekkürlerimi sunarım
Sub satıs_al()
On Error Resume Next
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [Mycari]Where Müsno='" & S1 & "'"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Liste.ListItems.Clear
Do While Not RS.EOF
Set kyt = Liste.ListItems.Add(, , RS("sırano"))
kyt.SubItems(0) = RS("sırano")
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(2) = RS("Tarih")
kyt.SubItems(3) = RS("Açıklama")
kyt.SubItems(4) = RS("Adet")
kyt.SubItems(5) = RS("Nevi")
kyt.SubItems(6) = RS("Birimfiyat")
kyt.SubItems(6) = Format(kyt.SubItems(6), "#,##0.00")
kyt.SubItems(7) = RS("Toplam")
kyt.SubItems(7) = Format(kyt.SubItems(7), "#,##0.00")
kyt.SubItems(8) = RS("Odeme")
kyt.SubItems(8) = Format(kyt.SubItems(8), "#,##0.00")
TBorc.Caption = RS("Toplam")
TOdenen.Caption = RS("Odeme")
RS.MoveNext
X = X + 1
Loop
' toplamlar1
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(DatabasePath)
Set RS = Nothing
Set RS = Nothing
End Sub