ofbayoglu
Yeni Üye
- Katılım
- 30 Eki 2021
- Mesajlar
- 27
- Aldığı beğeni
- 5
- Excel V
- Office 2013 TR
Konu Sahibi
Arkadaşlar merhabalar aşağıdaki kodlarla toplam için sorgu oluşturdum fakat toplam tutarı labele yazmıyor. toplamları nasıl yazabiliriz. bu konuda aşağıdaki kodlarda nasıl bir değişiklik yapmam gerekiyor. yardımcı olurmusunuz.
Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset
Dim rs2 As New Recordset
ListBox1.Clear
On Error Resume Next
t1 = Me.ComboBox6.Text
t2 = Me.TextBox16.Text
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=D:\SipPro\ResanData.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis where firma=('" & t1 & "') and durumu=('" & t2 & "')", baglan, adOpenKeyset, adLockPessimistic
sql2 = "select sum(toplam_tutar)from siparis where durumu='('" & t2 & "')' and firma='('" & t1 & "')'"
rs2.Open sql2, baglan, adOpenKeyset, adLockPessimistic
Me.Label35.Caption = Format(rs(0), "#,## TL")
With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows
End With
rs.Close
baglan.Close
End Sub
Private Sub ComboBox6_Change()
Dim baglan As New Connection
Dim rs As New Recordset
Dim rs2 As New Recordset
ListBox1.Clear
On Error Resume Next
t1 = Me.ComboBox6.Text
t2 = Me.TextBox16.Text
baglan.Open "Provider=Microsoft.Ace.Oledb.12.0;data source=D:\SipPro\ResanData.accdb;"
rs.Open "select kimlik,sirano,tarih,firma,urun,miktar,ozel_fiyat,Toplam_tutar,Durumu,Uretim_planlama from siparis where firma=('" & t1 & "') and durumu=('" & t2 & "')", baglan, adOpenKeyset, adLockPessimistic
sql2 = "select sum(toplam_tutar)from siparis where durumu='('" & t2 & "')' and firma='('" & t1 & "')'"
rs2.Open sql2, baglan, adOpenKeyset, adLockPessimistic
Me.Label35.Caption = Format(rs(0), "#,## TL")
With siparis.ListBox1
.ColumnCount = 10
.ColumnWidths = "0;30;50;110;150;40;40;50;80;80"
.Column = rs.GetRows
End With
rs.Close
baglan.Close
End Sub
