Revincular tabelas

Quis adaptar este código mas dá erro na linha nº 10 "Tdf.RefreshLink"
Estou a utilizar o Office 2007

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

Luís Antunes

Luis

Não é tão simples assim.

veja nesse site do colega Avelino Sampaio:

usandoaccess.com.br/tutoriais/vinculando-tabelas-com-barra-de-progresso.asp

Copie e cole no navegador

Boa noite Nobresinho

O que eu necessitava mesmo era enviar a bd à minha colega já com o caminho das tabelas.
Como a BE se situa num servidor é complicado localizá-la, tenho que me deslocar ao local que, nesta
altura de pandemia não é aconselhável.
PS
O meu projecto já abre o explorer para localizar as tabelas e liga-as

Luís Filipe

Se entendi, você pode enviar uma cópia do Front End já com as tabelas vinculadas para a tua colega.

Para isso,  compacte o Front End em zip ou rar e envie para ela.


Agora se quiser fazer isso do modo correto, o certo seria fazer a vinculação das tabelas.

Mas creio que não será preciso, já que o front estará vinculado com o Back End.

{ }'s

Balem

Boa Noite Nobresinho

Supondo que o código funcionasse punha o endereço, "Call ReVincularTabelas("Ederesso"), Na abertura do login. Assim o utilizador
não teria o trabalho de procurar nas imensas pastas da intranet do Ministério da Justiça.

Luís Antunes

Vincular tabelas só se faz uma vez, na primeira vez que se está instalando o aplicativo no computador.

E quem tiver instalando, deverá sim, mostrar ao aplicativo onde está o Back End.

E para isso, já que ele está instalando, já deverá saber onde colocou esse Back End.

{ }'s

Balem

Boa noite Nobresinho

Uma coisa é saber onde está o ficheiro BE outra é procurar pelo explorer a sua localização.
É certo que o Access não altera a localização, mas se tenho uma versão "FE" melhorada aí
já é necessário de ligar as tabelas, a não ser que se conseguisse memorizar, no FE, a localização
do BE.
Se nada disto for possível, não há problema, vou ter que ser eu a instalar O FE, logo que possa.

Obrigado pela disponibilidade e pelo seu tempo.

Luís Antunes

Sim, ele fica gravado numa tabela

baixe o arquivo que existe na página do usandoAccess que te passei.

Ele tem ó exemplo pronto.

É só vc estudar os códigos

Boa Noite Nobresinho
Segui o seu conselho, estou a adaptar a vinculação de tabelas do mestre Avelino.
Estou com um problema quando salvo o caminho aprece a mensagem " falha na conexão com o BE".
Alguma ideia do que possa ser?

Luís Antunes

Boa noite Nobrezinho
Estou a enviar o a BD com o problema ditado na mensagem anterior.

Luís Antunes

Luis

Utilize esse código para re vincular as tabelas

{ }'s

Balem

Noob

Veja ao fazer a vinculação.

Uso Office 2013 32

Assis

Esqueci de tirar isso,

É uma Msgbox diferente.

apague o dialog.

Onde tiver assim:

Dialog.Box "Conexão com a base de dados restabelecida.", vbInformation, "Conexão efetuada.", , , 1

Deixe assim:

MsgBox "Conexão com a base de dados restabelecida.", vbInformation, "Conexão efetuada."

Só tem 3 frases.

{ }'s

Balem

Bom dia Noob

O melhor ser o Amigo a fazer a correção pois tem mais erros ao depurar

Obrigado

Amigos

Enviei o exemplo exatamente como uso.

Nele tem uma outra maneira de usar a caixa de mensagem.

Espero que gostem.

Está na mensagem nº 11

{ }'s

Balem

Boa noite amigo
O meu projecto já tem o programa para vincular tabelas.
Por sua sugestão, na mensagem nº 2 e 8, estou a tentar adaptar o projecto do mestre Avelino.Este projecto tem a vantagem
de ter o caminho das tabelas numa tabela.
O problema é que quando salvo o cominho aparece a mensagem " falha na conexão com o BE"-

Luís Antunes

Bem sugiro que procure o Autor do código.

O nome dele é Avelino Sampaio e é membro desse fórum

Apenas sugeri o tópico dele.

Quanto à "vantagem" de ser em tabelas, se pesquisar na internet,

vai encontrar a maioria dos exemplos, senão todos, usando tabelas.

Te envie o que uso, com uma maneira mais segura de guardar o caminho do
BE.

Balem