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


    Anexar tabela

    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

    Anexar tabela Empty Anexar tabela

    Mensagem  M2013 13/3/2014, 18:15

    Tenho um formulário onde tenho 3 campos.
    O primeiro chamado [caminho] , o segundo [AuxFile] e o terceiro [AuxFile2].
    Bom, o me.[caminho] recebe o valor completo de locação de um arquivo accdb.
    O me.[AuxFile] recebe o texto de me.[caminho] a partir de "WA" (onde é somente o nome do arquivo sem o local). O me.[AuxFile2] pega o texto de me.[AuxFile] e subtrai 6 a partir da esquerda (nome da tabela).

    Bom então o código:

    Dim y, strCaminho

    y = InStr(Me.[caminho], "WA")

    strCaminho = Me.caminho
    Me![AuxFile] = Mid$([Nome_DirLocal], y)
    Me![AuxFile2] = Left$([AuxFile], Len([AuxFile]) - 6)

    DoCmd.TransferDatabase acLink, "Microsoft Access", strCaminho, acTable, Me.AuxFile2, Me.AuxFile2, False

    Por exemplo:
    Me.caminho=c:\PASTA1\WA_8292839.accdb (onde existe nesse arquivo a tabela: WA_8292839 )
    Me![AuxFile]= WA_8292839.accdb
    Me![AuxFile2]=WA_8292839

    Onde estou errando? Aponto erro no caminho!


      Data/hora atual: 8/11/2024, 00:46