Access Tablosundaki Alan Toplamını Excel'e Alma

Access Tablosundaki Alan Toplamını Excel'e Alma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Tablosundaki Alan Toplamını Excel'e Alma (/konu-access-tablosundaki-alan-toplamini-excel-e-alma.html)

Sayfalar: 1 2 3

RE: Accsess Tablosundaki Alan Toplamını Excel' E Alma - kanakan52 - 10/05/2020

(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

RE: Accsess Tablosundaki Alan Toplamını Excel' E Alma - alicimri - 11/05/2020

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

RE: Accsess Tablosundaki Alan Toplamını Excel' E Alma - kanakan52 - 11/05/2020

(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 Img-grin

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.

RE: Accsess Tablosundaki Alan Toplamını Excel' E Alma - feraz - 11/05/2020

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

RE: Accsess Tablosundaki Alan Toplamını Excel' E Alma - kanakan52 - 11/05/2020

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

RE: Accsess Tablosundaki Alan Toplamını Excel' E Alma - feraz - 11/05/2020

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