This is my code in the criteria in my query:

>=Date()-[Enter Days Back:]

Is there any way of setting a default value of lets say 30. If not what can I do?

Hi,

   You can do this by taking the parameter statemenet out of your query, and then using a button that calls an InputBox instead of the vb dialog box that the query uses:

For the button's On Click:
'==========
Dim strDays As String (or Long?)

strDays = InputBox("Enter Days Back:", vbOkOnly, "Caption")

IfIsNull(strDays) Then
   strDays = "30+ (or 30 if it is an integer)
End If

'then put your code to call the query or report using strDays
' in your link
' "[Days] = " & "'" & strDays & "'"
'or "[Days] = " & strDays if it is an integer
'==========

I think that should work.

HTH


mmcdonal

Sorry, that should be

strDays = "30"

not

strDays = "30+

mmcdonal