do not open form (or close it) if data source is empty 1

[daybase]

Easy one I am certain but I cannot solve it - I have a form based on a query and all works well but if the query returns no results I get a blank form - how can I prevent the form opening (or make it close) if there is no data present?

I have tried

Private Sub Form_Load()
If IsNull(me.address) Then
MsgBox "There is nothing to display"
DoCmd.Close
End If
End Sub

But no joy - any ideas?

 

[Andrzejek]

What do you mean by "no joy"?
Do you get to Form_Load logic?
Do you get "There is nothing to display" message box?
What application are you using: Excel, Access, Word?


Have fun.

---- Andy

 

[missinglinq]

Maybe something like this:

Private Sub Form_Open(Cancel As Integer)
Dim Msg As String
Dim intX As Integer

intX = DCount("[YourPKField]", "YourQueryName")
  If intX < 1 Then
   Msg = "There Were No Records Returned By This Query"
   MsgBox Msg, vbOKOnly + vbInformation  
   DoCmd.Close acForm, "YourFormName"
End If
End Sub

The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!