VBA - form textbox value to another

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

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:

 

form textbox value to another

Forms!frm_proj_data_22_malz_fiyat!txt_birim.DefaultValue = "'" & Forms!frm_proj_data_22_malz_fiyat!txt_deft_birim2.Value & "'"


Clear data in a textbox:

Me!txtbas.Value = ""


in code : 


Private Sub cmd_default_birim_Click()

Forms!frm_proj_data_22_malz_fiyat!txt_deft_birim2.SetFocus

Forms!frm_proj_data_22_malz_fiyat!txt_birim.DefaultValue = "'" & Forms!frm_proj_data_22_malz_fiyat!txt_deft_birim2.Value & "'"

Me.txt_malzeme_ad.SetFocus

End Sub


Other example:

Private Sub cmdfilterara_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!txtara & "*'"

    Forms![frm_proj_data_22_malz_fiyat].Form.FilterOn = True

End Sub




Location: Ankara, Türkiye

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