Change Parameter Criteria to Visual Basic 1

[Garridon]

I have a keyword search in my database that uses a query to trigger a paramenter box. This is what's in the field:

Like "*" & [Enter Keyword to Search For] & "*"

It then opens a form that displays all the records that meet the keyword.

Unfortunately, if the user types in a keyword that isn't in a record, the form still opens to no records. I'd like to convert the parameter criteria to visual basic so that if no records are found, a message box could be triggered instead of the using getting the blank form. However, I'm still a beginner at Visual Basic. Can anyone help?

Thanks!

Linda Adams
Visit my web site for writing and Microsoft Word tips:

http://www.hackman-adams.com

Official web site for actor David Hedison:

http://www.david-hedison.com

 

[mrf1xa]

Linda

You could try this in the 'No Data' event of the report instead of modifying your search criteria. You may need to modify the message text but what it does is to cancel the report opening and flash up a message if the report would show no data.

On Error GoTo ErrorHandler
Dim str As String
str = MsgBox("No records exist for the period selected", vbOKOnly + vbInformation, "No Data&quot

Cancel = True

ExitReport:
Exit Sub

ErrorHandler:
MsgBox Err.Description
Resume ExitReport

Hope it helps

Nigel

 

[Garridon]

A great idea. However, I'm working with forms, not reports, and the On No Data event procedure isn't available for forms.

Linda Adams
Visit my web site for writing and Microsoft Word tips:

http://www.hackman-adams.com

Official web site for actor David Hedison:

http://www.david-hedison.com

 

[rajeessh]

In Form Open
If the form is bound check

If Me.RecordSetClone.RecordCount = 0 Then
Cancel = true
Exit Sub
End if

 

[Garridon]

Thanks, Rajeessh! This did just what I was looking for.
Linda Adams
Visit my web site for writing and Microsoft Word tips:

http://www.hackman-adams.com

Official web site for actor David Hedison:

http://www.david-hedison.com