MS Access Option Group
In this video you are going to find out how to implement, and vba code a MS Access Option Group
[sourcecode language=”vb”]
‘========================================================
‘BY LOEBLCOM SERVICES 2012
‘ERIK LOEBL(713)409-7041
‘EMAIL: erik@loeblcomservices.com
‘WEB: http://loeblcomservices.com
‘========================================================
Option Compare Database
Dim m_blnTimer As Boolean
Private Sub btnAnimal_Click()
If m_blnTimer = True Then
MsgBox "Animal Questions, Use Timer"
Else
MsgBox "Animal Questions, No Timer"
End If
End Sub
Private Sub btnHistory_Click()
If m_blnTimer = True Then
MsgBox "History Questions, Use Timer"
Else
MsgBox "History Questions, No Timer"
End If
End Sub
Private Sub Form_Load()
m_blnTimer = True ‘initialize this
End Sub
Private Sub fraTimer_Click()
Select Case Me.fraTimer
Case 1
m_blnTimer = True
Case 2
m_blnTimer = False
End Select
End Sub
[/sourcecode]
You can download the database file, by clicking here.