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

    Compartilhe
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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.]
    avatar
    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)
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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
    avatar
    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 !
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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
    avatar
    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)
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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?
    avatar
    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
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    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
    avatar
    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: Sex 23 Jun 2017, 20:06