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]Salva arquivos txt

    avatar
    Naldo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 16/02/2011

    [Resolvido]Salva arquivos txt Empty Salva arquivos txt

    Mensagem  Naldo 2/1/2013, 20:47

    Saudações a todos e um feliz 2013

    Gostaria de uma ajuda dos amigos que é a seguinte.
    Uso o código abaixo para enviar um cupom não fiscal para o seguinte local.
    Open "C:\Arquiv~1\Autocom\Cupom\Cupom.txt" For Output Access Write As #1
    Quando o arquivo txt é salvo ele substitui, gostaria que o arquivo fosse salvo com outro nome (Ex. Cupom1, Cupom2 etc...)
    GCONTABIL
    GCONTABIL
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 137
    Registrado : 17/12/2011

    [Resolvido]Salva arquivos txt Empty Re: [Resolvido]Salva arquivos txt

    Mensagem  GCONTABIL 3/1/2013, 00:20

    coloque no format do arquivo a DataCompleta do dia.
    avatar
    Naldo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 16/02/2011

    [Resolvido]Salva arquivos txt Empty Re: [Resolvido]Salva arquivos txt

    Mensagem  Naldo 3/1/2013, 00:24

    Boa noite GCONTABIL.
    Não entendi sua dica, por gentileza me explique como seria.
    Sou grato pela sua atenção
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 14/08/2011

    [Resolvido]Salva arquivos txt Empty Re: [Resolvido]Salva arquivos txt

    Mensagem  leoni_dias 4/1/2013, 12:17

    Bom dia.

    Talvez fosse algo assim:

    "C:\Arquiv~1\Autocom\Cupom\Cupom" & Day(date) & "-" & Month(date) & "-" & Year(date) & ".txt" For Output Access Write As #1
    avatar
    Naldo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 384
    Registrado : 16/02/2011

    [Resolvido]Salva arquivos txt Empty Re: [Resolvido]Salva arquivos txt

    Mensagem  Naldo 5/1/2013, 09:54

    Bom dia.
    Leoni Dias sou muito grato pela sua ajuda e presteza, me serviu como uma luva.
    Só fiz uma alteração acrescentei no início do nome do txt a ser salvo o seguinte 0& SaidaNumeroPedido & "-" como consta no exemplo abaixo.

    Open "C:\Arquiv~1\Autocom\Cupom\Cupom" & SaidaNumeroPedido & "-" & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & ".txt" For Output Access Write As #1

    Grande abraço
    Que DEUS lhe ilumine.
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 14/08/2011

    [Resolvido]Salva arquivos txt Empty Re: [Resolvido]Salva arquivos txt

    Mensagem  leoni_dias 6/1/2013, 02:08

    Boa noite, amigo.

    Que bom que funcionou bem pra você.
    Estou apenas retribuindo a ajuda que recebo dos amigos deste fórum, e olha que não foram poucas as vezes que me socorreram.

    Outro abraço para você e que Deus te ilumine também.

    Conteúdo patrocinado


    [Resolvido]Salva arquivos txt Empty Re: [Resolvido]Salva arquivos txt

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2024, 04:29