Make a linked table in VBA

Milos · February 6th, 2011, 09:14 PM

There is a VBA add-in that can help take away some of the complexity. I use this to link to four different databases (MS Access 2007) for users on a LAN. The users connect via the internet. The databases are encrypted. The front end includes a reference to the VBA add-in which does all the work of linking the various tables. The tables and their locations are listed in a local table which the add-in reads and loops through as it builds links to the remote databases. This add-in can be downloaded from -> http://www.access-linked-table.com

Good luck and happy coding!
Milos

Aamir835 · March 18th, 2011, 08:29 AM

In My Database Have Report is About Ledger Openin Balance Problem Kindly Guide

Aamir835 · March 18th, 2011, 08:33 AM

How i Define Opeing Balance in My Report in Ledger
Iam Trying But I Failled so plz Help Me

Kindly Send Me A Sample
To , My
[email protected]

xhunmas · November 22nd, 2012, 02:15 AM

Code:

    For Each vCounty In lstWeather.ItemsSelected
        CID = Me.lstWeather.Column(7, vCounty)
        Path = DLookup("LocalPath", "CountyCode", "CountyCode = " & CID)
        FileName = Path & "EngineRoom\CODispatch_be.accdb"
        Set rdb = OpenDatabase(FileName)
        Set dbsTemp = CurrentDb

        ' Call the ConnectOutput procedure. The third argument
        ' will be used as the Connect string, and the fourth
        ' argument will be used as the SourceTableName.
        ConnectOutput dbsTemp, _
           "CODL", _
           ";DATABASE= " & FileName, _
           "DispatchLog"
        rdb.Close
    Next

End Sub

Sub ConnectOutput(dbsTemp As Database, _
   strTable As String, strConnect As String, _
   strSourceTable As String)

   Dim tdfLinked As TableDef
   Dim rstLinked As Recordset
   Dim intTemp As Integer

   ' Create a new TableDef, set its Connect and
   ' SourceTableName properties based on the passed
   ' arguments, and append it to the TableDefs collection.
   Set tdfLinked = dbsTemp.CreateTableDef(strTable)

   tdfLinked.Connect = strConnect
   tdfLinked.SourceTableName = strSourceTable
   dbsTemp.TableDefs.Append tdfLinked

End Sub

I googled into this post and thought all my problems were solved. However, I appear to have stumbled into an suffix issue with TableDefs.Append and accdb. Whenever I run the code, I get an error 3055. The onboard help indicates this is a problem with the naming convention in the operating system. All of the code in the examples/Microsoft use the mdb (pre 2007) extension. Anbody have a work-around for this?