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

    Evitar número contábil na exportação para o Excel

    Compartilhe

    baldocchi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    Registrado : 03/11/2014

    Evitar número contábil na exportação para o Excel

    Mensagem  baldocchi em Sex 09 Set 2016, 13:04

    Eu estou usando o pedaço de código para exportar valores monetários para o Excel:

    If RsExcel.Fields("vTotal").Value > 0 Then
    svTotal = RsExcel.Fields("vTotal").Value
    svTotal = Format(svTotal, "##,##0.00")
    Else
    svTotal = ""
    End If

    Porém, quando o Excel abre, os registros que contém "vírgula" são exportados como Contábil e, por isso, não reconhecidos como números em uma eventual soma.

    O meu campo da tabela é: vTotal e é "campo calculado" com formato de saída "moeda"
    mesmo assim ele não exporta corretamente.

    Variável "svTotal"
    Eu tentei usar isto: svTotal = Format(svTotal, "##,##0.00") mas não dá certo



    Alguém pode me ajudar por favor?


    obrigado de verdade.



    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6312
    Registrado : 05/11/2009

    Re: Evitar número contábil na exportação para o Excel

    Mensagem  Alexandre Neves em Sex 09 Set 2016, 22:24

    Boa noite,
    Em vez de
    svTotal = RsExcel.Fields("vTotal").Value
    Utilize
    svTotal = Replace(RsExcel("vTotal"),",",".")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Dom 20 Ago 2017, 18:24