Vincular apenas tabela específica
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |
