MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

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

    M2013
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013
    • Mensagem nº1

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

    Mensagem  M2013 7/3/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
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº2

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

    Mensagem  Avelino Sampaio 8/3/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 11/3/2015, 14:22, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    M2013
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013
    • Mensagem nº3

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

    Mensagem  M2013 11/3/2015, 14:08

    Prezado Avelino, mais uma vez obrigado pela ajuda. Adaptei com sucesso no meu BD a sua resposta!
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 26/4/2024, 12:45