Posts

bypass shift key

  Sub SetBypassProperty() Const DB_Boolean As Long = 1 ChangeProperty " AllowBypassKey ", DB_Boolean, False End Sub Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Be carefull, there are some problems, your database can become unusable.  I think this code lacks the password form, which will make it possible to disable the setbypassproperty or enabling it. Search internet for the answer for it. Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ...
Post a Comment
Read more

VBA links

  Microsoft Access https://blueclawdb.com https://www.utteraccess.com
Post a Comment
Location: Ankara, Türkiye
Read more

find and filter with vba

Image
 Here are the screenshots: label names here are important And Here is the vba code : '------------------------------------FIND---------------------------------------------- Private Sub cmd_find_Click() fctfind_a_field         End Sub Function fctfind_a_field() As String Dim RecSrcFrmPersIdSql As String Select Case Me!txtfield.Value 'santral;fabrika_entry;aktif_status;max_km;max_dk;ALL Case Is = "santral" RecSrcFrmPersIdSql = "SELECT [tbl_ref_021_1_santral].[santral],[tbl_data_01_10_01_mesafe_limit].[mesafe_limit_id], [tbl_data_01_10_01_mesafe_limit].[santral_id], [tbl_data_01_10_01_mesafe_limit].[fabrika_entry_limit], [tbl_data_01_10_01_mesafe_limit].[aktif_status_id], [tbl_data_01_10_01_mesafe_limit].[max_km], [tbl_data_01_10_01_mesafe_limit].[max_dk], [tbl_data_01_10_01_mesafe_limit].[auto_date], [tbl_data_01_10_01_mesafe_limit].[auto_time]" & _ "FROM [tbl_ref_021_1_santral] INNER JOIN [tbl_data_01_10_01_mesafe_limit] ON [tbl_ref_021_1_santral].[s...
Post a Comment
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...
Post a Comment
Location: Ankara, Türkiye
Read more

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
Post a Comment
Location: Ankara, Türkiye
Read more

VBA - Fun - timer

 The following code does not belong to me, comment at below if you know the coder name / link . I will happily edit to put the source . Private Sub Form_Timer()     Dim CurTime As Date     Dim ValHours As Integer     Dim ValMinutes As Integer     Dim ValSeconds As Integer          CurTime = Time     ValHours = Hour(CurTime)     ValMinutes = Minute(CurTime)     ValSeconds = Second(CurTime)          pgrHours.Value = ValHours     pgrMinutes.Value = ValMinutes     pgrSeconds.Value = ValSeconds          lblHours.Caption = CStr(ValHours)     lblMinutes.Caption = ValMinutes     lblSeconds.Caption = CStr(ValSeconds) End Sub
Post a Comment
Location: Ankara, Türkiye
Read more

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 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 :   form textbox value to another Forms!frm_proj_data_22_malz_fiyat!txt_birim.DefaultValue = "'" & Forms!frm_proj_d...
Post a Comment
Location: Ankara, Türkiye
Read more