Recordset TypeMismath Error :(

[Chris]

Hi I have an odd problem

I have a table that I wish to open and loops though the
records one by one and using that record info export the
information.

I am gettting a type mismach error "runtime error 13" on
the following code on opening the table:


Dim strsql As String
Dim db As Database
Dim rs As Recordset


gAppPath = CurrentProject.Path

strsql = "SELECT Distinct tblSiteNames.SiteCode,
tblSiteNames.SiteName FROM tblLSiteNames; "

Set db = CurrentDb
Set rs = db.OpenRecordset(strsql)

I have tried adding dbOpenDynaset, dbOpenSnapshot, or
dbOpenTable with same result. I do not want to update the
table just read the info one record at a time.

Thanks in advance

 

[Allen Browne]

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

Explanation:
http://allenbrowne.com/ser-38.html

 

[Guest]

Thanks

That worked.

Chris

-----Original Message-----
Try:
Dim db As DAO.Database
Dim rs As DAO.Recordset

Explanation:
http://allenbrowne.com/ser-38.html

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

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




.