RECORDSET

[PS]

FURTHER TO PREVIOUS POSTING
ANY THOUGHT OF WHAT I NEED TO ADD PLEASE

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = OpenRecordset("AnalyteAlias")
the above line of code says 'SUB OR FUNCTION NOT DEFINED'

 

[Dave Patrick]

These may help.

http://www.microsoft.com/accessdev/articles/daoconst.htm
http://www.microsoft.com/Accessdev/articles/bapp97/chapters/ba09_1.htm

--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

:
| FURTHER TO PREVIOUS POSTING
| ANY THOUGHT OF WHAT I NEED TO ADD PLEASE
|
| Dim db As Database
|
| Dim rs As Recordset
|
| Set db = CurrentDb
|
| Set rs = OpenRecordset("AnalyteAlias")
| the above line of code says 'SUB OR FUNCTION NOT DEFINED'
|

 

[Gordon Currie]

Dim db As Database

Dim rs As Recordset

Set db = CurrentDb

Set rs = OpenRecordset("AnalyteAlias")
the above line of code says 'SUB OR FUNCTION NOT DEFINED'

Set rs = db.OpenRecordset("AnalyteAlias")

and it should work fine. As long as you actually have a query called AnalyteAlias.

-Gordon

 

[Douglas J. Steele]

Set rs = db.OpenRecordset("AnalyteAlias")

and it should work fine. As long as you actually have a query called
AnalyteAlias.

As well, since they're using DAO, it would make sense to guarantee that the
objects are actually DAO.

Dim db As DAO.Database
Dim rs As DAO.Recordset

(Yes, I realize that the DAO.Database isn't strictly necessary, but it won't
cause an error to use it)