Further Validation Help [Resolved]

[teamdad]

I have been looking for syntax help with this:

If Val(TextBox1.Text) = (1,99) Then
            TextBox2.Focus()
        End If

I would like the the part in red to cause the focus to change when text box 1 value = any of the numbers from 1 to 99.

Thoughts.....

[cphoenixc]

From the top of my head, didn't check code, just typed it

If InRange(Val(TextBox1.Text)) Then
TextBox2.Focus()
End If

function InRange(value as integer) as boolean
dim i as integer

for i = 1 to 99 do
if value = i then
InRange = true
exit function
end if
next

InRange = false
end function


If you can't find a standard function, make your own

[taxes]

Hi,

Hope this is not too simple:

If Val(TextBox1.Text) >=1 and val(TextBox1.Text)<=99 Then
            TextBox2.Focus()
        End If

[cphoenixc]

D@mn I think too complicated

If it works the same, always go for the solution with less code

[teamdad]

It works great.... I don't know what I would ever do without the help I have gotten from this forum.

I just thought I had ran accross something somewhere with a format from my first post that validated a range of numbers.... maybe it was a range of letters?? Who knows what I think.

[taxes]

Originally posted by teamdad
It works great.... I don't know what I would ever do without the help I have gotten from this forum.

I just thought I had ran accross something somewhere with a format from my first post that validated a range of numbers.... maybe it was a range of letters?? Who knows what I think.

MSDN HELP does mention the use of ranges for all types except Boolean using the format 1 to 99, but I can't figure out how to use it

If you are going to check the entries in several textboxes and/or want to check against more than one range, then a slight amendment to cphoenixc's suggestion is appropriate:

If InRange(Val(TextBox1.Text), 1, 99) Then
TextBox2.Focus()
End If
 
function InRange(value1 as integer, range1 As Integer, Range2 As Integer) as boolean
If value1>=range1 and value1,=99 then 
  return True
Else
  Return False
End If
End Sub

I altered "Value" to "Value1" because you should never use a key word as an integer name.