(11/05/2020, 11:27)alicimri yazdı:

Kod:

Private Sub CommandButton1_Click()
Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Kasa.accdb"
Sql = "SELECT Sum(IIf([TUTAR]<0,[TUTAR],0)) AS ?DEME, Sum(IIf([TUTAR]>0,[TUTAR],0)) AS TAHS?LAT FROM KasaKayit WHERE (((KasaKayit.TARIH) Between " & CDbl(CDate(TextBox5.Value)) & "  And " & CDbl(CDate(TextBox6.Value)) & ") AND ((KasaKayit.KASA_KOD)='" & TextBox4.Value & "'));"
rs.Open Sql, baglan, 1, 1
TextBox1.TextAlign = 3
TextBox1.Value = Format(rs("TAHS?LAT"), "#,###.00")
TextBox2.TextAlign = 3
TextBox2.Value = Format(-rs("?DEME"), "#,###.00")
TextBox3.TextAlign = 3
TextBox3.Value = Format(TextBox1.Value - TextBox2.Value * 1, "#,###.00")
rs.Close
baglan.Close
Set rs = Nothing
Set baglan = Nothing
End Sub

Sayın @kanakan52 Tek bağlantıda almak bana daha doğru geldi. Sayın  @feraz ın müsaadesi ile

@alicimri hocam mesajınızı görür görmez denedim. Bunu da alıyorum müsadenizle Kodlar soruma cevap veriyor, kısa olması nedeniyle sanırım bunu kullanacağım. Emeğinize ve cevabınıza çok çok teşekkür ederim.