MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  Access365 em 23/8/2020, 00:51

    Olá,
    Tenho o controle SUBSOMA que soma assim:
    Aba Formato: Formato: "R$ "#.##0,00;"(R$ "#.##0,00)
    =Nz([SubForm].[Formulário]![controleA]+[SubForm].[Formulário]![controleB])

    Preciso dizer que quando este controle for R$ 0,00 um aviso aparecerá:
    If Me.subsoma > "" Then
    Me.rotDevMaisRec.Visible = True
    Else
    Me.rotDevMaisRec.Visible = False
    End If

    Não está funcionando...

    Obrigado, Luz e Paz!
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  marcelo marques em 23/8/2020, 02:26

    boa noite meu amigo tenta assim
    If Me.subsoma =0 Then
    Me.rotDevMaisRec.Visible = True
    Else
    Me.rotDevMaisRec.Visible = False
    End If
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  Access365 em 28/8/2020, 18:16

    Obrigado, mas não resolve... Já tentei com 0, "", Null... nada dá certo
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  Alexandre Fim em 28/8/2020, 19:04

    Olá,

    Tente isso:

    Código:


    If IsNull(Me.subsoma) Or Trim(Me.subsoma) = Empty Then
        Me.rotDevMaisRec.Visible = True
    Else
        Me.rotDevMaisRec.Visible = False
    End If



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  marcelo marques em 28/8/2020, 20:10

    Teria como vc enviar parte do seu bd
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 766
    Registrado : 12/04/2016

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  marcelo marques em 28/8/2020, 20:12

    Desculpa Alexandre enviamos juntos
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1150
    Registrado : 13/12/2016

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  Alexandre Fim em 28/8/2020, 20:25

    Relaxa @Marcelo Marques
    Estamos juntos pra ajudar...
    abs


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  Access365 em 31/8/2020, 18:34

    Obrigado pessoal, mas não deu certo ainda...
    Alexandre, o que está indicado pela seta azul tem que "visible=False", quando o que está indicado pela seta vermelha for "R$ 0,00".

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Soma_c10

    Luz e Paz!
    Access365
    Access365
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

    [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA Empty Re: [Resolvido]Como dizer que um campo em formato moeda é maior que R$ 0,00 em VBA

    Mensagem  Access365 em 1/9/2020, 18:32

    Falta de pensar.... rs

    Deixei o campo onde aparece (Devedor + Recebidos) visível e inseri:
    =SeImed([subsoma]='0';'';'(Devedor + Recebidos)')

    Assim, toda vez que finalizo a digitação das datas ou clico "Recalcular", adicionei -> Me.campo.Requery


    Obrigado! Luz e Paz

      Data/hora atual: 3/12/2020, 10:37