In this video you are going to find out how to implement, and vba code a MS Access Option Group

'========================================================
'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

You can download the database file, by clicking here.