• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 873
  • 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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: IP Lookup

Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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