Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 858
  • Last Modified:

cannot find installable ISAM Error

I have an MSAccess database with linked tables from another MSAccess database. I am trying to refresh link tables using the following code

Public Function FixTableLink()
Dim db As Database

strPath = CurrentProject.Path
strPath = strPath & "\CooktownHistoryDb.mdb_be"

strConnect = "DATABASE=" & strPath
Set db = CurrentDb
For Each tbl In db.TableDefs

    If Nz(DLookup("Type", "MSysObjects", "Name = '" & tbl.name & "'"), 0) = 6 And tbl.Connect <> strConnect Then
        
        tbl.Connect = strConnect
        tbl.RefreshLink
        
    End If

Next tbl

End Function

Open in new window


I get an error 3170 "Could not find Installable ISAM" on line 14.  I need a work around.

Thanks
0
Sheils
Asked:
Sheils
  • 2
1 Solution
 
Gustav BrockCIOCommented:
You need a leading semicolon:

strConnect = ";DATABASE=" & strPath

/gustav
0
 
SheilsAuthor Commented:
Brilliant!
0
 
jkaiosIT DirectorCommented:
It looks like you have a corrupt installation of Access.  Please see if this link can help:
http://support.microsoft.com/kb/209805
0
 
jkaiosIT DirectorCommented:
oops, just a little late...glad that this has been resolved. :-)
0

Featured Post

Nothing ever in the clear!

This technical paper will help you implement VMware’s VM encryption as well as implement Veeam encryption which together will achieve the nothing ever in the clear goal. If a bad guy steals VMs, backups or traffic they get nothing.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now