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

Perhaps the delay is in the record set.

Try commenting out the code that works with the OLEObjects and just steps
through the record set. Does that take close to the same time. If so,
perhaps you can put the recordset into an array and work from that.

--
Regards,
Tom Ogilvy


"Jan Vente" wrote:

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