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.

VBA CODE

'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