Combobox veri filtreleme hk.

[kemal turan]

Merhaba
Ek dosyada daha açık şekilde anlatabildiğim combobox değişimlerine bağlı diğer sahifeden veri filtreleme ye ihtiyacım var.
Bu işi önce özet tablo oradan "gelişmiş filtreleme" ile verileri alıp daha sonra listboxta gösterme şeklinde yapabildim.
bunu daha kısa yoldan yapabilirmiyiz.

 

[veyselemre]

Sayfanın kod sayfasına ekleyip deneyiniz.

Private Sub ComboBox1_Change()
    Call sorgula
End Sub
Private Sub ComboBox2_Change()
    Call sorgula
End Sub
Sub sorgula()
    If ComboBox1.Text <> "" And ComboBox2.Text <> "" Then
        ListBox1.Clear
        ListBox2.Clear
        Dim con As Object
        Dim rs As Object
        Set con = CreateObject("adodb.connection")
        con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & _
                 ThisWorkbook.FullName & ";extended properties=""Excel 11.0;hdr=yes"""

        Sql = "select [ÜRÜN ADI], sum([ADET]), ROUND(sum([NET TUTAR]),2) from [VERI$] where [YIL]=" & ComboBox2.Text & " and [AY]='" & ComboBox1.Text & "' group by [ÜRÜN ADI]"

        Set rs = con.Execute(Sql)
        If Not rs.bof Then ListBox1.Column = rs.getrows

        Sql = "select [ÜRÜN GRUBU], sum([ADET]), ROUND(sum([NET TUTAR]),2) from [VERI$] where [YIL]=" & ComboBox2.Text & " and [AY]='" & ComboBox1.Text & "' group by [ÜRÜN GRUBU]"

        Set rs = con.Execute(Sql)
        If Not rs.EOF Then ListBox2.Column = rs.getrows

        Set rs = Nothing
        Set con = Nothing
    End If
End Sub

 

[kemal turan]

merhaba veysel bey ,
Yüklenebilir ISAM bulunamadı
hatası veriyor

 

[veyselemre]

Ekteki 2003 dosyasında hazırlamıştım kodları inceleyiniz.

 

[kemal turan]

Merhaba Veysel Hocam,
Çok teşekkür ederim.
Cevabınız sayesinde farklı bir veri alma yöntemi öğrenmiş oldum.
Ek dosyada göreceğiniz üzere listboxların toplamını alan kod ekleyebildim.
Farklı bir listbox daha ekleyerek farklı bir veri çekmeye çalıştım.
Kodlarınıza aşina olmadığım için bir sutundaki veriyi alamadım.
Zahmet olmasa kodların işlevlerini kavrayabilmem için ' ..... diye açıklayabilirmisiniz.
Ellerinize sağlık.
Selametle kalınız.

 

[veyselemre]

Siz olayı zaten kavramışsınız, sql cümlesini aşağıdaki gibi değiştirirek deneyin.

 Sql = "select [SATIŞ ELEMANI], [ÜRÜN GRUBU], ROUND(sum([NET TUTAR]),2) from [VERI$] where [YIL]=" & ComboBox2.Text & " and [AY]='" & ComboBox1.Text & "' group by [SATIŞ ELEMANI],[ÜRÜN GRUBU]"

 

[kemal turan]

Merhaba Veysel bey,
Çok teşekkür ederim.
Selametle kalınız.

 

[kemal turan]

Merhaba Veysel bey,
Günlük işlemler sahifesini textbox / tarih krıterli olarak oluşturmak istedim.
Kodu doğru revize edemediğimden hata verdi.
Teşekkür ederim.

 

[veyselemre]

Aşağıdaki gibi deneyiniz.

        Sql = "select [ÜRÜN ADI], sum([ADET]), ROUND(sum([NET TUTAR]),2) from [VERI$]  where [TARİH]=#" & TextBox1 & "# group by [ÜRÜN ADI]"

 

[kemal turan]

merhaba veysel bey,
hata veren satır

Set rs = con.Execute(Sql)

 

[kemal turan]

Veysel bey merhaba,
Dosyamın son halini ekledim.Senelik kısmını hallettim.
Teşekkür ederim.

 

[veyselemre]

Sql = "select [ÜRÜN ADI], sum([ADET]), ROUND(sum([NET TUTAR]),2) from [VERI$] where [TARİH]=#" & Replace(TextBox1, ".", "/") & "# group by [ÜRÜN ADI]"

 

[kemal turan]

Veysel bey merhaba,
Çok teşekkür ederim.
Selametle kalınız.

 

[kemal turan]

merhaba veysel bey,
kodu farklı bir şekilde kullanmak istedim. "sorgu ifadesi içindeki fazladan" hatası verdi.
açıklamayı dosya içerisinde yaptım.
Teşekkür ederim.

 

[veyselemre]

Dosya içerisinde açıklama yok.
Eğer Sorgu sayfasına notları almak içinse aşağıdaki gibi kullanabilirsiniz. Benim excel 2003 olduğu için denemeden yazıyorum.

Sql = "select [KAYIT], [ACIKLAMA] from [NOTLAR$] where [CARI]=" & TextBox1.Text

 

[kemal turan]

Veysel bey merhaba,
listboxa a sadece kayıt sutunundan veri getiriyor.

Sql = "select [KAYIT], [TAAHHUT], [ACIKLAMA] from [NOTLAR$] where [CARI]=" & TextBox1.Text

 

[veyselemre]

Listbox'un ColumnCount sayısını 3 yapın.

        Sql = "select format([KAYIT],'dd.mm.yyyy'), format([TAAHHUT],'dd.mm.yyyy'), [ACIKLAMA],3 from [NOTLAR$] where [CARI]=" & TextBox1.Text

 

[kemal turan]

Veysel bey merhaba,
Çok teşekkür ederim.
Sizleri çok rahatsız ettim.
Hakkınızı helal ediniz.
Selamete kalınız

 

[kemal turan]

Veysel bey merhaba,
projeyi biraz daha ilerlettim.
Sorunum: cari seçtikten sonra listbox1 in toplam tutarını textbox 9 a aldırmak istedim.Kod listbox1 Adet sutununu topluyor yanındaki toplam tutar sutununu toplarken hata veriyor. sql kodunda formatı değiştirdim. yine olmadı.
Yardımlarınıza teşekkür ederim.

 

[veyselemre]

 T1 = CDbl(ListBox2.List(i - 1, 4)) + T1

veya sorguyla direkt olarak almak için düzenleyin.

        Sql = "select [SATIŞ NO],format([TARİH],'dd.mm.yyyy'), [ÜRÜN ADI],[ADET],format([NET TUTAR],'##0.00'),format([SEVK PLN],'dd.mm.yyyy'),[SEVK DURUMU],format([SEVK TRH],'dd.mm.yyyy') from [VERI$] where [CARİ NO]=" & TextBox1.Text
        Set rs = con.Execute(Sql)
        If Not rs.EOF Then
            ListBox2.Column = rs.getrows
            [COLOR=DarkRed]Sql = "select format(sum([NET TUTAR]),'##0.00') from [VERI$] where [CARİ NO]=" & TextBox1.Text
            Set rs = con.Execute(Sql)
            TextBox9.Value = rs(0).Value[/COLOR]
        End If