MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    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)


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    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: Sab 10 Dez 2016, 06:51