Hi for all
I have muli choise questions Form
when I choose the answer on all groubs by option button, I want save all answer in text(T4)
My problem I get one answer only for last choose at the last groub in the text(T4)
The answer text is ( CORRECT ANSWER or WRONG ANSWER AND THE CORRECT ANSWER IS 64 xxxxxxxxxxxx)
I have 100 groubs optios for 100 questions.
I used this code for one goub:
Option Compare Database
Dim intQ1, intQ2, intQ3 As Integer
Private Sub Frame1_AfterUpdate()
intQ1 = 0
Select Case Me!Frame1
Case 1
intQ1 = 1
Let T4 = " CORRECT ANSWER "
Case 2
Let T4 = "WRONG ANSWER AND CORRECT IS 30"
Case 3
Let T4 = "WRONG ANSWER AND CORRECT IS 30"
Case Else
MsgBox (“Error)
End Select
Me!T1 = dValue
T1 = intQ1 + intQ2 + intQ3
End Sub
