In the module below, I get a "Could not find installable ISAM" error on the
tdf.refresh link.
The NewConnection refers to a valid database/table.
My References include VBA, Access 9.0 Object Library, DAO 3.6, OLE and VBA
Extensibility 5.
Do I need some other reference or ??
Dim db As DAO.Database, tdf As DAO.TableDef
Dim ThisDB As String, ThisPath As String, NewConnection As String
'Get current folder
ThisDB = CurrentDb.Name
ThisPath = Left(ThisDB, InStrRev(ThisDB, "\") - 1)
Set db = CurrentDb
Set tdf = db.TableDefs("tPreferences")
NewConnection = "DATABASE=" & ThisPath & "\" &
"DataTransferUtility4.mdb;TABLE=tPreferences"
tdf.Connect = NewConnection
tdf.RefreshLink
Bruno Campanini - 08 Nov 2004 22:21 GMT
> NewConnection = "DATABASE=" & ThisPath & "\" &
> "DataTransferUtility4.mdb;TABLE=tPreferences"
You missed at least one ";"
NewConnection = ";DATABASE=" ....
Bruno