Solved

Field Validation Not working

Posted on 2006-07-13
3
207 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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

Suggested Solutions

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

863 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now