Utilizar o comando TransferDatabase em um back-end com senha
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).
Ao executar o comando TransferDatabase, com a intenção de vincular uma tabela de um back-end com senha, um formulário será aberto, solicitando que a senha seja inserida. Veja!
DoCmd.TransferDatabase acLink, "Microsoft Access", "c:\Maestro\maestro_v5_be.accdb", acTable, _
"tblClientes", "tblClientes"
Para contornar esta situação, usamos o recurso de abrir o back-end através do comando OpenDatabase e assim mantemos a conexão aberta do back-end até a conclusão do uso do comando Transferdatabase.
Leia atentamente os comentários do código proposto para você entender a seqüência:
Dim bd As DAO.Database
'-----------------------------------------
'Abre o back-end com senha
'-----------------------------------------
Set bd = DBEngine.OpenDatabase("c:\Maestro\maestro_v5_be.accdb",False, False, ";pwd=a1234")
'---------------------------------------------------------------------------------------------------------------------------
'Como o back-end já está com a conexão aberta, o TrasferDatabase não solicitará a senha
'--------------------------------------------------------------------------------------------------------------------------- DoCmd.TransferDatabase acLink, "Microsoft Access", "c:\Maestro\maestro_v5_be.accdb", acTable, _
"tblClientes", "tblClientes"
'--------------------------------------------------------
'Fecha o back-end e limpa a variável bd
'-------------------------------------------------------- bd.Close Set bd = Nothing
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Vídeo - Aprenda sobre filtragens
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Adquira o kit UsandoAccess e aprenda em alta velocidade
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |