No Records Found

[amywolfie]

I am trying to code a custom dialog when "No Records Are Found" on a Find button.

This is the code I have so far -- I'm getting an error 91:

Function NoRecordsFound()

On Error GoTo Error_Handler:

Dim rstFees As Recordset

rstFees.MoveLast

If rstFees.RecordCount = 0 Then
MsgBox "Sorry no records found."

End If

rstFees.Close

Exit Function

Error_Handler:
MsgBox Err.Description & Err.Number

End Function
==
Thanks!

amy
=

[Deano]

amywolfie wrote:

I am trying to code a custom dialog when "No Records Are Found" on a
Find button.

This is the code I have so far -- I'm getting an error 91:

Function NoRecordsFound()

On Error GoTo Error_Handler:

Dim rstFees As Recordset

rstFees.MoveLast

If rstFees.RecordCount = 0 Then
MsgBox "Sorry no records found."

End If

rstFees.Close

Exit Function

Error_Handler:
MsgBox Err.Description & Err.Number

End Function
==
Thanks!

amy
=

You haven't Set rstFees to anything.

e.g Set rstFees = Me.recordsetclone

Also I think rstFees.MoveLast might throw up an error if there are no
records but you should set the recordset variable first and then try again..