Help with If statments

[mattc66]

I have the following code and its working okay with one exception. I would
like to add a MsgBox if the stFrt is not one of the if statements. Also I am
not sure if I should be formating this using a Select Case vs IF.

See below Code:

Private Sub TrackingNum_dblClick(Cancel As Integer)

Dim stFrt As String
Dim stPro As String
Dim stHyp As String

stFrt = Me.Carrier
stPro = Me.TrackingNum

If stFrt = "YFT" Then
stHyp = "http://www.myyellow............
If stFrt = "YEL" Then
stHyp = "http://www.myyellow.com/.......
If stFrt = "UPS" Then
stHyp = "http://wwwapps.ups.com/........
If stFrt = "RWY" Then
stHyp = "http://www.quiktrak.roadway.......
If stFrt = "RDW" Then
stHyp = "http://www.quiktrak.roadway.......

Msgbox "Carrier Not Linked", vbInformation, "Carrier Not Found"

End If
End If
End If
End If
End If

 

[Steve C]

Hi Matt,

I think I would use a select case

Select Case stFrt
Case Is = "YFT","YEL"
stHyp = "http://www.myyellow............
Case Is = "UPS"
stHyp = "http://wwwapps.ups.com/........
Case Is = "RWY","RDW"
stHyp = "http://www.quiktrak.roadway.......
Case Else
Msgbox "Carrier Not Linked", vbInformation, "Carrier Not Found"
End Select

HTH
Steve C