... 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.


Utilizar o comando TransferDatabase em um back-end com senha

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"

Usando Access - Senha Access

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!


 

 


Não há comentário

Envie seu comentário: