T
Theresa
Hi:
I have 2 combo boxes on a subform, cboRepl_Fixture and cboLamp. I have the
following code in the AfterUpdateEvent of cboRepl_Fixture:
Private Sub cboRepl_Fixture_AfterUpdate()
Me.cboLamp.RowSource = "SELECT Lamp FROM" & _
"Replacement_Lamp_tbl WHERE Repl_Fixture_ID = " & Me.cboRepl_Fixture
& _
"ORDER BY Lamp"
Me.cboLamp = Me.cboLamp.ItemData(0)
End Sub
When I view my subform, cboLamp is blank. I have adjusted the number of
columns to 2 and adjusted the width to see both, but it is still blank.
What am I doing wrong?
Thanks,
I have 2 combo boxes on a subform, cboRepl_Fixture and cboLamp. I have the
following code in the AfterUpdateEvent of cboRepl_Fixture:
Private Sub cboRepl_Fixture_AfterUpdate()
Me.cboLamp.RowSource = "SELECT Lamp FROM" & _
"Replacement_Lamp_tbl WHERE Repl_Fixture_ID = " & Me.cboRepl_Fixture
& _
"ORDER BY Lamp"
Me.cboLamp = Me.cboLamp.ItemData(0)
End Sub
When I view my subform, cboLamp is blank. I have adjusted the number of
columns to 2 and adjusted the width to see both, but it is still blank.
What am I doing wrong?
Thanks,