What do you mean by "does not clear CboSubMechanism"? Are you saying that
CboSubMechanism still has a row selected in it, or are you simply that
CboSubMechanism still has content?
To unselect from CboSubMechanism, use
Me!CboSubMechanism = Null
To ensure CboSubMechanism has no data in it, use
Me!CboSubMechanism.RowSource = vbNullString
Me!CboSubMechanism.Requery
--
Doug Steele, Microsoft Access MVP
http://www.AccessMVP.com/DJSteele
(no e-mails, please!)
"Joe" wrote in message
...
Hi -
I have a subform with two combos CboMechanism with row source =
TblMechanism
and CboSubMechanism dependent on selection in CboMechanism using the
following code in CboMechanism Afer Update event...
Private Sub CboMechanism_AfterUpdate()
On Error Resume Next
Select Case CboMechanism.Value
Case "7"
CboSubMechanism.RowSource = "tbl_SubMechEquipt"
Case "9"
CboSubMechanism.RowSource = "tbl_SubMechFall"
Case "10"
CboSubMechanism.RowSource = "tbl_SubMechLift"
Case "11"
CboSubMechanism.RowSource = "tbl_SubMechParachute"
Case "14"
CboSubMechanism.RowSource = "tbl_SubMechSlip"
Case "16"
End Select
This works well when the cases are selected but does not clear
CboSubMechanism when a non-case selection is made.
I tried adding CboSubMechanism.RowSource = "tbl_SubMechMTA" in the After
Update but it doesn't really resolve the problem. I've tried requerying
in
after update event without it resolving the issue.
I would be grateful for any guidance offered.
--
Joe