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


3 participantes

    [Resolvido]Transferir Arquivo por Parametros

    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 23/02/2016

    [Resolvido]Transferir Arquivo por Parametros Empty [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc 26/12/2016, 23:23

    tenho uma duvida que para vocês deve ser bem simples.

    necessito transferir um arquivo de uma pasta para outras em VBA.

    só que ao invés de colocar o caminho na programação eu gostaria de colocar o que costa em um campo texto.


    FileCopy "C:\windows\desktop\Leiame.txt", "C:\Diversos\Leiame.txt" ( Funciona )

    FileCopy me.CampoCaminhoOrigem.txt, me.CampoCaminhoDestino.txt ( assim não Funciona )


    o por que quando referencia um campo não funciona ? voce teria outra ideia ?
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  FabioPaes 27/12/2016, 00:58

    Bem vindo Ao Forum!
    Antes de Postar sua duvida de uma pesquisada aqui no FOrum, pois existem muito material aqui meu amigo...

    Veja esse Topico aqui:
    https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 23/02/2016

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc 27/12/2016, 01:19

    muito obrigado pela dica FabioPaes,

    porem este tópico que você me indico eu já vi, na verdade já estou a 3 dias pesquisando sobre este assunto e não estou achando uma solução.

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  FabioPaes 27/12/2016, 01:27

    Mas como, eu testei aqui e deu certinho amigo...


    Dim fso
    Dim file As String, sfol As String, dfol As String
    file = Me.CampoOrigem ' Caminho Origem

    dfol =Me.CampoDestino ' caminho destino
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
    ElseIf Not fso.FileExists(dfol & file) Then
    fso.CopyFile (file), dfol, True
    Else
    MsgBox file & " Inexistente!", vbExclamation, "Sucesso"
    End If


    Crie duas caixas de Texto (CampoDestino e CampoOrigem)como Nome delas...
    No Botão coloque o comando à cima e teste...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  Alvaro Teixeira 27/12/2016, 09:45

    Olá a todos, dois pitacos

    Alex, na questão que colocou na mensagem nº 1 , acho que deve retirar o .txt

    Teste assim:
    Código:
    FileCopy me.CampoCaminhoOrigem, me.CampoCaminhoDestino

    Se pretende mover o ficheiro da origem para o destino ou renomear, pode usar o NAME nativo do Access
    Sendo assim:
    Código:
    Name me.CampoCaminhoOrigem AS me.CampoCaminhoDestino

    Abraço
    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 23/02/2016

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc 27/12/2016, 21:59

    o pessoal eu consegui unindo a ideia de vocês eu utilizei assim.

    Dim strOrigem As String
    Dim strDestino As String

    strOrigem = Me.Chave_Origem
    strDestino = Me.Chave_Destino


    FileCopy strOrigem, strDestino

    funciono perfeitamente, sou um amante do access,porem ainda sei muito pouco.

    muio obrigado !
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  Alvaro Teixeira 27/12/2016, 23:39

    Olá Alex, fico feliz por ajudar !
    Obrigado pelo retorno, os utilizadores do fórum agradecem.

    Não se esqueça de dar o tópico como resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    avatar
    alexjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 79
    Registrado : 23/02/2016

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc 24/5/2017, 19:48

    pessoal me desculpe por não ter encerrados os tópicos antes, nem tinha notado mas a partir de agora estarei sempre encerrando ok.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  Alvaro Teixeira 24/5/2017, 21:05

    cheers

    Conteúdo patrocinado


    [Resolvido]Transferir Arquivo por Parametros Empty Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:30