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]Formatar casas decimais para exportação

    Compartilhe

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 28/04/2011

    [Resolvido]Formatar casas decimais para exportação

    Mensagem  vinicius.anna em Sex 03 Jun 2016, 09:25

    Bom dia

    Possuo uma rotina de exportação de dados em arquivo texto e não estou conseguindo fazer com que o campo de valor seja exportado com casas decimais.

    Estou a utilizar este código (parte):

    Código:


    'Aqui pego o maior valor do saldo inicial para alinhar à esquerda
    Set RSP = CurrentDb.OpenRecordset("SELECT Max(Len(SaldoInicial)) FROM reg_I155;")
    TamValor = RSP(0)

    'Aqui faço a geração (saída) do arquivo texto
    Sai = JustStr(RSP!Dev7, "000000000", 16) & JustStr(RSP!Cred7, "000000000", 16) & Space(1) & (RSP!dtData) & Space(1) & ("000000000") & Space(10 + TamValor - Len(RSP!SaldoInicial)) & (RSP!SaldoInicial) & Space(1) & (RSP!Historico)


    Este código funciona perfeitamente, porém, ocorre que:

    Na minha tabela possuo no campo SaldoInicial (Campo texto) que possui vários valores, como por exemplo:
    15,51
    1350,5
    600
    750000

    portanto tenho valores com e sem casas decimais

    Há alguma forma de, na rotina de exportação que uso acima, formatar o campo Saldo Inicial para que retorne estes valores na exportação:
    15,51
    1350,50
    600,00
    750000,00

    Alguém tem alguma dica.

    Att.
    Vinicius

    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Formatar casas decimais para exportação

    Mensagem  FabioPaes em Sex 03 Jun 2016, 09:57

    Assim amigo:

    Format(rs1("ValorUnit"), "##,###.00") ' Coloca sempre 2 casas decimais. Faça um teste.

    300 ficara 300,00;
    300,5 ficara 300,50 etc...

    rs1("ValorUnit") é o campo que contem o Valor


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

    vinicius.anna
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 172
    Registrado : 28/04/2011

    Re: [Resolvido]Formatar casas decimais para exportação

    Mensagem  vinicius.anna em Qui 07 Jul 2016, 11:06

    Bom dia

    muito obrigado, problema resolvido.

    Att.
    Vinicius

      Data/hora atual: Qua 28 Jun 2017, 13:25