Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

cannot find installable ISAM Error

Posted on 2014-02-15
4
Medium Priority
?
854 Views
Last Modified: 2014-02-15
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
Comment
Question by:Sheils
  • 2
4 Comments
 
LVL 52

Accepted Solution

by:
Gustav Brock earned 2000 total points
ID: 39861062
You need a leading semicolon:

strConnect = ";DATABASE=" & strPath

/gustav
0
 
LVL 16

Author Closing Comment

by:Sheils
ID: 39862163
Brilliant!
0
 
LVL 12

Expert Comment

by:jkaios
ID: 39862181
It looks like you have a corrupt installation of Access.  Please see if this link can help:
http://support.microsoft.com/kb/209805
0
 
LVL 12

Expert Comment

by:jkaios
ID: 39862183
oops, just a little late...glad that this has been resolved. :-)
0

Featured Post

What is SQL Server and how does it work?

The purpose of this paper is to provide you background on SQL Server. It’s your self-study guide for learning fundamentals. It includes both the history of SQL and its technical basics. Concepts and definitions will form the solid foundation of your future DBA expertise.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft's Excel has many features that most people will never need nor take advantage of.  Conditional formatting is one feature that you may find a necessity once you start using it.
In a use case, a user needs to close an opened report by simply pressing the Escape (Esc) key. This can be done by adding macro code in Report_KeyPress or Report_KeyDown event.
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…

885 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question