Vincular apenas tabela específica
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
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 |