How to display a Message

[seb]

Hello
I have a form based in a parameter Query
Between "*" & [Forms].[FSearc].[txtStart] Y [Forms].[FSearch].[txtEnd] & "*"



If the search does not retrieve records, how can I do to display in the Form this Message: "No records in database, Try again"

Many thanks in advance

[June7]

Maybe:
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No Records Found", vbExclamation
End If

[seb]

Maybe:
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No Records Found", vbExclamation
End If

Many Thanks
I tested the code in the command search button but an error 2467 is displayed and colouring in yellow If Me.RecordsetClone.RecordCount = 0 Then

Where do I can mark the thread as Solved?

Private Sub cmdSearch_Click()
DoCmd.OpenForm "FBuscar", acViewNormal
DoCmd.Close acForm, Me.Name
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No Records Found", vbExclamation
End If
End Sub

Thanks againg

[June7]

So the code is working? I had my fingers crossed when I posted that code - found on net but not tested.

On the menu bar of first post, under Thread Tools can choose Solved.

[seb]

June

The code is no working yet

I'm sorry my message is confused.English is not my mother tongue

I tested the code in the command search button. However, when I click the button an error 2467 is displayed and colouring in yellow the piece of code you send me:
If Me.RecordsetClone.RecordCount = 0 Then

The code I have for the search button works fine when it finds records:
Private Sub cmdSearch_Click()
DoCmd.OpenForm "FSearch", acViewNormal
DoCmd.Close acForm, Me.Name
End Sub

If I add your code
Private Sub cmdSearch_Click()
DoCmd.OpenForm "FBuscar", acViewNormal
DoCmd.Close acForm, Me.Name
'I add your code here
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "No Records Found", vbExclamation
End If
End Sub

My problem is that after clicking the button the error 2467 message is displayed.
Seems to be is my error. Where I must write your code?

Thanks again

[blueraincoat]

I think you should add the code right behind the query you mentioned, maybe just before closing the form

By the way why there's not condition in your open form syntax?

[June7]

I was able to get the RecordsetClone code to work. Check this article http://allenbrowne.com/casu-20.html

Instead of button event, use the form Open event of the form you want to open.

[seb]

I was able to get the RecordsetClone code to work. Check this article http://allenbrowne.com/casu-20.html

Instead of button event, use the form Open event of the form you want to open.

June
Thank very much. Now is working as I expected