Access veri tabanından toplam almak

[SİBEL70]

Merhabalar,

Ekteki dosyada, access veri tabanındaki MusteriCariListe adlı tablodaki Borc ve Alacak Sütunlarının toplamlarını; exceldeki form üzerinde textboxlara, comboboxtan seçilen müşteri ve access tablosundaki toplam kayıt bazında almak istiyorum. Frame1 deki ilk üç textbox müşteri borç- alacak toplamlarını gösterecek, alttaki textboxlarda veri tabanındaki genel durumu borç - alacak durumunu gösterecek. Bunun için gereken kodlar konusunda yardımınızı rica ediyorum.

Saygılar,

 

[Orion1]

Dosyanız ektedir.
Firmayı seçtikten sonra Göster butonuna basınız.

Private Sub CommandButton2_Click()
On Error Resume Next
Call baglanti
Set rs = conn.Execute("select sum(Borc) from MusteriCariListe where CariAdi ='" & ComboBox1.Column(1) & "';")
TextBox1.Text = Format(rs(0).Value, "#,##0.00")
Set rs = conn.Execute("select sum(Alacak) from MusteriCariListe where CariAdi ='" & ComboBox1.Column(1) & "';")
TextBox2.Text = Format(rs(0).Value, "#,##0.00")
TextBox3.Text = Format(0, "#,##0.00")
TextBox3.Text = Format(CDbl(TextBox1.Text) - CDbl(TextBox2.Text), "#,##0.00")
Set rs = conn.Execute("select sum(Borc) from MusteriCariListe;")
TextBox4.Text = Format(rs(0).Value, "#,##0.00")
Set rs = conn.Execute("select sum(Alacak) from MusteriCariListe;")
TextBox5.Text = Format(rs(0).Value, "#,##0.00")
TextBox6.Text = Format(0, "#,##0.00")
TextBox6.Text = Format(CDbl(TextBox4.Text) - CDbl(TextBox5.Text), "#,##0.00")
Set rs = Nothing
End Sub

 

[SİBEL70]

Evren bey desteğiniz için teşekkür ederim.

Saygılar,

 

[Orion1]

Evren bey desteğiniz için teşekkür ederim.

Saygılar,

Rica ederim.
İyi çalışmalar.