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 ***