VBA - Auto filter by selection

We have an extended experience in mega projects worldwide about business management.

Think of us for your business management.   

The database for creating these info is designed by our company Outsideuniverse.com. 

Bu çalışma için şirketimiz veri tabanını kendi tasarlayıp yapmıştır. Veriler yine şirketimiz çalışanlarınca toplanıp veri tabanına şirketimizce işlenmiştir. 

Alorya Seramik ve Teknoloji A.Ş. 

Ankara / Türkiye / Turkey

++90  535 930 66 18

info@alorya.com

Companies: 

www.alorya.com - Architectural and Decoration ceramic pottery production. /  Seramik Çini için seri üretim ve/veya butik çalışmalar atölyesi

www.outsideuniverse.com Architectural design and Software engineering. / Mimari tasarım ve Yazılım geliştirme 

 ++90  535 930 66 18 - contact: O. Kenan Yildirim

 

Code:

Option Compare Database

    'source: http://www.techonthenet.com/access/forms/filter_form.php

Sub SetFilter()

    Dim LSQL  As String

    LSQL = "select * from tbl_not_data_010_notlar"

    LSQL = LSQL & " where madde = '" & cboShowCat & "'"

     Form_frm_not_data_010_notlar.RecordSource = LSQL

End Sub

 

Private Sub cboShowCat_AfterUpdate()

    'Call subroutine to set filter based on selected CustomerID

    SetFilter

End Sub

 

Private Sub cmdClose_Click()

    'Close form

    DoCmd.Close

End Sub

 

Private Sub Form_Open(Cancel As Integer)

    'Call subroutine to set filter based on selected CustomerID

    SetFilter

End Sub