Riallegare tabelle

Question

Ciao a tutti!

In questo forum ho trovato un metodo semplice (di Giorgio Rancati) per riallegare le tabelle tramite codice dal FE,

però non sono riuscito a farlo funzionare. Dopo aver diviso un applicativo A2007 in BE e FE, ho:

* Inserito nella macro AutoExec del FE il richiamo della Sub “RelinkTabelle”

* Inserito in un modulo standard del FE la Sub “RelinkTabelle”:

---

Sub RelinkTabelle()

Dim db As DAO.Database

Dim NomeBE As String

Dim Password

Dim LenResult As Long

Dim td As DAO.TableDef

Set db = CurrentDb

  Password = ""

NomeBE = "Percorso_e_nome_del_BE"

On Error GoTo RelinkTabelle_Err

For Each td In db.TableDefs                                  

If (td.Attributes And dbAttachedTable) = dbAttachedTable Then

td.Connect = "MS Access;PWD=" & Password & ";DATABASE=" & NomeBE

    td.RefreshLink

End If

Next

RelinkTabelle_Exit:

Set td = Nothing

Set db = Nothing

Exit Sub

RelinkTabelle_Err:

MsgBox Err.Description, vbExclamation

Resume RelinkTabelle_Exit

End Sub

---

Poi ho fatto una prova:

* Nella Sub RelinkTabelle, ho inserito un nuovo percorso del BE:    NomeBE = “NuovoPercorsoBE\NomeBE”

* Ho posizionato il BE nel NuovoPercorsoBE

a questo punto ho provato ad aprire il FE, ma mi è uscita la scritta in grande: “Introduzione a Microsoft Office Access”,

Probabilmente c’è qualcosa che mi sfugge, ma non riesco a capire… c’è qualcuno che può aiutarmi?