if there are records open form

[GabberGod]

i need some help, basicly what im trying to do is:

if a field is changed, run a query, if this selects 1 or more record, open a form.

 

[jaydeebetoo]

I use this code to open a form if the query qryOverdue returns records. Use the dcount function to count the number of records returned by the query. If there are any then form is opened, else nothing happens.

Private Sub Form_Open(Cancel As Integer)

Dim count As Integer
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmOverdue"
count = DCount("ID", "qryOverdue")

If count > 0 Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

End Sub

 

[chiefvj]

What happens if you have a parameter included in the query/ I get a message asking for the parameter.
chiefvj

 

[jaydeebetoo]

What is the parameter's source? A text box, a dialog ?

You could set the parameter to accept no input by adding

Parameter Or parameter Is Null

to the criteria in design grid, where parameter is whatever your parameter source is.