Merhaba Değerli Üstadlar,
Ekte örneği bulunan Accsess içindeki KasaKayit taplosu toplamını excel' e almak istiyorum, Pozitif tutarlar tahsilat , Negatif tutarlar ise Ödeme olacak şekilde Kasa Kodu ve tarihi de dikkate alarak iki farklı textbox'a aldırmak istiyorum.
Exceldeki Çoketopla gibi
Textbox1.value=çoketopla(KasaKayit.Toplam;KASA_KODU;"="&textbox4.value;tarih;">=" & textbox5;tarih;"<="& textbox6
gibi..
Şimdiden teşekkür ederim.
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.
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
(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"));
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
(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 kodlara KASA_KODU alanını nasıl ekleyebilirim.
and TUTAR <0
Bu kodun sağına ekleme yapabilirsiniz bu şekilde.Yada diğer kodun aynı yerine.