Option Explicit
Option Base 1

Dim QuestionDB As DAO.Database
Dim QuestionTable As DAO.Database
Dim Theory As DAO.Recordset
Dim questionnumber As Integer
Dim filename As String
Dim UserAnswer As String
Dim RealAnswer As String
Dim Chosen As String



Private Sub cmdHelp_Click()

Load frmHelpQuestions
frmHelpQuestions.Show
frmQuestion.Hide

End Sub

Private Sub Form_Load()

filename = "E:\Advanced Higher Computing\Project\Program\Questions.mdb"
Set QuestionDB = DAO.OpenDatabase(filename)
Set Theory = QuestionDB.OpenRecordset("QuestionTable", dbOpenDynaset)
Datafill

If UserAnswer = RealAnswer Then
MsgBox ("Well done! That is correct.")
Theory.MoveNext
End If

If questionnumber = 16 Then
Load frmResults
frmResults.Show
frmQuestion.Hide
End If

End Sub

Public Sub Datafill()

If questionnumber <= 15 Then
lblHeading.Caption = "Question " & questionnumber & " out of 15"
LabelQuestion.Caption = Theory!Question
Label1.Caption = Theory!A
Label2.Caption = Theory!B
Label3.Caption = Theory!C
Label4.Caption = Theory!D
RealAnswer = Theory!Answer
End If


End Sub
Private Sub Label1_Click()
UserAnswer = "A"
End Sub


Private Sub Label2_Click()
UserAnswer = "B"
End Sub


Private Sub Label3_Click()
UserAnswer = "C"
End Sub


Private Sub Label4_Click()
UserAnswer = "D"
End Sub




Private Sub lblExit_Click()
End
End Sub

Private Sub Label1_Click()
    UserAnswer = "A"

    ' If the answer they chose is the same as the real answer, tell them so.
    ' Otherwise tell them they are wrong and do something else to show them that they are wrong.
    if UserAnswer = RealAnswer then
        MsgBox("The answer is correct! Good Job!")
    else
        MsgBox("Sorry, your answer was incorrect. The real answer is: " & RealAnswer)
    end if

End Sub