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.

İ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"));

İ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

(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.