How can one force to add a value in a inputbox on microsoft access 2013

hi

i have a form in microsoft access that when i press on a button it's opening an iputbox that ask "what is the value ". and i want to force the user to put the value 1 or 2, and if he don't enter it this will show up an msgbox that he must to put a value between 1-2, and when he will press ok  the inpubx will show up again like an endless loop, and the user can stop it only when he press on the cancel on the inputbox button


dim a as long
a = clng(inpubox("press a value between 1-2")
if not a>0 or not a <3 then
msgbox "you must ot enter a value between 1-2
inputbox again

Open in new window

bill201Asked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Rey Obrero (Capricorn1)Connect With a Mentor Commented:
Dim a As Long
Do
a = CLng(InputBox("press a value between 1-2"))
     If Not a > 0 Or Not a < 3 Then
          MsgBox "you must enter a value between 1-2"
          Else
          Exit Do
     End If
Loop
0
 
Dale FyeConnect With a Mentor Commented:
Although I generally frown on the use of inputbox, preferring forms for entering critical information like this, the only way to "force" a valid entry is to do it within a loop like Rey has recommended.

When I do this, I generally add a loop counter and after the user incorrectly enters a value 3 times, I present them with a different message and then force them out of the procedure that needed that value.
0
 
bill201Author Commented:
thanks a lot
0
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.

All Courses

From novice to tech pro — start learning today.