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]Valor por exensto não funciona

    Compartilhe

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    [Resolvido]Valor por exensto não funciona

    Mensagem  Mylton em Qua 10 Fev 2016, 18:26

    Boa tarde a todos.
    Estou desenvolvendo uma aplicação onde é necessário o valor em reais por extenso, na guia 3 no primeiro vlor não roda.
    A rotina é igual à todos. Já troquei nome e nada
    Poderiam ver o que está errado.
    A linha respectiva está comentada.
    Obrigado

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

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 455
    Registrado : 12/08/2013

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Nogaro513 em Qua 10 Fev 2016, 19:12

    boa tarde amigo Mylton, verifique se é assim que Pretende ! Receita federal Imposto retido primeiro Valor . " Valor por Extenso "
    aguardo retorno !

            abraço Nogaro !
    Anexos
    Alterado_Nogaro.Pagamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (498 Kb) Baixado 10 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Mylton em Qua 10 Fev 2016, 20:35

    A letra de onde vc mexeu ficou maiscula?
    Aliás onde errei?
    rs

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 455
    Registrado : 12/08/2013

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Nogaro513 em Qua 10 Fev 2016, 20:49

    olá Mylton, sim as letras ficam assim isto é referente ao código do modulo !

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Mylton em Qua 10 Fev 2016, 21:09

    Tudo bem.
    Só precisava ententender. ..
    1 onde errei?
    2 pq as outras caixas estão em Minúsculas e essa em maiúscula?
    Obrigado

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 455
    Registrado : 12/08/2013

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Nogaro513 em Qua 10 Fev 2016, 21:12

    amigo Mylton, coloquei Primeira Letra Maiúscula.
    Anexos
    Alterado_Nogaro_PrimeiraLetra_MaiúsculaPagamento.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (869 Kb) Baixado 8 vez(es)

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Mylton em Qua 10 Fev 2016, 21:13

    Ok.
    Mas eu errei onde no código?

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 455
    Registrado : 12/08/2013

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Nogaro513 em Qua 10 Fev 2016, 21:19

    compare o seu código ao perder foco e o código que eu coloquei vai ver a diferença    

    Dim sRet As String
       Dim dTexto_Valor_Carne_Leao As Double
       If IsNull(Me.Texto_Valor_Carne_Leao) Then
           MsgBox "Digite um número no campo", vbExclamation + _
           vbOKOnly + vbDefaultButton1
           Exit Sub
       Else
       dTexto_Valor_Carne_Leao = Me.Texto_Valor_Carne_Leao
       End If
       sRet = Extenso(dTexto_Valor_Carne_Leao, "Reais", "Real")

    '  Me.TxtVPE5 = sRet

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    Registrado : 23/08/2010

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Mylton em Qua 10 Fev 2016, 21:21

    Ok
    Vou ver.
    Muito obrigado.
    Boa semana.
    Abs

    Nogaro513
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 455
    Registrado : 12/08/2013

    Re: [Resolvido]Valor por exensto não funciona

    Mensagem  Nogaro513 em Qua 10 Fev 2016, 21:27

    boa noite amigo Mylton
    fico feliz por ter ajudado

    O Fórum agradece o retorno.

    bons estudos

    abraço Nogaro !

      Data/hora atual: Qua 07 Dez 2016, 20:15