Link to external dbase III file

[Pierre]

Hi all,

I have

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("01employe")
i have an error message invalid file name

Any clue why?

regards,
Pierre

 

[Andi Mayer]

Hi all,

I have

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("01employe")
i have an error message invalid file name

your name has 9 Digits, I think only 8 are allowed, you have to use
the DOS-shortname

If you expect an answer to a personal mail, add the word "manfred" to the first 10 lines in the message
MW

 

[Cindy Winegarden]

Hi Pierre,

I'm not sure about dBase III but FoxPro doesn't like table names that begin
with anything other than an alpha character or underscore.