OLEControls Optionbuttons

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
 
T

Tom Ogilvy

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top