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]Transferir Arquivo por Parametros

    Compartilhe

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc em Seg 26 Dez 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 ?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  FabioPaes em Ter 27 Dez 2016 - 0: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:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    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!

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc em Ter 27 Dez 2016 - 1: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.

    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  FabioPaes em Ter 27 Dez 2016 - 1: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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  ahteixeira em Ter 27 Dez 2016 - 9: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

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc em Ter 27 Dez 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 !
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  ahteixeira em Ter 27 Dez 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:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

    alexjc
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  alexjc em Qua 24 Maio 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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Transferir Arquivo por Parametros

    Mensagem  ahteixeira em Qua 24 Maio 2017 - 21:05

    cheers

      Data/hora atual: Ter 21 Nov 2017 - 10:12