(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"));
İkisi de aynı sonucu verir.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"));
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