...
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
Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.
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 |
