How do I close a form, programmatically if it has no data? 1

[gadsbywc]

I have a form that gets the data from a select query. The form is opened upon startup. I want the form to close immediately if the resulting query has no data. I have tried to use the "IsNull" on various controls of the form, with no response. The form remains open, with no data.
Here is an example:

Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.Sub_To_Date) Then
DoCmd.Close
End If
End Sub

Any assistance will be greatly appeciated.

Bill Gadsby
Programmer/Analyst
bill.gadsby@co.bell.tx.us

 

[FancyPrairie]

check the recordcount of the recordset. for example,

If (Me.Recordset.RecordCount = 0) then
DoCmd.Close
end if

Not sure whether you need to put this in the OnLoad event of the form or the OnOpen event.

 

[gadsbywc]

Thanks FancyPrrairie, It worked perfect. I put it in the OnOpen event. Kudos to you!