- Katılım
- 24 Kasım 2008
- Mesajlar
- 148
- Excel Vers. ve Dili
- 2003
Merhaba Değerli arkadaşlar
Set rs = conn.Execute("SELECT islem.fatura_tarihi,islem.aciklama,islem.fatura_numarasi,islem.borc,islem.alacak, islem.alacak - islem.borc FROM islem WHERE (islem.adi = '" & UserForm8.ListBox1.Column(1) & "')*(islem.fatura_tarihi BETWEEN #" & UserForm8.DTPicker11.Month & "/" & UserForm8.DTPicker11.Day & "/" & UserForm8.DTPicker11.Year & "# AND #" & UserForm8.DTPicker12.Month & "/" & UserForm8.DTPicker12.Day & "/" & UserForm8.DTPicker12.Year & "#);")
Satir = rs.RecordCount
ListBox1.Clear
ListBox1.Column = rs.GetRows(Satir)
ben yukarıdaki şekilde listbox'uma bir firmanın tüm fiş detaylarını döktürüyorum.
borç ve alacak hanelerini yazdırıyorum fakat bakiye olayını halledemedim.
bakiye olayı islem.alacak - islem.borc + (bir üst satırdaki fişin islem.alacak - islem.borc 'u)
bunu nasıl yapabilirim
ben excelden accesse bağlantı kurup verileri alıyorum.
ilginiz için teşekkür ederim.
Set rs = conn.Execute("SELECT islem.fatura_tarihi,islem.aciklama,islem.fatura_numarasi,islem.borc,islem.alacak, islem.alacak - islem.borc FROM islem WHERE (islem.adi = '" & UserForm8.ListBox1.Column(1) & "')*(islem.fatura_tarihi BETWEEN #" & UserForm8.DTPicker11.Month & "/" & UserForm8.DTPicker11.Day & "/" & UserForm8.DTPicker11.Year & "# AND #" & UserForm8.DTPicker12.Month & "/" & UserForm8.DTPicker12.Day & "/" & UserForm8.DTPicker12.Year & "#);")
Satir = rs.RecordCount
ListBox1.Clear
ListBox1.Column = rs.GetRows(Satir)
ben yukarıdaki şekilde listbox'uma bir firmanın tüm fiş detaylarını döktürüyorum.
borç ve alacak hanelerini yazdırıyorum fakat bakiye olayını halledemedim.
bakiye olayı islem.alacak - islem.borc + (bir üst satırdaki fişin islem.alacak - islem.borc 'u)
bunu nasıl yapabilirim
ben excelden accesse bağlantı kurup verileri alıyorum.
ilginiz için teşekkür ederim.