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
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
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...
Comments
Post a Comment