Skip to main content

AccessTr.neT


Access Tablosundaki Alan Toplamını Excel'e Alma

Access Tablosundaki Alan Toplamını Excel'e Alma

#7
(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 Img-grin
Cevapla
#8
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
Cevapla
#9
(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.
Cevapla
#10
(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.
Cevapla
#11
(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.
Cevapla
#12
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task