Return reference to current database?

[Leonard]

This code worked fine in Access 2000 but doesn't seem to
work in Access 2002. Is this correct? If so what is my
alternative.

Any and all help apprciated.

' Return reference to current database.
'
Dim dbs As Database, rst As Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("MyQuery")

If rst.RecordCount >= 1 Then
Blah...Blah...Blah
Else
Blah...Blah...Blah
End If

 

[Allen Browne]

From any code window, choose References on the Tools menu.

Check the box beside:
Microsoft DAO 3.6

 

[Leonard]

Thanks Allen

-----Original Message-----
From any code window, choose References on the Tools menu.

Check the box beside:
Microsoft DAO 3.6

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.



.