Creio que teria um melhor retorno em um fórum especifico de Access.
Quando diz "Relink" acredito que refira-se as Tabelas Vinculada.
Se assim for a rotina abaixo efetua o vinculo, porem e necessário informar a caminho do banco/tabelas
Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
Dim Dbs As Database
Dim Tdf As TableDef
Dim Tdfs As TableDefs
Set Dbs = CurrentDb
Set Tdfs = Dbs.TableDefs
For Each Tdf In Tdfs
If Tdf.SourceTableName <> "" Then
Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
Tdf.RefreshLink
End If
Next
End Sub
Pode ser chamado atraves do evento open de um formulario (por exemplo)
Private Sub Form_Open(Cancel As Integer)
Call ReVincularTabelas("C:BackEnd.mdb")
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 17/04/2017 9:32 am