What is wrong with SELECT CASE?

[CutePretty]

Is Select Case code work this way? Although the number is available within the Select Case, it reads only CASE ELSE and prompt me a messagbox according below. What is wrong?

Private Sub txtantdriver_Validate(Cancel As Boolean)
Dim Number As Integer
 
Select Case Number
 
    Case "1"
    txtantdriver.Text = "The Insured."
    
    Case "2"
    txtantdriver.Text = "Any other person who is driving on the Insured's order or with his permission."
 
    Case "3"
    txtantdriver.Text = "Ant person who is driving on the Insured order or with permission."
    
    Case "4"
    txtantdriver.Text = "Any other person provided he is in the PolicyHolder employ is driving on his order or with his permission."
 
    Case "5"
    txtantdriver.Text = "Any person provided he is in the PolicyHolder employ and is driving on thier order or with their permission."
    
    Case Else
    MsgBox "Case Number not found. Please Try again", vbExclamation, "Case Number"
 
End Select

[Leather]

You are comparing an integer to a string...

Remove the quotes from around the numbers...

Case "1"

Should be

Case 1

[CutePretty]

Leather, i did that but i still face the same problem.

[Edneeis]

Well since you dim the number and then ask it's value wouldn't it be zero and thus be else?

Dim Number As Integer
 
Select Case Number
Case 0
  msgbox Number
End Select

[Leather]

Well spotted Edneeis... I should have clocked that one, a bit early in the morning though.

Cutepretty... You have just created the variable "Number" so it will always be zero when the select block runs...


Add this debug line..

Dim Number As Integer

Debug.Print "Number Currently: " & Number

Select Case Number

[CutePretty]

yeah, it is always Zero. So how do i get this work?

[Leather]

Eh?

Well you need to retrieve the number from somewhere...

What does the number relate to?

[darre1]

i.e.

Private Sub cbxAntDriver_Validate(Cancel As Boolean)
 
Select Case cbxAntDriver
    Case 1:
        txtantdriver.Text = "The Insured."
    Case 2:
        txtantdriver.Text = "Any other person who is driving on the Insured's order or with his permission."
    Case 3:
        txtantdriver.Text = "Ant person who is driving on the Insured order or with permission."
    Case 4:
        txtantdriver.Text = "Any other person provided he is in the PolicyHolder employ is driving on his order or with his permission."
    Case 5:
        txtantdriver.Text = "Any person provided he is in the PolicyHolder employ and is driving on thier order or with their permission."
    Case Else
        MsgBox "Case Number not found. Please Try again", vbExclamation, "Case Number"
End Select

[CutePretty]

Leather,
User has to enter the number in a textbox named txtantdriver.

[Leather]

Ok so you need to retrieve the contents of teh text box...


Dim Number as integer

' Check that the user has made a valid entry.
If isNumeric(txtantdriver.Text) = False Then
msgbox "You must enter a number.",vbokonly,"Invalid Input"
txtantdriver.SetFocus
Exit Sub
End if

' Convert the text into an integer.
Number = cInt(txtantdriver.Text)


Select Case Number
etc....

[CutePretty]

thanks Leather. darre1, gave me the solution. Try his solution. anyway, tx everyone

[darre1]

welcome