Solved

Field Validation Not working

Posted on 2006-07-13
3
225 Views
Last Modified: 2010-04-30
Hi,
I'm using vbsript in an HTML page.  I want to first determine if the texbox (AGE) is empty and then determine if the value used is only numeric.  If numeric does the number fall between 0 and 64, then I will set the value to to form17.   I think it's the IsNumeric function and nested If statment that is causing the problem.  Is there a better way to do this? I have assigned 500 point value because the request urgent.   As always, thanks for your help!  


Example:
form17 = main.AGE.value
      If IsEmpty(main.AGE.value) Then
         MsgBox ("CAN NOT CONTINUE - MISSING AGE")
         Exit Sub
      ElseIf len(main.AGE.value) = 0 Then
         MsgBox ("CAN NOT CONTINUE - MISSING AGE")
       Exit Sub
      ElseIf IsNumeric(main.AGE.value)
            If (main.Age.Value) > 0 And <= 64
                     form17 = main.AGE.value
                  Else
                     MsgBox ("CAN NOT CONTINUE - AGE MUST BE BETWEEN 0 AND 64")
                  Exit Sub
            End If
      Else
         MsgBox ("CAN NOT CONTINUE - USE ONLY NUMERIC VALUES FOR THE AGE")
         Exit Sub
      End If
0
Comment
Question by:MoJeaux39
3 Comments
 
LVL 52

Accepted Solution

by:
Carl Tawn earned 500 total points
ID: 17104224
There are a couple of syntax errors in this block:

      ElseIf IsNumeric(main.AGE.value)
          If (main.Age.Value) > 0 And <= 64
                   form17 = main.AGE.value
                Else
                   MsgBox ("CAN NOT CONTINUE - AGE MUST BE BETWEEN 0 AND 64")
               Exit Sub
          End If

Whether these are just paste errors or typos, but it should say:

      ElseIf IsNumeric(main.AGE.value) Then
          If (main.Age.Value) > 0 And (main.Age.Value) <= 64 Then
                   form17 = main.AGE.value
                Else
                   MsgBox ("CAN NOT CONTINUE - AGE MUST BE BETWEEN 0 AND 64")
               Exit Sub
          End If
0
 
LVL 9

Expert Comment

by:smidgie82
ID: 17104249
Hi MoJeaux39,

Is this the exact code you're using?  are you getting a particular error message?  I see a few syntax errors that, in the absence of more information, I assume could be causing your problem.  Try the following:

form17 = main.Age.Value
      If IsEmpty(main.Age.Value) Then
         MsgBox ("CAN NOT CONTINUE - MISSING AGE")
         Exit Sub
      ElseIf Len(main.Age.Value) = 0 Then
         MsgBox ("CAN NOT CONTINUE - MISSING AGE")
      Exit Sub
      ElseIf IsNumeric(main.Age.Value) Then
          If (main.Age.Value > 0) And (main.Age.Value <= 64) Then
                   form17 = main.Age.Value
                Else
                   MsgBox ("CAN NOT CONTINUE - AGE MUST BE BETWEEN 0 AND 64")
               Exit Sub
          End If
      Else
         MsgBox ("CAN NOT CONTINUE - USE ONLY NUMERIC VALUES FOR THE AGE")
         Exit Sub
      End If


Note the addition of "Then" at the end of an "ElseIf" and the following "If" lines.  And the reformatting of your "If (main.Age.Value) > 0 And <= 64" line.

Cheers!
0
 

Author Comment

by:MoJeaux39
ID: 17104274
Thank you for the prompt response!  It's unfortunate, but they were typo's in the script.  I works fine now.  =)  
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

820 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question