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
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