VBA - filtering using forms

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

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:


 

Private Sub cmd_find_Click()

On Error GoTo Err_cmd_find_Click



    Screen.PreviousControl.SetFocus

    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70


Exit_cmd_find_Click:

    Exit Sub


Err_cmd_find_Click:

    MsgBox Err.Description

    Resume Exit_cmd_find_Click

    

End Sub


'*****************************************************

'************* isim kisim arama cubuklari*************

'*****************************************************


Private Sub cmd_refresh_Click()

    Me.Refresh


End Sub


Private Sub cins_LostFocus()

Refresh


End Sub



Private Sub cmd_filteroff_Click()


Forms![frm_firma_data_014_01_isgelistirme].Form.FilterOn = False

   Me!txtbas.Value = ""

   Me!txtara.Value = ""

End Sub

Private Sub cmdfilterbas_Click()

    Forms![frm_firma_data_014_01_isgelistirme].Form.FilterOn = False

    'then apply new filter - search in field [ad]

    Forms![frm_firma_data_014_01_isgelistirme].Form.Filter = " ad like '" & Me!txtbas & "*'"

    Forms![frm_firma_data_014_01_isgelistirme].Form.FilterOn = True


End Sub

Private Sub cmdfilterara_Click()

    Forms![frm_firma_data_014_01_isgelistirme].Form.FilterOn = False

    'then apply new filter - search in field [ad]

    Forms![frm_firma_data_014_01_isgelistirme].Form.Filter = " ad like '*" & Me!txtara & "*'"

    Forms![frm_firma_data_014_01_isgelistirme].Form.FilterOn = True

End Sub



Another form`s example with LIKE 


Private Sub cmdfilterbas_Click()
    Forms![frm_proj_data_22_malz_fiyat].Form.FilterOn = False
    'then apply new filter - search in field [ad]
    Forms![frm_proj_data_22_malz_fiyat].Form.Filter = " malzeme_ad like '" & Me!txtbas & "*'"
    Forms![frm_proj_data_22_malz_fiyat].Form.FilterOn = True

End Sub

Comments

Post a Comment

Popular posts from this blog

use of variable

 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
Read more

VBA - sorting data

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 - O. Kenan Yildirim 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 :   Private Sub cmd_sort_id_Click() Me.OrderBy = "ID ASC" Me.OrderByOn = True End Sub
Read more

HTML files management with vba

'these were for updating more than 300 html files just with one code 'their objective was to make html content uniform  Private Sub cmdopnnotepad_Click() Dim dTaskID As Double, path As String, file As String path = "C:\WINDOWS\notepad.exe" Dim filevalname As String Dim filenumopn As String     For xtc = 1 To 1     simxtc = xtc + 1     filenumopn = "00" & simxtc & ".html"     filevalname = "C:\models\" & filenumopn     Me!txtfilename.Value = filenumopn     file = filevalname     dTaskID = Shell(path + " " + file, vbNormalFocus)     'MsgBox ("Text loaded")          textsd As Document          textsd = file     '****************replace************************ 'REPLACE ALL kodu asagida : txtFind = "sokolag" txtReplace = "yarrakkurek" SandR '---------------------CODE  'Private Sub makenormallistIPlist()        tx...
Read more