Set Default criteria to query

[quicova]

Hello everyone



I have a form with comboboxes as criteria to a query.
If the form is closed and I want to open the query it asks me for the values in the form.

Is there a way to set default values to open the query without having to open the form?

the reason for this is I want to put the form on a navigation Form, the form is a continuous Form with the data from the query.
I already set the default values for the form to "" but When I had the form to the navigation it keeps asking me for the criteria values for the query.
Every time I change tabs in the navigation form, it asks for the criteria values.

I'm guessing the problem is in the query, because it need the criteria values.
Thanks so much
Francisco

[friendlyfriend]

Hi Francisco,

I think there's a good chance I don't understand the problem, but how about this...

Function GetValue(ControlName As String, DefaultValue As Variant)
If IsOpen(Forms("MyFormName").Name) Then
    GetValue = Forms("MyFormName").Controls(ControlName)
Else
    GetValue = DefaultValue
End If
End Function


Function IsOpen(FormName As String, Optional intObjectType As Integer = acForm)
'Access 97
IsOpen = (SysCmd(acSysCmdGetObjectState, intObjectType, FormName) <> 0)


'Access 2000 and up
IsOpen = currentproject.allforms(FormName).IsLoaded
End Function

Then put

=GetValue("cboCompanyName","Microsoft")

or whatever into your query