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.


Comments are closed.