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]Gerar arquivo com numeração sequencial

    mazon
    mazon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 29/01/2014

    [Resolvido]Gerar arquivo com numeração sequencial Empty [Resolvido]Gerar arquivo com numeração sequencial

    Mensagem  mazon em 31/10/2018, 02:54

    Boa noite.

    Companheiros, estou atualizando um sistema de folha de pagamento, especificamente um arquivo para ser enviado ao TCE, o código abaixo gera um arquivo no formato *.csv
    Eis a questão; O arquivo é gerado normalmente, mas, se mês seguinte eu gerar este arquivo o mesmo é apenas atualizado ou substituído, já que ele exporta os dados atualizados mês a mês em uma tabela, e eu gostaria que a cada mês fosse gerado um novo arquivo dentro da pasta ArquivosTCE, mantendo o anterior e o atual. Que ficasse por ex: ServidoresTCE_outubro, ServidoresTCE_novembro....

    espero ter sido claro.

    alguém poderia me dar essa ajudinha.

    Agradeço a quem puder colaborar!


    Private Sub GeraServidor_Click()
    DoCmd.TransferText transfertype:=acExportDelim, _
    specificationname:="ServidoresTCEexport", _
    tablename:="PrestacaoTCE", _
    FileName:="C:\CADSERV\FOPAG\ArquivosTCE\ServidoresTCE.csv", _
    hasfieldnames:=True
    MsgBox "Arquivo gerado com sucesso", vbOKOnly, "Confirmação"
    End Sub
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2878
    Registrado : 21/04/2011

    [Resolvido]Gerar arquivo com numeração sequencial Empty Re: [Resolvido]Gerar arquivo com numeração sequencial

    Mensagem  Marcelo David em 31/10/2018, 03:31

    Bom dia,
    tente:

       
    Código:
        DoCmd.TransferText transfertype:=acExportDelim, _
                           specificationname:="ServidoresTCEexport", _
                           tablename:="PrestacaoTCE", _
                           FileName:="C:\CADSERV\FOPAG\ArquivosTCE\ServidoresTCE_" & MonthName(Month(Date)) & ".csv", _
                           hasfieldnames:=True

        MsgBox "Arquivo gerado com sucesso", vbOKOnly, "Confirmação"


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    mazon
    mazon
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 29/01/2014

    [Resolvido]Gerar arquivo com numeração sequencial Empty Re: [Resolvido]Gerar arquivo com numeração sequencial

    Mensagem  mazon em 1/11/2018, 13:48

    Bom dia Marcelo,

    É exatamente o resultado que eu esperava.

    Muito Obrigado mesmo!
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2878
    Registrado : 21/04/2011

    [Resolvido]Gerar arquivo com numeração sequencial Empty Re: [Resolvido]Gerar arquivo com numeração sequencial

    Mensagem  Marcelo David em 1/11/2018, 15:39

    Que ótimo. O fórum agradece o retorno!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]Gerar arquivo com numeração sequencial Empty Re: [Resolvido]Gerar arquivo com numeração sequencial

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/11/2019, 01:03