Link to external dbIII file, second try

P

Pierre

Hi all, second post,

I have this problem and the name of my file is 01employ.dbf, a legal dos
filename
I also change all directory name to less than 8 char without spaces to be
safe.

Public Function OpenForSeekDbf(Tablename As String) As Recordset

Set Openforseek = DBEngine.Workspaces(0).OpenDatabase _
("dBase III;HDR=NO;IMEX=2;" +
Mid(CurrentDb().TableDefs(Tablename).Connect, 25) _
, False, False, "").OpenRecordset(Tablename,
dbOpenTable)
End Function

if i call set rst=openforseek("01EMPLOY")
i have an error message invalid file name

Any clue why?

regards,
Pierre
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top