Display Message if No Data Exist through Query / Form

[Sanjaylml]

I have created a form, which has 'Query' datasource.

I want a message if query does not show any record, as occured in report of 'On No Data'

[missinglinq]

Use DCount() to check for records returned by query:

Private Sub Form_Open(Cancel As Integer)
Dim Msg As String
Dim intX As Integer
 
intX = DCount("[PrimaryKeyField]", "YourQueryName")
If intX < 1 Then
Msg = "No Records are Returned by the Query"
MsgBox Msg, vbOKOnly + vbInformation
DoCmd.Close acForm, "YourFormName"
End If
End Sub
 

Linq ;0)>

[Jim Doherty]

I have created a form, which has 'Query' datasource.

I want a message if query does not show any record, as occured in report of 'On No Data'

Not sure whether you want it for form or report so heres both

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
    If Me.RecordsetClone.RecordCount = 0 Then
    MsgBox "No records to support form display", vbExclamation, "System Message"
    DoCmd.CancelEvent
    Exit Sub
    End If
Exit Sub

and one for the reports on nodata event

Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next
    Cancel = True
MsgBox "No records to support report", vbExclamation, "System Message"
End Sub