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

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

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar número contábil na exportação para o Excel Empty [Resolvido]Evitar número contábil na exportação para o Excel

    Mensagem  baldocchi 9/9/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.



    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alexandre Neves 9/9/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
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  baldocchi 1/3/2019, 12:33

    tópico resolvido

      Data/hora atual: 25/7/2021, 04:49