Yürüyen Bakiye

[ggoker]

Firma adı=fields1
Tarih=fields2
Serino=fields3
alacak=fields4
alacakkdvli=fields5
odenen=fields6
bakiye=fields 7
seklinde bir tablo ayarladım
veri adı data1 tablo adı bakiye

Basıcte fatura kestıkn sonra bunları otomatık olarak data1.mbd ye atan bır program yaptım ama nedense benım bakıye bır turlu yurumuyor

sitede sütunları toplatmak ıcın sunu buldum ve bunun uzerınden gıttım


Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\magza.mbd;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT Sum(tutar) AS Toplatutar FROM dg"
Adodc1.Refresh
Text1.Text= adodc1.recordset("Toplatutar")



ve kendı yaptıgım programa uyarlamaya calısyorum bır turlu olmuyor benım yazdıgım kodsa su



With Adodc2.Recordset
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\gortex\data1.mdb;Persist Security Info=False"
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "SELECT Sum(alacakkdv)-sum(odenen)AS Toplatutar FROM BAKİYE"
Adodc2.Refresh
.AddNew
.Fields(1) = Text1.Text
.Fields(2) = CDate(Text8.Text)
.Fields(3) = Text104.Text
.Fields(4) = CCur(Text51.Text)
.Fields(5) = CCur(Text55.Text)'kdvli tutar'
.Fields(7) = CCur(Text55.Text) + CCur(toplatutar)
.Update
end with

yardımcı olursanız cok sevınırım vbde cok acemıyım