combo drop down code problem?
 

Hi, having a bit of a problem with this code which is designed to fill a
dropbox as it is being clicked. The reason I do this is that the values the
combo can be depend on other combo selections. Maybe my problem is not the
code but rather some property of the combo... however, I shouldn't think so.

I KNOW that the combo list fills, the problem is that the value the user
slects is not getting assigned to it.

I have the static variable telling me if I am on the way Up or Down (i.e.,
dropped or closing up) because I didn't want the code which resets the combo
to fire on the way up.


Private Sub cboHardness_DropButtonClick()
Static UpDown As Boolean

If UpDown Then
GoTo Exit_Me
End If

'Application.EnableEvents = False I tried disabling
events but no help
Call Fill_DropDown("cbo1")
'Application.EnableEvents = True
Exit_Me:

UpDown = Not (UpDown)
End Sub

combo drop down code problem?
 

very sorry - got it working ... same code ... different problem.

"William Benson" wrote in message
...
Hi, having a bit of a problem with this code which is designed to fill a
dropbox as it is being clicked. The reason I do this is that the values
the combo can be depend on other combo selections. Maybe my problem is not
the code but rather some property of the combo... however, I shouldn't
think so.

I KNOW that the combo list fills, the problem is that the value the user
slects is not getting assigned to it.

I have the static variable telling me if I am on the way Up or Down
(i.e., dropped or closing up) because I didn't want the code which resets
the combo to fire on the way up.


Private Sub cboHardness_DropButtonClick()
Static UpDown As Boolean

If UpDown Then
GoTo Exit_Me
End If

'Application.EnableEvents = False I tried disabling
events but no help
Call Fill_DropDown("cbo1")
'Application.EnableEvents = True
Exit_Me:

UpDown = Not (UpDown)
End Sub