Access Tablosundaki Alan Toplamını Excel'e Alma

(10/05/2020, 19:05)feraz yazdı: and TUTAR  <0
Bu kodun sağına ekleme yapabilirsiniz bu şekilde.Yada diğer kodun aynı yerine.

tamamdır

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

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

(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

Kanakan üstadımız tex1,tex2 ve 3 e almak istediği için extra yapmıştım abey.

(11/05/2020, 12:11)feraz yazdı:

(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

Kanakan üstadımız tex1,tex2 ve 3 e almak istediği için extra yapmıştım abey.

@feraz hocam sevgi ve saygı ile, @alicimri hocam da derdime derman olmak istemiş, hepinize sevgi ve saygılarımı sunuyorum, şurda birşeyler öğreniyorsak sizlerin sayesinde. Allahr azı olsun sizlerden.

(11/05/2020, 12:54)kanakan52 yazdı:

(11/05/2020, 12:11)feraz yazdı:

(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

Kanakan üstadımız tex1,tex2 ve 3 e almak istediği için extra yapmıştım abey.

@feraz hocam sevgi ve saygı ile, @alicimri hocam da derdime derman olmak istemiş, hepinize sevgi ve saygılarımı sunuyorum, şurda birşeyler öğreniyorsak sizlerin sayesinde. Allahr azı olsun sizlerden.

Dediğimi anlamadınız abey.Siz öyle istediğiniz için kodu ona göre yazmıştım.