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]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)
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    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;


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    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")


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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.]
    avatar
    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!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9337
    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

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

    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 22 Jul 2017, 05:37