Listbox1 in 4.kolonundakileri Toplatmak

[tevfikdemir]

Arkadaşlar.Merhaba
Listboxda Belli Kritere Göre Süzme Yapıyorum ve Süzdüğüm bu verilerin toplamını Textbox2 de veya listbox2 de görmek istiyorum.

Not :Listbox1 in aldığı veriler bir access dosyasında.!!!

Şimdiden Teşekkür ederim.

 

[tevfikdemir]

Arkadaşlar Listbox Excelden verileri alsa idi bu süzme ve toplarma işlemini Rowsource ile çözüyorum.Fakat Accsess dosyasından alıyor.Süzdüğüm verilerin toplamını listboxdan nasıl alabilirim.

Saygılar

 

[tevfikdemir]

Konuyla ilgili mutlaka bir arkadaşın bilgisi vardır.Ümidiyle tekrar gönderiyorum.

Saygılar

 

[Levent Menteşoğlu]

Bu işlemi accessten veri alırkende yapmak işin aslıdır ama listboxa veriler alındıktan sonrada listboxtan okunarak toplama yapılabilir, bunun için aşağıdaki kodu deneyin.

[vb:1:2d20b2ad49]for a=0 to listbox1.listcount-1
deg=listbox1.list(a,3)*1+deg
next
textbox2=deg[/vb:1:2d20b2ad49]

 

[tevfikdemir]

Sayın levenm,

Kodu yazdım fakat hiç bir sonuç ve tepki olmadı.

incelemeniz için Örnek dosyayı ekte gönderiyorum.

Not:Access dosyasını C:\ nin altına atmanız gerekiyor.

Saygılarımla

 

[Levent Menteşoğlu]

ResfreshDB isimli prosedürünüzü aşağıdaki ile değiştirin. Kırmızı renkli satırlar ilave edilenlerdir.
[vb:1:7e31e7f61d]
Sub RefreshDB()
On Error Resume Next
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable] ORDER BY Firma"
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
ListBox1.Clear
Do While Not RS.EOF
ListBox1.AddItem
ListBox1.Column(0, x) = RS("Firma")
ListBox1.Column(1, x) = RS("Borc")
ListBox1.Column(2, x) = RS("Tarih")
ListBox1.Column(3, x) = RS("Mazot")
deg = RS("Mazot") + deg
RS.MoveNext
x = x + 1
Loop
TextBox9 = deg
Label1.Caption = "Toplam Kayit Sayisi : " & RS.RecordCount
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(DatabasePath)
TextBox6 = f.Size / 1024 & " Kb"
TextBox7 = Format(f.DateLastModified, "dd.mmm.yyyy")
TextBox8 = Format(f.DateLastModified, "hh:mm:ss")
Set RS = Nothing
Set RS = Nothing
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
ComboBox2.Text = "Ay"
ComboBox3.Text = "Gün"
ComboBox4.Text = "Yıl"
End Sub
[/vb:1:7e31e7f61d]

 

[tevfikdemir]

Levent bey,
Her iki türlüde Listbox1 e girilen tüm mazot değerlerini topluyor.Halbuki ben sadece sectiğim firmadaki mazot giderlerini öğrenmek istiyorum.Bunun içinde Seçilen firmayı listboxda süzdükten sonra mazot toplamlarını almak istiyorum.Süzme işlemini Firmayı seçtikten sonra BUL düğmesine basarak yapıyorum fakat Bulduğu firmadaki Mazot Toplamlarını vermiyor.
Saygılarımla

 

[tevfikdemir]

Arkadaşlar ,

Konuyla ilgili bilgisi olan varsa yardımcı olurmusunuz lütfen :yardim: :arkadas:

Teşekkürler

 

[red_lion_72]

Selam,

Neden Access'ten alırken toplam almıyorsunuz? 2. bir bağlantı ile toplam alın.

Yani

select sum(mazot) from [mytable]

ile toplam mazot u alarak istediğiniz yere yazdırabilirsiniz.

Kolay gelsin.

 

[tevfikdemir]

sayın kırmızı aslan 72;

bu kodu nasıl kullanacağımı anlayamadım.Daha açıklayıcı veya gönderdiğim dosya üzerinde uygulayabilirmisiniz.

Saygılar

 

[Levent Menteşoğlu]

Benim yukarıdaki kodda verdiğim ilaveyi bul butonundaki kodada aynı şekilde ilave edebilirsiniz.

[vb:1:551d3e5720]Private Sub CommandButton4_Click()
If OptionButton1 = True Then
MyData = TextBox2.Text
End If

If OptionButton2 = True Then
MyDate = ComboBox2.Value & "/" & ComboBox3.Value & "/" & ComboBox4.Value
MyData = "#" & MyDate & "#"
End If

If OptionButton3 = True Then
MyData = WorksheetFunction.Substitute(ComboBox1.Text, "*", "%")
Select Case ComboBox1.ListIndex
Case 0
strsearch = " like'" & MyData & "'"
For a = 0 To ListBox1.ListCount - 1
deg = ListBox1.List(a, 3) * 1 + deg
Next
TextBox1.Text = deg
Case 1
strsearch = " like'" & MyData & "'"
Case 2
strsearch = " like'%" & MyData & "'"
End Select
End If

Set RS = CreateObject("ADODB.recordset")
On Error GoTo NoData:
If OptionButton1 Or OptionButton2 Then
strSQL = "SELECT * FROM [MyTable] WHERE " & strCrit & ComboBox1 & MyData & " ORDER BY " & "Firma"
Else
strSQL = "SELECT * FROM [MyTable] WHERE " & strCrit & strsearch & " ORDER BY " & "Firma"
End If
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
ListBox1.Clear
Do While Not RS.EOF
ListBox1.AddItem
ListBox1.Column(0, x) = RS("Firma")
ListBox1.Column(1, x) = RS("Borc")
ListBox1.Column(2, x) = RS("Tarih")
ListBox1.Column(3, x) = RS("Mazot")
deg = RS("Mazot") + deg
RS.MoveNext
x = x + 1
Loop
TextBox9 = deg
Exit Sub
NoData:
MsgBox "Aranılan sorguya benzer kayıt bulunamadı !", vbCritical, "TestMDB"
End Sub[/vb:1:551d3e5720]

 

[tevfikdemir]

Sayın leventm ,

Dediğinizi yaptıktan sonra problem gitti.

Çok teşekkür ederim.

Saygılarımla