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:

Expand|Select|Wrap|Line Numbers

 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

Quote:

Originally Posted by 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'

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

Expand|Select|Wrap|Line Numbers

 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

Expand|Select|Wrap|Line Numbers

 Private Sub Report_NoData(Cancel As Integer)

On Error Resume Next

    Cancel = True

MsgBox "No records to support report", vbExclamation, "System Message"

End Sub

Display Message if No Data Exist through Query / Form

re: Display Message if No Data Exist through Query / Form

re: Display Message if No Data Exist through Query / Form

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about