MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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 : 168
    Registrado : 29/04/2011

    [Resolvido]Formatar casas decimais para exportação

    Mensagem  vinicius.anna em Sex 03 Jun 2016, 14: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


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Sex 03 Jun 2016, 14: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 : 168
    Registrado : 29/04/2011

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

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

    Bom dia

    muito obrigado, problema resolvido.

    Att.
    Vinicius

      Data/hora atual: Sex 09 Dez 2016, 13:27