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
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