[Resolvido]Vinculação automática

Bom dia! Tenho vários bancos ligados em uma tabela que está no servidor mas vira e mexe preciso atualizar o vínculo em cada banco monitor (máscara, front-end) sempre que a tabela no servidor é atualizada.
Existe alguma forma automática do Access fazer isso sempre que a tabela for editada?
Obrigado.

Amigão, dê uma pesquisada lá no Repositório de Códigos vba.

Ok, obrigado. Encontrei esse código para revinculação de tabelas mas não tenho muita experiência com vba. Pode me dizer onde eu insiro ele?


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

Se seu formulário ainda não tiver nada no evento "Ao abrir", pode copiar e colar tudo no módulo do formulário logo após a linha Option Compare Database. Caso já tenha algo lá. Copie a parte de código fora do Form_Open e depois copie o que está no Form_Open para dentro do evento "Ao abrir" do formulário. Feito isso, mude C:\BackEnd.mdb para o caminho correto do seu bd.

Amigo Juliano, basta acompanhar o tópico até ao final e resolve.

http://maximoaccess.forumeiros.com/t422-resolvidovincular-revincular-back-end

Obrigado pela dica. Dei uma olhada mas onde entraria o código é exatamente onde já existe o procedimento de evento para abrir o formulário principal. Ele é o primeiro a abrir quando abre o banco. No meu caso, além de abrir o form principal (criei uma macro "autoexec") ainda eu teria de fazer a conferição dos links da vinculação. Como eu resolvo isso?

Teste colocando a função abaixo em um módulo global:

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

No evento "Ao abrir" do seu formulário, adicione o código abaixo:

Call ReVincularTabelas("C:\BackEnd.mdb")

Mude o local do bd para o seu e pronto. Tambem pode mudar essa linha do form para a macro AutoExec, na opção "Inserir código".

Obrigado. Vou tentar aqui e mando um retorno.

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.