>Hello All,
>
[quoted text clipped - 3 lines]
>remain available to make another selection. No matter what I try I can get
>a message, so perhaps I am not doing it right. Any ideas???
So if qrySold happens to return no records...?
Try checking the query to see if it has records first. Add
Dim rs As DAO.Recordset
Dim db As DAO.Database
Set db = CurrentDb
before the executable statements, then open a recordset based on the query:
e.g.
Set rs = db.OpenRecordset("qrySold")
If rs.Recordcount = 0 Then
Msgbox "No data found!"
Else
Me.RecordSource = "qrySold"
End If
rs.Close
set rs = Nothing
and similarly for the other queries.
John W. Vinson [MVP]
Gina Whipp - 31 May 2007 06:42 GMT
Are you sying I should abandon my Select Case? Probably better anyway...

Signature
Gina Whipp
"I feel I have been denied critical, need to know, information!" - Tremors
II
> On Thu, 31 May 2007 00:53:56 -0400, "Gina Whipp"
> <NotInterested@InViruses.com>
[quoted text clipped - 35 lines]
>
> John W. Vinson [MVP]
Gina Whipp - 31 May 2007 06:51 GMT
John,
I think I misunderstood. I have never tried to open 3 seperate recordsets
in one AfterUpdate event, please explain...

Signature
Gina Whipp
"I feel I have been denied critical, need to know, information!" - Tremors
II
> On Thu, 31 May 2007 00:53:56 -0400, "Gina Whipp"
> <NotInterested@InViruses.com>
[quoted text clipped - 35 lines]
>
> John W. Vinson [MVP]
Gina Whipp - 31 May 2007 06:57 GMT
Okay, I'm slow... I got it big THANKS!!!!

Signature
Gina Whipp
"I feel I have been denied critical, need to know, information!" - Tremors
II
> On Thu, 31 May 2007 00:53:56 -0400, "Gina Whipp"
> <NotInterested@InViruses.com>
[quoted text clipped - 35 lines]
>
> John W. Vinson [MVP]
John W. Vinson - 31 May 2007 16:56 GMT
> I got it big THANKS!!!!
You're welcome, Gina!
John W. Vinson [MVP]