If there is no data msg box says "No Data"

[zaky]

Hi .
I have a search form where users put phone number to search,
what i want is if the phone number they are looking for is not there a message box that says "there is no such number".
Please if anyone...

Thanx.

 

[jfgambit]

Here is an example from another post in regards to opening a form based on data enterd in a textbox

HTH

 

[indesisiv]

try

Private Sub Form_Load()
Dim rst As Recordset
Set rst = Me.RecordsetClone
If rst.EOF Then
'MsgBox "Your Message Here.", vbOKCancel
If MsgBox("There are no forms matching this criteria", vbOKOnly, "No forms") = 1 Then
docmd.Close acForm,"formname"
End If
End If
End Sub

hope that helps
Steve

 

[jfgambit]

Steve:

Why would you put the code on the Form Load event?

 

[zaky]

Hi!!
I just want thank you "BOTH" jfgambit and indesisiv
for giving me your time. The sample just worked fine.You saved me lots of time.

thank you guys I realy appreciated....

 

[judgehopkins]

? for jfgambit

On your form, what code would I use if I wanted it to find a phone number, but I just knew part of it?

 

[indesisiv]

jfgambit: It is just the way that i had it set up in my database that i took the example from.

 

[Rich]

Why would you put the code on the Form Load event?

Why wouldn't one?

 

[judgehopkins]

jfgambit

Thanks! You have saved me hours of work!

 

[jfgambit]

Rich...

Private Sub Form_Load()
Dim rst As Recordset
Set rst = Me.RecordsetClone
If rst.EOF Then
'MsgBox "Your Message Here.", vbOKCancel
If MsgBox("There are no forms matching this criteria", vbOKOnly, "No forms") = 1 Then
docmd.Close acForm,"formname"
End If
End If

My misunderstanding, thought he was adding this to the form where he was entering the phone number...not the form that was loading after he entered the number....

 

[moose]

i have a similar problem to this only my search form opens a query and then opens a report based on that query.
when someone searches for a customer with no corresponding data i would like a message box to say no data available, and when the click ok, it will run the close event of the report
please help

 

[Rich]

Use the NoData event of the report
MsgBox"Some message"
Cancel=True

 

[moose]

how simple
1 problem, although this closes the report if there is no data, it doesn't launch the on close event of the report

 

[Rich]

Why would you want it to?

 

[moose]

the on close event performs other functions as well as closing the report

 

[Rich]

Then duplicate the code in the NoData event

 

[moose]

it's not code, it's a series of macros. dirty i know but im not too hot on writing vba code as you can tell