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

Location: Ankara, Türkiye

Comments

Post a Comment

Popular posts from this blog

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