[Resolvido]Vincular tabelas com Password

Viva,

Peço desculpa por enviar-lhe uma mensagem. É que penso já ter inserido uma pergunta no fórum há cerca de uma semana atrás, mas não obtive resposta até agora.

Caso não queira/possa responder agradecia informação no sentido de saber que passos tenho a dar para obter resposta à minha dúvida que é a seguinta:

Para ligar tabelas utilizo o seguinte comando:

DoCmd.TransferDatabase acLink, "Microsoft Access", [CaminhoDaBaseTodo], acTable, "Tab_Aberturas", "Tab_Aberturas", False

Funciona direitinho, até eu defenir uma password de forma a proteger a tabela dos dados. Ao defenir a password ele ao ligá-las pede a password para cada tabela.

Há forma de ligar as tabelas com password?

Peço desculpa, mas numca me inscrevi num fórum até há poucos dias, pelo que estou um pouco confuso em saber como colocar as dúvidas, e não sei de que formao fazer.

Um abraço,

Luis,

'Importar dados de banco com senha
Dim dbsPassword As DAO.Database
Dim Data_Pathname As String

'Caminho do banco
'Data_Pathname = "C:\SeuBanco\SeuBanco_be.accdb"
Data_Pathname = strCaminho

'Abre o banco com a senha
Set dbsPassword = OpenDatabase(Data_Pathname, True, False, ";pwd=SuaSenha")

'Importa
DoCmd.TransferDatabase acImport, "Microsoft Access", dbsPassword.Name, acTable, "SuaTabelaQueRecebe", "SuaTabelaDeImportação"

Ok muito Obrigado pela resposta via "Expresso",

Qd chegar a casa vou aplicar. Parece-me ser o que procuro.

Um abraço,

Luis,

Olá luis,

Transformei sua questão em novo tópico por ser um novo assunto.

Você falou que está um pouco confuso em saber como colocar as dúvidas, então darei duas dicas que te ajudará a entender qual a dinâmica:

- Antes de qualquer coisa, ler as regras para conhecer as normas e para melhor se posicionar com o grupo;

- Pesquise em todo o fórum antes de postar qualquer dúvida, na maioria das vezes o que procura já foi colocado e respondido e está a sua inteira disposição, para isso, pode usar o botão "Busca" que fica na barra de menu do fórum;

No mais, seja bem vindo ao fórum e sucesso no desenvolvimento.

Abraço ae.

Ok, Obrigado,

Vou então inteirar-me da dinamica do fórum.

Um abraço

Luis,

Boas pessoal,

Já apliquei o que me foi indicado mas não funga!


'Importar dados de banco com senha
Dim dbsPassword As DAO.Database
Dim Data_Pathname As String

'Caminho do banco
Data_Pathname = "C:\MinhasBases\Clientes\Clientes_2010.mdb"
(Aqui em alternativa edxperimentei variável que já tem o caminho - Data_Pathname =[CaminhoTodo])Data_Pathname = strCaminho

'Abre o banco com a senha
Set dbsPassword = OpenDatabase(Data_Pathname, True, False, ";pwd=123456")


'Importa

DoCmd.TransferDatabase acLink, "Microsoft Access", dbsPassword.Name, acTable, "Tab_Clientes", "Tab_Clientes"
(aqui apenas alterei o acImport para acLink e repito este comando depois para a 5 tabelas restantes)

Erro run-time error '3001'
Invalid argument

O que poderá estar errado?

Um abraço,

Pessoal,

Esqueci de mencionar que o erro surge relacionado à instrução:

Set dbsPassword = OpenDatabase(Data_Pathname, True, False, ";pwd=123456")

Quanto a esse código não sei, se quiser testar este estamos ae;

Public Function VinculaTabelasComPassword()
Dim db As Database
Dim tbl As TableDef
Dim strCaminho As String
Dim strNomeTabelaOrigem As String
Dim strNomeTabelaALigar As String

strCaminho = "C:\MinhasBases\Clientes\Clientes_2010.mdb"
strNomeTabelaOrigem = "Tab_Clientes"
strNomeTabelaALigar = "Tab_Clientes"

Set db = CurrentDb()
Set tbl = db.CreateTableDef(strNomeTabelaALigar, dbAttachSavePWD, _
strNomeTabelaOrigem, ";Database=" & strCaminho & ";Pwd=123456")
db.TableDefs.Append tbl
Set tbl = Nothing
db.Close
End Function

Boas,

Valeu amigo... funciona em beleza...

Qualquer coisa cá estarei para ajudar..

Um abraço,