Bom dia a todos,
Eu peguei aqui no fórum um exemplo do JPaulo que funciona muito bem, eu tentei mudar o código para vincular vários bancos com várias tabelas dentro de cada banco, mas sem sucesso.
Alguém tem um exemplo ou pedaço de código que eu possa usar para aprender a fazer esse vínculo?
Obrigado !
Este é o código que o JPaulo usou para tirar a dúvida de um colega aqui do fórum. https://www.maximoaccess.com/t422-resolvidovincular-revincular-back-end
Eu peguei aqui no fórum um exemplo do JPaulo que funciona muito bem, eu tentei mudar o código para vincular vários bancos com várias tabelas dentro de cada banco, mas sem sucesso.
Alguém tem um exemplo ou pedaço de código que eu possa usar para aprender a fazer esse vínculo?
Obrigado !
Este é o código que o JPaulo usou para tirar a dúvida de um colega aqui do fórum. https://www.maximoaccess.com/t422-resolvidovincular-revincular-back-end
- Código:
Private Sub Form_Open(Cancel As Integer)
Call ReVincularTabelas("C:\BackEnd.mdb")
End Sub
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