J
Jan Vente
Hi all,
In an Excel workbook I created a multiplechoice test. On the first sheet
they select the test. On the second sheet they make the questions. The
questions are in cells The possible answers are in Optionbuttons
(OLEControls).
The problem is: After selecting the text the right questions show up, but
the anwers in the captions of the optionsbuttons only show up after clicking
in the worksheet and after a delay of a few secons. There are 300
optionsbuttons (100 questions with 3 possible answers).
The code for filling the controls is (part of a larger procedure):
Do Until rs.EOF
For Each oleObj In wsVragen.OLEObjects
If TypeOf oleObj.Object Is MSForms.OptionButton Then
Set optObj = oleObj.Object
VraagNo = Mid(optObj.Name, 5, Len(optObj.Name) - 5)
AntwoordTeken = Right(optObj.Name, 1)
If rs!Vraagnummer = VraagNo And rs!Antwoordletter =
AntwoordTeken Then
oleObj.Visible = True
optObj.Caption = rs!Antwoord & ""
End If
End If
Next oleObj
rs.MoveNext
Loop
rs.MoveFirst
Vraag = Dutch for Question
Antwoord = Dutch for Answer
The question is: Why are the captions of the optionbuttons refreshed after
running the code with delay? How Can I solve this problem?
TIA,
Jan Vente
In an Excel workbook I created a multiplechoice test. On the first sheet
they select the test. On the second sheet they make the questions. The
questions are in cells The possible answers are in Optionbuttons
(OLEControls).
The problem is: After selecting the text the right questions show up, but
the anwers in the captions of the optionsbuttons only show up after clicking
in the worksheet and after a delay of a few secons. There are 300
optionsbuttons (100 questions with 3 possible answers).
The code for filling the controls is (part of a larger procedure):
Do Until rs.EOF
For Each oleObj In wsVragen.OLEObjects
If TypeOf oleObj.Object Is MSForms.OptionButton Then
Set optObj = oleObj.Object
VraagNo = Mid(optObj.Name, 5, Len(optObj.Name) - 5)
AntwoordTeken = Right(optObj.Name, 1)
If rs!Vraagnummer = VraagNo And rs!Antwoordletter =
AntwoordTeken Then
oleObj.Visible = True
optObj.Caption = rs!Antwoord & ""
End If
End If
Next oleObj
rs.MoveNext
Loop
rs.MoveFirst
Vraag = Dutch for Question
Antwoord = Dutch for Answer
The question is: Why are the captions of the optionbuttons refreshed after
running the code with delay? How Can I solve this problem?
TIA,
Jan Vente