How to Force an Input Value in a Query

[Proaccesspro]

Hello All,

I've created a report that lists un-filled orders by age (in days). When the user clicks on the report it will ask them to input the number of days. (If the user wanted to see all un-filled orders over the last 30 days, they would input 30) However, If the user fails to enter a value, I get run-time error number 3071. My question is is there a way to FORCE the user to enter a value in order to prevent the run-time error?

[Dan2kx]

if they are entering the value into a form you could set an on exit command (from the textbox) in VB such as

If IsNull(Me!txtBoxInput) Then
msgbox "please enter a value"
docmd.cancelevent '- to set focus on the textbox again
else
exit sub

[ADezii]

Hello All,

I've created a report that lists un-filled orders by age (in days). When the user clicks on the report it will ask them to input the number of days. (If the user wanted to see all un-filled orders over the last 30 days, they would input 30) However, If the user fails to enter a value, I get run-time error number 3071. My question is is there a way to FORCE the user to enter a value in order to prevent the run-time error?

1. Reports do not acknowledge the Click() Event.
2. To force a User to enter a legitimate value for the Number of Days between 1 and 30, and to also allow him/her the option of selecting Cancel or OK with no value entered, try:
   

   Dim strNumOfDays As String, blnAcceptableValue As Boolean
   Dim intNumberOfDays As Integer
    
   Do
     strNumOfDays = InputBox$("Enter some value", "Enter Something or Other")
     If strNumOfDays = "" Then Exit Sub
       If IsNumeric(strNumOfDays) And Val(strNumOfDays) > 0 And Val(strNumOfDays) <= 30 Then
         blnAcceptableValue = True
           intNumberOfDays = Val(strNumOfDays)
       Else
         blnAcceptableValue = False
       End If
   Loop Until blnAcceptableValue
    
   'Use intNumberOfDays for further processing

[Proaccesspro]

1. Reports do not acknowledge the Click() Event.
2. To force a User to enter a legitimate value for the Number of Days between 1 and 30, and to also allow him/her the option of selecting Cancel or OK with no value entered, try:
   

   Dim strNumOfDays As String, blnAcceptableValue As Boolean
   Dim intNumberOfDays As Integer
    
   Do
     strNumOfDays = InputBox$("Enter some value", "Enter Something or Other")
     If strNumOfDays = "" Then Exit Sub
       If IsNumeric(strNumOfDays) And Val(strNumOfDays) > 0 And Val(strNumOfDays) <= 30 Then
         blnAcceptableValue = True
           intNumberOfDays = Val(strNumOfDays)
       Else
         blnAcceptableValue = False
       End If
   Loop Until blnAcceptableValue
    
   'Use intNumberOfDays for further processing

Not sure where to put the code.....I am running a query to retrieve the data. In the date field I have this in the criteria line

>=DateAdd("d",-[Enter Age Of Appeal In Days],Date())

this forces the user to input a number ANY NUMBER.

[ADezii]

Not sure where to put the code.....I am running a query to retrieve the data. In the date field I have this in the criteria line

>=DateAdd("d",-[Enter Age Of Appeal In Days],Date())

this forces the user to input a number ANY NUMBER.

Sorry, misunderstood, but I'll have another look at it later.

[MMcCarthy]

Change this line of code ...

>=DateAdd("d",-[Enter Age Of Appeal In Days],Date())

to

>=DateAdd("d",-nz([Enter Age Of Appeal In Days],0),Date())

This will default the number of days to 0 if the user doesn't enter any number. No records will be returned but no error will show.

You can change to 0 to any number (e.g.) 30 if you wish to have a default setting.