Solved

Validate data in an inputbox

Posted on 2007-11-20
2
525 Views
Last Modified: 2013-11-27
I think I'm making this harder than what it is.
I would like to prompt the user for an integer that represents a month. Ex - 9 for September
and have some data validation. However, I seem to be caught in the if statement.

Suggestions are greatly appreciated.


Do
   
    Check = False
    
    If ReportMonthInt < 1 Or ReportMonthInt > 12 Then
    
     Check = True
     
     MsgBox "Please enter a valid integer value for a month between 1 and 12.", vbOKCancel
      If vbOKCancel = 2 Then
       Exit Sub
       End If
      
     ReportMonth = InputBox("Enter the numeric month to query?", "Report Month", DefaultMonth)
      If ReportMonth = "" Then
       Exit Sub
       End If
        
     Else: Check = False
     
    End If
   
 Loop While Check = True

Open in new window

0
Comment
Question by:TylerDerden
2 Comments
 
LVL 2

Accepted Solution

by:
geekspeaknow earned 250 total points
ID: 20321761
I would do this within the properties part of the combo box.  Right click on the combo box and go to Properties, go to the Data tab.  The 3rd choice of Row Source Type, pick Value List.  In Row Source, Type 1;2;3;4;5;6;7;8;9;10;11;12 (You would need code for a longer list, but this should work for what you need).  Then change the Limit To List box to Yes.  Let me know if this works for you.  Thanks!
0
 
LVL 10

Expert Comment

by:LennyGray
ID: 20322305
See the attachment
Public Function FigureTheMonth(sTheMonth As Variant)
Dim bStatus As Boolean
 
    
    Select Case CInt(nz(sTheMonth, 0))
        Case 1 To 12
            bStatus = True
        Case Else
            bStatus = False
    End Select
 
MsgBox "Status = " & bStatus
    
End Function

Open in new window

0

Featured Post

U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Access 2016 importing text files 13 21
Access 2016 7 33
Change each COMMAND BUTTON's color, on particular forms, based on GOT FOCUS/LOST FOCUS 5 43
DCount Type Mismatch 2 22
In the previous article, Using a Critera Form to Filter Records (http://www.experts-exchange.com/A_6069.html), the form was basically a data container storing user input, which queries and other database objects could read. The form had to remain op…
Experts-Exchange is a great place to come for help with solutions for your database issues, and many problems are resolved within minutes of being posted.  Others take a little more time and effort and often providing a sample database is very helpf…
Familiarize people with the process of utilizing SQL Server views from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Access…
In Microsoft Access, learn different ways of passing a string value within a string argument. Also learn what a “Type Mis-match” error is about.

770 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