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]Zero a direita sumindo

    Compartilhe

    gustavolaqua
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Zero a direita sumindo

    Mensagem  gustavolaqua em Sex 01 Abr 2016, 04:40

    Olá Pessoal, mais uma vez preciso de uma ajuda, seguindo a regra do forum, pesquisei demais todos os casos relacionados com casas decimais mas não encontrei correlação com o meu problema.

    Tenho uma rotina que traz um valor de uma tabela para um arquivo word, porém na tabela e no form ele está como 89,90, e no documento word, quando é exportado ele fica como 89,9, sumindo o zero à direita.

    Esta variável que estou utilizando testei como string e boolean, porém boolean o números à direita vão longe e nao consegui cortar, mesmo utilizando algumas sugestões como o format porém sem sucesso.

    Alguém poderia dar uma ajuda por gentileza?

    resumindo a função:

    Dim vValor As String (declarando a variavel)
    vValor = ThisRP("Valor_Total") (trazendo o valor do campo que na tabela está como 89,90)
    neste ponto ele abre o documento word e no campo fldValor, ele insere o valor da variavel vValor porém vai como 89,9
    .ActiveDocument.Bookmarks("fldValor").Select
           .Selection.Text = CStr(vValor)

    O projeto é no form frmPedidos,a funcão é GerarContrato, a tabela com este valor é tblPedidoDetalhe

    Coloquei o programa neste tópico tb.

    Agradeço a ajuda!
    Anexos
    copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 4 vez(es)

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo em Sex 01 Abr 2016, 09:04

    Ola;

    Faça o teste desta forma, colocando o Trim após receber a variavel;

    'carrega nas variáveis os valores dos dados da tblPedidoDetalhe
    vValorExtenso = ThisRP("ValorTotalExtenso")
    vValor = ThisRP("Valor_Total")
    vValor = Trim(vValor)

    Para o Bookmark, apenas;

    .ActiveDocument.Bookmarks("fldValor").Select 'letra A corresponde ao campo NomeEmitente1 no doc word
    .Selection.Text = (vValor)

    Teste e retorne;


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    gustavolaqua
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    Não funcionou

    Mensagem  gustavolaqua em Sex 01 Abr 2016, 15:01

    Obrigado pela ajuda!

    Infelizmente não funcionou. Reproduzi exatamente como vc passou mas nada. Alguma outra possibilidade?

    Grato

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo em Seg 04 Abr 2016, 14:44

    Assim tem de funfar;

    Código:
    'carrega nas variáveis os valores dos dados da tblPedidoDetalhe
    vValorExtenso = ThisRP("ValorTotalExtenso")
    vValor = ThisRP("Valor_Total")
    vValor = Format(vValor, ".00")


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    gustavolaqua
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    Funcionou!!!

    Mensagem  gustavolaqua em Seg 04 Abr 2016, 16:59

    Muito obrigado, funcionou mesmo!

    Vlw pela ajuda!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo em Seg 04 Abr 2016, 17:23

    Fico feliz;

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Zero a direita sumindo

    Mensagem  Caio em Seg 04 Abr 2016, 20:18

    Onde coloca essa função?
    Tenho o mesmo problema, porém no meu caso é o zero à esquerda!

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo em Ter 05 Abr 2016, 09:33

    Isto não é apenas uma função, é um trecho do codigo do banco acima postado pelo colega.


    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Sab 03 Dez 2016, 19:38