MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Vincular tabelas anexadas com senha (back end)

    Compartilhe

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]Vincular tabelas anexadas com senha (back end)

    Mensagem  M2013 em Sab 07 Mar 2015, 01:59

    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
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3431
    Registrado : 04/04/2010

    Re: [Resolvido]Vincular tabelas anexadas com senha (back end)

    Mensagem  Avelino Sampaio em Dom 08 Mar 2015, 09:55

    Olá!

    O TransferDatabase não trabalha com a senha.  Uma jogada é abrir a base de dados pelo OpenDatabase e então manter aberta até concluir o TransferDatabase

    Fiz um teste aqui da seguinte forma e funcionou:

    Dim bd As DAO.Database
    Set bd = DBEngine.OpenDatabase("c:\Maestro\maestro_v5_be.accdb", False, False, ";pwd=a1234")
    DoCmd.TransferDatabase acLink, "Microsoft Access", "c:\Maestro\maestro_v5_be.accdb", acTable, "tblClientes", "tblClientes"
    bd.Close
    Set bd = Nothing


    Agora adapte ao seu código.

    Aguardamos


    Última edição por Avelino Sampaio em Qua 11 Mar 2015, 14:22, editado 1 vez(es)

    M2013
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 56
    Registrado : 07/06/2013

    [Resolvido]Vincular tabelas anexadas com senha (back end)

    Mensagem  M2013 em Qua 11 Mar 2015, 14:08

    Prezado Avelino, mais uma vez obrigado pela ajuda. Adaptei com sucesso no meu BD a sua resposta!

      Data/hora atual: Sex 15 Dez 2017, 15:41