Prezados,
Tenho em meu banco frontend uma função que relinka os dados do backend.Se o usuário move os 2 arquivos de lugar ao abrir o FrontEnd é perguntado onde se encontram as tabelas do BackEnd e então nova anexação acontece.
Gostaria de colocar uma senha no meu backend, teria então de alterar minha linha abaixo mas estou tendo dificuldades.
Set db = CurrentDb
Set tb = db.OpenRecordset("tb_Conectatb")
InstalDir = DLookup("[Dir_install]", "tb_Config", "[Dir_install]") & "\"
Do While Not tb.EOF
DoCmd.DeleteObject acTable, tb!Tabela
'relinka onde nome tabela na tb_Conectatb inicia com tb_ que estão no back@
If Left(tb!Tabela, 3) = "tb_" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & "back@.accdb", acTable, tb!Tabela, tb!Tabela, False
'relinka onde nome tabela na tb_Conectatb inicia com tb que estão no diretório/pasta do aplicativo
ElseIf Left(tb!Tabela, 2) = "tb" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & tb!Tabela & ".accdb", acTable, tb!Tabela, tb!Tabela, False
End If
tb.MoveNext
Loop
tb.Close
Acredito que a senha deva ser colocada na linha de "DoCmd.TransferDatabase acLink" , tentei mas não deu certo.
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & tb!Tabela & ".accdb", acTable, tb!Tabela, tb!Tabela, ,"PWD=1234;"
agradeço a todos a atenção
Tenho em meu banco frontend uma função que relinka os dados do backend.Se o usuário move os 2 arquivos de lugar ao abrir o FrontEnd é perguntado onde se encontram as tabelas do BackEnd e então nova anexação acontece.
Gostaria de colocar uma senha no meu backend, teria então de alterar minha linha abaixo mas estou tendo dificuldades.
Set db = CurrentDb
Set tb = db.OpenRecordset("tb_Conectatb")
InstalDir = DLookup("[Dir_install]", "tb_Config", "[Dir_install]") & "\"
Do While Not tb.EOF
DoCmd.DeleteObject acTable, tb!Tabela
'relinka onde nome tabela na tb_Conectatb inicia com tb_ que estão no back@
If Left(tb!Tabela, 3) = "tb_" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & "back@.accdb", acTable, tb!Tabela, tb!Tabela, False
'relinka onde nome tabela na tb_Conectatb inicia com tb que estão no diretório/pasta do aplicativo
ElseIf Left(tb!Tabela, 2) = "tb" Then
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & tb!Tabela & ".accdb", acTable, tb!Tabela, tb!Tabela, False
End If
tb.MoveNext
Loop
tb.Close
Acredito que a senha deva ser colocada na linha de "DoCmd.TransferDatabase acLink" , tentei mas não deu certo.
DoCmd.TransferDatabase acLink, "Microsoft Access", InstalDir & tb!Tabela & ".accdb", acTable, tb!Tabela, tb!Tabela, ,"PWD=1234;"
agradeço a todos a atenção