Public WithEvents clsCbo As MSForms.ComboBox

Private Sub clsCbo_Change()
Call sbCboFil(clsCbo, g_DB, a.fnsrJi(clsCbo), True)
End Sub
the upper source is possible

but, below source is impossible
Private Sub clsCbo_Enter()
Call sbCboFil(clsCbo, g_DB, g_qryGetBonjeom)
End Sub
i want to make the Enter event code.




*** Sent via Developersdex http://www.developersdex.com ***

You cannot just invent events that you wish to use; you can only respond to
those generated by your object.
In your object module, the combo box at the top right lists available
events.

NickHK

"x taol" wrote in message
...


Public WithEvents clsCbo As MSForms.ComboBox

Private Sub clsCbo_Change()
Call sbCboFil(clsCbo, g_DB, a.fnsrJi(clsCbo), True)
End Sub
the upper source is possible

but, below source is impossible
Private Sub clsCbo_Enter()
Call sbCboFil(clsCbo, g_DB, g_qryGetBonjeom)
End Sub
i want to make the Enter event code.




*** Sent via Developersdex http://www.developersdex.com ***