inibit click event in combobox

[sal21]

In the click of a combobox I have a routine that starts a

code:
....
while not. eof

wend
....

this cycle is verylong.

How can I inhibit a second click on the combobox until it is completed on the first event?

[HansV]

Declare a variable at the top of the module:

Code: Select all

Private blnExit As Boolean

In your event procedure:

Code: Select all

Private Sub ComboBox1_Click()
    If blnExit Then Exit Sub
    blnExit = True
    ' your code here
    ...
    blnExit = False
End Sub

where ComboBox1 is the name of the combo box.