Solved

I need a macro to run Linked Table Manager

Posted on 2009-05-12
2
1,215 Views
Last Modified: 2013-11-27
Hi ALL, I am trying to write a macro that will run the Linked Table Manager and use the "Select ALL" option.  In a macro,  I am able to open Linked Table Manager by using the Action "RunCommand" and the Arguments "LinkedTableManager".  But I can't seem to figure out how to make it "Select ALL" and then select the "OK" button.  Any help would be MOST aprreciated!!
0
Comment
Question by:Krista_Grubb
2 Comments
 
LVL 65

Accepted Solution

by:
rockiroads earned 500 total points
ID: 24365510
I dont know of any way, because that is open as modal, you cant even use sendkeys to select "select all"

If all you want is to pick another db then why not relink via code?

eg
how to relink http://www.mvps.org/access/tables/tbl0009.htm

how to prompt http://www.mvps.org/access/api/api0001.htm
0
 
LVL 16

Expert Comment

by:Chuck Wood
ID: 24868828
If you want to relink your tables to a new or changed database, you can use the code in the snippet. Set a reference to ADOX and use the ReLinkTables procedure, substituting your database path and table names. Or, you can delete the ReLinkTables procedure and use the ReLinkTable procedure from some other code you have.
-Chuck
'===================================================

'  requires:

'    reference(s) to:

'       Microsoft ADO Ext. 6.0 for DDL and Security

'===================================================

Public Sub ReLinkTables()

On Error GoTo HandleError

    ReLinkTable "PathToDb", "TableName1"

    ReLinkTable "PathToDb", "TableName2"

    ReLinkTable "PathToDb", "TableName3"

    ReLinkTable "PathToDb", "TableName4"

ExitHere:

    Exit Sub

HandleError:

    MsgBox "Error:" & err.Number & vbNewLine & _

        err.Description & vbNewLine & _

        "In:ReLinkTables"

    Resume ExitHere

End Sub
 

Public Sub ReLinkTable(ByVal DbPath As String, _

  ByVal TableName As String)

On Error GoTo HandleError

    UnLinkTable TableName

    LinkTable DbPath, TableName

ExitHere:

    Exit Sub

HandleError:

    MsgBox "Error:" & err.Number & vbNewLine & _

        err.Description & vbNewLine & _

        "In:ReLinkTable"

    Resume ExitHere

End Sub
 
 

Public Sub UnLinkTable(ByVal TableName As String)

On Error GoTo HandleError

    Dim cat As ADOX.Catalog

    Dim tbl As ADOX.Table

    Set cat = New ADOX.Catalog

    Set tbl = New ADOX.Table

    cat.ActiveConnection = CurrentProject.Connection

    For Each tbl In cat.Tables

        If tbl.Type = "LINK" Then

            ' if this is the specified table

            If tbl.Name = TableName Then

                ' delete the specified table

                DoCmd.DeleteObject acTable, tbl.Name

            End If

        End If

    Next tbl

    ' clean up

    Set tbl = Nothing

    Set cat = Nothing

ExitHere:

    Exit Sub

HandleError:

    MsgBox "Error:" & err.Number & vbNewLine & _

        err.Description & vbNewLine & _

        "In:UnLinkTable"

    Resume ExitHere

End Sub
 

Public Sub LinkTable(ByVal DbPath As String, _

  ByVal TableName As String)

On Error GoTo HandleError

    Dim strSQL As String

    Dim tbl As ADOX.Table

    Dim intI As Integer

    Dim cat As ADOX.Catalog

    Set cat = New ADOX.Catalog

    Set tbl = New ADOX.Table

    ' if the database path does not exist,

    If Dir(DbPath) = "" Then

        ' warn the user and exit

        MsgBox "This database path does not exist:" & _

            vbNewLine & vbNewLine & DbPath, vbCritical, "Path Invalid"

        GoTo ExitHere

    End If

    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

        "Data Source=" & DbPath & ";"

    ' loop through the tables,

    For Each tbl In cat.Tables

        ' if this is the table we are linking,

        If tbl.Name = TableName Then

            DoCmd.TransferDatabase acLink, "Microsoft Access", _

                DbPath, acTable, tbl.Name, tbl.Name, False

        End If

    Next tbl

    ' clean up

    Set tbl = Nothing

    Set cat = Nothing

ExitHere:

    Exit Sub

HandleError:

    Select Case err.Number

        Case 3011

            Resume Next

        Case Else

            MsgBox "Error:" & err.Number & vbNewLine & _

                err.Description & vbNewLine & _

                "In:LinkTable"

            Resume ExitHere

    End Select

End Sub

Open in new window

0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

This very simple solution applies to a narrow cross-section of the "needs to close" variety. In this case, the full message in Event Viewer was in applog, Event ID 1000: Faulting application iexplore.exe, version 8.0.6001.18702, faulting module …
Describes a method of obtaining an object variable to an already running instance of Microsoft Access so that it can be controlled via automation.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
The view will learn how to download and install SIMTOOLS and FORMLIST into Excel, how to use SIMTOOLS to generate a Monte Carlo simulation of 30 sales calls, and how to calculate the conditional probability based on the results of the Monte Carlo …

747 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now