connected combo boxes (text in the second combo dissapears)

V

vahid

Hi,
I have 2 combo boxes in a subform as datasheet. the second one (moinID)
gets its value from the first(KolID) by executing moinID.RowSource="Select...
" in MoinID_gotfocus.
When mouse moves over Combo2 column in the datasheet , its contents
dissapears.

default value of cm2 at design time is:
Cmb2.rowsource="SELECT Moin.MoinID, Moin.MoinName FROM Moin;"

when Combo2 gets focus:

Private Sub MoinID_GotFocus()
MoinID.RowSource = "SELECT Moin.MoinID, Moin.MoinName FROM Moin WHERE
(((Moin.KolID)=[Forms]![Journal1]![Journal2 Subform].[Form]![KolID]));"
End Sub

Regards
V.Seyedan
 
Top