Improve company productivity with a Business Account.Sign Up

x
?
Solved

Field Validation Not working

Posted on 2006-07-13
3
Medium Priority
?
247 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 2000 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: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

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.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…

595 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