(10/05/2020, 17:28)alicimri yazdı:

Kod:

SELECT KasaKayit.[TARIH], KasaKayit.[KASA_KOD], Sum(IIf([TUTAR]<0,[TUTAR],0)) AS ÖDEME, Sum(IIf([TUTAR]>0,[TUTAR],0)) AS TAHSİLAT
FROM KasaKayit
GROUP BY KasaKayit.[TARIH], KasaKayit.[KASA_KOD]
HAVING (((KasaKayit.[TARIH])=#5/10/2020#) AND ((KasaKayit.[KASA_KOD])="101"));

Kod:

SELECT Sum(IIf([TUTAR]<0,[TUTAR],0)) AS ÖDEME, Sum(IIf([TUTAR]>0,[TUTAR],0)) AS TAHSİLAT
FROM KasaKayit
WHERE (((KasaKayit.[TARIH])=#5/10/2020#) AND ((KasaKayit.[KASA_KOD])="101"));

İkisi de aynı sonucu verir.

alicimri hocam selamlar,

Cevabınız için teşekkür ederim. Emeğinize sağlık hocam

---

(10/05/2020, 17:33)feraz yazdı:

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"

sorgu = "SELECT SUM(TUTAR)as 'aa'  FROM KasaKayit WHERE TARIH between  #" & Format(TextBox5.Text, "mm\/dd\/yyyy") & "#" & _

                                              "and  #" & Format(TextBox6.Text, "mm\/dd\/yyyy") & "# and TUTAR >0"



rs.Open sorgu, baglan, 1, 1

TextBox1.Value = Format(rs(0), "currency")

rs.Close



sorgu = "SELECT SUM(TUTAR)as 'aa'  FROM KasaKayit WHERE TARIH between  #" & Format(TextBox5.Text, "mm\/dd\/yyyy") & "#" & _

                                              "and  #" & Format(TextBox6.Text, "mm\/dd\/yyyy") & "# and TUTAR  <0"



rs.Open sorgu, baglan, 1, 1

TextBox2.Value = Format(rs(0), "currency")

TextBox3.Value = Format(TextBox1.Value - (-TextBox2.Value), "currency")



rs.Close

baglan.Close

Set rs = Nothing

Set baglan = Nothing



End Sub

feraz hocam sana buraya yazacağım yorumlar az kalıcak. Onun için beni yorma   Yine hızır gibi yetiştin. Bu konuya benzer bir iki ssorum daha olabilir. Önce bunu bir kavramaya çalışayım