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

3 participantes

    [Resolvido]Zero a direita sumindo

    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty [Resolvido]Zero a direita sumindo

    Mensagem  gustavolaqua 1/4/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
    [Resolvido]Zero a direita sumindo Attachmentcopia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 8 vez(es)
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo 1/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Zero a direita sumindo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Zero a direita sumindo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Zero a direita sumindo Folder_announce_new Instruções SQL como utilizar...
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Não funcionou

    Mensagem  gustavolaqua 1/4/2016, 15:01

    Obrigado pela ajuda!

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

    Grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo 4/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Zero a direita sumindo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Zero a direita sumindo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Zero a direita sumindo Folder_announce_new Instruções SQL como utilizar...
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Funcionou!!!

    Mensagem  gustavolaqua 4/4/2016, 16:59

    Muito obrigado, funcionou mesmo!

    Vlw pela ajuda!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo 4/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Zero a direita sumindo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Zero a direita sumindo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Zero a direita sumindo Folder_announce_new Instruções SQL como utilizar...
    Caio
    Caio
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Re: [Resolvido]Zero a direita sumindo

    Mensagem  Caio 4/4/2016, 20:18

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Zero a direita sumindo Empty Re: [Resolvido]Zero a direita sumindo

    Mensagem  JPaulo 5/4/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Zero a direita sumindo Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Zero a direita sumindo Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Zero a direita sumindo Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 3/2/2023, 16:23