[Resolvido]Vincular tabela Nova

Boa tarde amigos

Depois de criar uma nova tabela no back_end, como vincula-la automaticamente ao abrir o front ?

Sem ter necessidade de fazer como a imagem abaixo ?

Obrigado

Olá Assis, teste assim:

Código:

DoCmd.TransferDatabase acLink, "Microsoft Access", _
    "C:\NomePasta\BaseDadosBE.mdb", acTable, "NomeDaTabelaNoBE", _
    "NomeDaTabelaLigada-PodeSer_o_mesmo"

Abraço

Teixeira

"NomeDaTabelaNoBE" é o nome da nova tabela ?

E pede a senha do back_End

Funciona mas a ideia era não ter que digitar o nome da(s) tabela(s) nova(s)

Obrigado Amigo.

Olá, respondendo à sua questão, sim é o nome da tabela do back end.
Quanto à questão de ter password, também se resolve.
Se compreendi bem a questão, você cria manualmente uma tabela no back end e desdja ao abrir que efectue a ligação (vinculo).

Será possível fazer, no entanto a sua aplicação vai ficar mais lenta no arranque.
Uma solução seria verificar as tabelas que tem no back_end e comparar com as tabelas ligadas, se faltar fazer a ligação.

Na minha opinião, você deveria ter uma opção na aplicação de re-ligar (revincular) as tabelas, em que apagava as ligações existentes e criava novas.
Veja no Maestro do Mestre Avelino.

Abraço

Teixeira

Eu conheço o exemplo do Mestre Avelino.

Mas aonde estou a tentar implementar esta situação é numa BD que ainda está e ficará sempre na versão 2003 cujo vinculo é feito através do nome de uma tabela.

Porque 2003 ? Porque tem aquelas barras de menus antigos (MUITAS) que o 2003 tinha e que agora não funcionam.

E como esta BD não tem parado de crescer eu não posso altera-la para uma versão superior ao 2003, por causa das ditas barras de menu.

E como sempre que crio uma tabela nova lá tenho que fazer a vinculação do Access.

O amigo escreveu na sua mensagem: Será possível fazer, no entanto a sua aplicação vai ficar mais lenta no arranque.

Eu pergunto para não ficar mais lenta no arranque.

Não é possível aplicar esse código, num botão que só será acionado por mim, quando houver uma tabela nova ?

Ps: Relembrando que o Back_End tem senha .

Obrigado

Olá Assis,
Com este código pode ligar tabela em 2003 com password:

Código:

'ahteixeira 2015 maximoaccess
 Dim dbs As DAO.Database
  
 Set dbs = DBEngine.OpenDatabase(Application.CurrentProject.Path & "\dados2003.mdb", False, False, ";pwd=1234")
 DoCmd.TransferDatabase acLink, "Microsoft Access", _
    Application.CurrentProject.Path & "\dados2003.mdb", acTable, "lpCompradores", _
    "lpCompradores"
 
 dbs.Close
 Set dbs = Nothing

Segue abaixo anexo do exemplo.

Respondendo à questão, Sim, concordo,
Você no seu projecto pode ter uma area de administração para inclusão (ligação) de novas tabelas.
Poderá até pedir que seja colocado o nome da tabela.

No código do exemplo deve alterar onde está:
"lpCompradores"

para:
me.txtTabelaNova    (deve criar o campo no form previamente)

O utilizador deve preencher o campo com o nome da nova tabela a ligar antes do clicar no botão ligar.
Abraço

Obrigado Teixeira

+ 1(uma)

Olá, obrigado pelo retorno.
Nota final, o método utilizado no Maestro, também pode ser utilizado em base dados em mdb.
Abraço