Access Tablosundaki Alan Toplamını Excel'e Alma

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

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

feraz hocam sizin konuzu ile aynı sonucu veriyor ama ?

Sayıon @kanakan52 Sayın @feraz ın yöntemi yanlış değil sadece tak bağlantıda da alınabileceğini belirttim.

(11/05/2020, 14:39)alicimri yazdı: Sayıon @kanakan52 Sayın @feraz ın yöntemi yanlış değil sadece tak bağlantıda da alınabileceğini belirttim.

@alicimri hocam, bende aynı fikirdeyim yanlış olduğunu kesinlikle söylemedim. Hatta çalışmama uyarladım kullanıyorum.. Sayın @feraz hocamın yeri bende ayrı. Sağolsun hakkını ödeyemem..