... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Vincular apenas tabela específica

Usuário Cardoso:

Boa Noite.

Mestre Avelino, peguei um exemplo seu, onde se vincula várias tabelas.  Gostaria que vinculasse apenas tabelas específicas, como faço?

O código que peguei, para adaptação, está neste artigo.

No caso, só vincular a tabela "Tbl_Matriz_Afresp" do banco "Recurso de Glosa.accdb"

Suporte:

Cardoso,

experimente assim:

Public Sub fncVincularTabela(NomeTabela as string, LocalBe as string, Optional SenhaBE=0)
Dim be As DAO.Database
'Verifica se a tabela já esta vinculada e funcionando no FE
If Not fncTabelaExiste(NomeTabela) Then 
  'Deleta o vínculo que está quebrado no FE
   DoCmd.DeleteObject acTable, NomeTabela
   'Se o BE tiver senha de acesso, abrimos o banco para que o TransferDatabase funcione sem pedir a senha
   if senhaBe <> 0 then Set be = DBEngine.OpenDatabase(LocalBe, False, False, ";PWD=" & SenhaBe)
   'Realiza a vinculação da tabela não existente no fornt-end
   DoCmd.TransferDatabase acLink, "Microsoft Access", LocalBe, acTable, NomeTabela, NomeTabela
End If
if senhaBe <> 0 then be.Close
MsgBox "Tabela vinculada..", vbInformation, "Aviso"
Set be = Nothing
End Sub

Executando o procedimento:

call fncVincularTabela("Tbl_Matriz_Afresp",CurrentProject.Path & "\Recurso de Glosa.accdb","senhaDoSeuBE")

Caso o BE não tenha senha:

call fncVincularTabela("Tbl_Matriz_Afresp",CurrentProject.Path & "\Recurso de Glosa.accdb")

Nota: realize backup, antes de qualquer teste.

Usuário Cardoso:

Avelino, boa tarde!

Isso mesmo que precisava.

Muito obrigado!


 

 


Não há comentário

Envie seu comentário: