Msgbox in a query with parameters

[seb]

Hello

I have a form (FSearch) based in a parameter query. When user enter data in the unbound txtboxes another form (FData) displays the query, however, if there are no records, the FData shows nothing.
I need to do the following:
1.When user run the query and there are no records in the db I need a message in FData "Your search has no records". Where do I have to write the instruction?Then I need to go back to the FSearch.

2. If records are found in the db, I need a txtbox saying in FData "Your search found xxx records".
Could you tell me how to do this two options?

Many thanks

[maximus]

I am attaching a small sample for you. Whe you open the db a start up form will open with a combobox and a list box.

When you select a skill level in the combo box two things happen:
1) A message box prompts how many records are there.
2) The records are displayed in the list box.

Code used:

On the AfterUpdate Event of the Combo Box:

Private Sub Combo10_AfterUpdate()
Dim intCount As Integer

intCount = IIf(IsNull(DCount("[ID]", "Sheet1", "[ID]=" & Me.Combo10)), 0, DCount("[ID]", "Sheet1", "[ID]=" & Me.Combo10))

Select Case intCount
Case Is = 0
MsgBox "There are no Records"
Case Is > 0
MsgBox "There are " & intCount & " Records"
End Select
Me.List14.Requery
End Sub

[seb]

Hi Maximus. Your sample works great. Thank you very much.
One more thing. How can I use the close button at the right upper corner of the form to close the form and return to FSearch form?

Thanks again

[maximus]

On the on close event you have to put

Docmd.openForm

put the form name

so when you close the form the other one opens.

[maximus]

mark the thread solved.

[seb]

Maximuss.
Excellent. Now I have what user needs.
Many thanks again

[maximus]

please mark this thread solved. this will help someone else with the same problem.

[maximus]

Mark the thread solved. Please.........................................