Use of wildcard in "Case" statement

[CCRT]

The following snipet of code is from the second tier of 3 cascading combo boxes.

Id like to know if there is a way to use a wildcard instead of typing each Case senerio.

Example: Instead of listing each case "No Power", "No Display", "Error 1" for Electrical problems. I would add a prefix ("E-")to the items in their table ( "E-No Power", "E-No Display", "E-Error 1".....)


Then use one line of code like:
'Direct all Cases that start with "E-" to the table "tblElectricalDetail"
***************************************************
Select Case cboProbLevel1.Value
Case "E-*"
cboProbLevel2.RowSource = "tblElectricalDetail"

********************************************************
I was not sucessful getting the above to work.

' Current code snipet

Private Sub cboProbLevel1_AfterUpdate()
   On Error Resume Next
 
   Select Case cboProbLevel1.Value
      Case "No Power"
        cboProbLevel2.RowSource = "tblElectricalDetail"
      Case "No Display"
        cboProbLevel2.RowSource = "tblElectricalDetail"
      Case "Error 1"
       cboProbLevel2.RowSource = "tblElectricalDetail"
       Case "Latch"
       cboProbLevel2.RowSource = "tblMechanicalDetail"
   End Select

End Sub

Thanks
--Dave

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

 

[PHV]

Select Case Left(cboProbLevel1.Value, 2)
Case "E-"
cboProbLevel2.RowSource = "tblElectricalDetail"


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

 

[JerryKlmns]

Private Sub cboProbLevel1_AfterUpdate()
On Error Resume Next

Select Case cboProbLevel1.Value
Case "Latch"
cboProbLevel2.RowSource = "tblMechanicalDetail"
Case Else
cboProbLevel2.RowSource = "tblElectricalDetail"
End Select

End Sub

or

Private Sub cboProbLevel1_AfterUpdate()
On Error Resume Next

IF cboProbLevel1.Value = "Latch" Then
cboProbLevel2.RowSource = "tblMechanicalDetail"
Else
cboProbLevel2.RowSource = "tblElectricalDetail"
End If

End Sub

 

[SkipVought]

FYI,

Your original code, as stated, can be simplified...

   Select Case cboProbLevel1.Value
      Case "No Power","No Display","Error 1","Latch"
        cboProbLevel2.RowSource = "tblElectricalDetail"
   End Select

Skip,

_{[red]A palindrome gone wrong?[/red]
A man, a plan, a ROOT canal...
PULLEMALL!}

 

[CCRT]

Thanks very much to all.

--Dave

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