Solved

Validate data in an inputbox

Posted on 2007-11-20
2
522 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

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

It took me quite some time to sort out all the different properties of combo and list boxes available from Visual Basic at run-time. Not that the documentation is lacking: the help pages are quite thorough and well written. The problem was rather wh…
I originally created this report in Crystal Reports 2008 where there is an option to underlay sections. I initially came across the problem in Access Reports where I was unable to run my border lines down through the entire page as I was using the P…
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

746 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

12 Experts available now in Live!

Get 1:1 Help Now