Time bound form made change using VBA
This article is basically making a Microsoft Access Form enable or disable on particular time period. Within specific time period we can use the Access Form otherwise the Form is disable for other times periods. It is interesting MS Access technique to enabling or disabling Form for Time periods.
For implementation of this technique in our article we have to first create a table as shown in Fig 1.1.
Next we have to select the Form design from Ribbon. Then we have to insert textbox as shown in Fig 1.2. Then we have to write the function for enabling or disabling the form for particular time period and on Form on timer event we have to call the function.
After coding we have to test the Form in Form view. In coding part we are decided that on what time the Form is enabled or not. Fig 1.3 shows that the current Form is enabled. The Form is within Time period and we can make changes on this Form.
This second case when Form is not between time periods. Fig 1.4 shows that the currently Form is disable.
'Call the function Option Compare Database Private Sub Form_Timer() timeform Me.Name End Sub 'VBA code on Function Option Compare Database Public Function timeForm(ByVal frmName As String) Dim T1, T2 Dim frm As Form Set frm = Forms(Form1) T1 = CDate(Date & " " & TimeValue("01:00:00")) T2 = CDate(Date & " " & TimeValue("02:00:00")) If ((Now() >= T1) And (Now() <= T2)) Then With frm MsgBox ("form enabled") .AllowAdditions = True .AllowEdits = True End With frm.Refresh Else With frm MsgBox ("form disable") .AllowAdditions = False .AllowEdits = False '.lblMsg.Visible = True End With frm.Refresh End If Set frm = Nothing End Function
It is advised that the information provided in the article should not be used for any kind formal or production programming purposes as content of the article may not be complete or well tested. Access Guru will not be responsible for any kind of damage (monetary, time, personal or any other type) which may take place because of the usage of the content in the article.
Copyright © 2019 ERP Makers