Synchronizing Cascading Combo Boxes

[CCRT]

I have a form with 3 cascading combo boxes
cboProblemMain
cboProbLevel1
cboProbLevel2

It works fine unless the user decides to go back and change the cboProblemMain or cboProbLevel1 after initial input. Then they are out of sync. Is there anything I can add to my code that will refresh to a blank field or force the user to revisit the out of sync fields?
Thanks
--Dave

Private Sub cboProblemMain_AfterUpdate()
   On Error Resume Next
   Select Case cboProblemMain.Value
      Case "Electrical"
        cboProbLevel1.RowSource = "tblElectrical"
      Case "Mechanical"
        cboProbLevel1.RowSource = "tblMechanical"
      Case "Documentation"
       cboProbLevel1.RowSource = "tblDocumentation"
   End Select   
     
End Sub

Private Sub cboProbLevel1_AfterUpdate()
   On Error Resume Next
 
   Select Case Left(cboProbLevel1.Value, 2)
      Case "E-"
        cboProbLevel2.RowSource = "tblElectricalDetail"
      Case "M-"
        cboProbLevel2.RowSource = "tblMechanicalDetail"
      Case "D-"
        cboProbLevel2.RowSource = "tblDocumentationDetail"
        
    End Select

End Sub

http://home.comcast.net/~ccrt-racing/ccrt.htm

 

[PHV]

In cboProblemMain_AfterUpdate add the following line at the end:
cboProbLevel2.RowSource = ""

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886