Varibale backend locations still not working

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

From: Richardson (INVALID.ashesr_at_mindspring.com.NO)
Date: 06/03/04 

Date: Thu, 03 Jun 2004 18:40:17 GMT

I recently posted to this group asking for help linking one front end
database to variable backend end databases. I have attempted to implement
the solution that was posted, but I can't seem to make it work right. I am
including the setup information I have used and I am looking for any help
you can provide to get this functioning this week.

Thanks in advance,
Lori

Table with backend locations (File Locations)
BeName - text field with the name of the backend selection
BeLocation - text field with the location on the backend

Form where the user can select the locations (frmFile_Location_Selector)
cbBeName - combo box with 2 columns, BeName and BeLocation
txtBeLocation - Text box that references column 2 of the combo box
cmdSelect - Command button on the form with On-Click event procedure as
follows: ( got this code mostly from the previous post)

Private Sub cmdSelect()
With Me.txtBeLocation
    RelinkTables (Forms![File_Location_Selector]![txtBeLocation])
End With
End Sub

The Module is RelinkTables with the following in it

Public Sub RelinkTables (NewPathName as String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = Currnt Db
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
        Tdf.Connect = ";DATABASE=" & NewPathName
        Tdf.RefreshLink
    End If
    Next
End Sub

Quantcast