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]Condição IF Não Está Atendendo

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Condição IF Não Está Atendendo Empty [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Ismael Silva 5/5/2022, 16:26

    Boa tarde,

    O que estaria fazendo de errado para o seguinte caso:

    No Frm_Modelo, no botão Salvar, inseri a condição:

    If Me.Cbo_Forma_Pgto_Benef = "DEPÓSITO EM CONTA" Or Me.Cbo_Forma_Pgto_Benef = "EM MÃOS" And Me.Txt_Conta = "" Or IsNull(Me.Txt_Conta) Then
       
       MsgBox "Dados da Conta é de Preechimento Obrigatório!", vbCritical, "Controle de Pensões"
       
       Me.Txt_Conta.SetFocus
       
       Exit Sub


    Ocorre que se insiro um funcionário que é depósito em conta, e mesmo colocando valores no campo Txt_Conta, ainda assim ele pede pra preecher o campo, já fiz tudo o que eu tinha conhecimento, inverti a ordem, mas sem sucesso.

    Onde erro?
    Anexos
    [Resolvido]Condição IF Não Está Atendendo AttachmentControle_Pensoes1 - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (276 Kb) Baixado 4 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Alexandre Fim 5/5/2022, 16:52

    Olá Ismael,

    Neste formulário, criei uma função que valida o preenchimento dos campos, e o registro somente será gravado se esta função retornar TRUE.
    Caso seja necessário validar outros campos, é só incluir na função (copia e cola o que já tem e muda somente os campos).

    Segue versão ajustada.

    É isso.
    Att,
    FIM
    Anexos
    [Resolvido]Condição IF Não Está Atendendo AttachmentControle_Pensoes1_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (148 Kb) Baixado 16 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Condição IF Não Está Atendendo Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Ismael Silva 5/5/2022, 17:01

    Obrigado Alexandre, deu certo nos testes que fiz.

    Mas poderia dizer por que dá forma que fiz não deu certo?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Alexandre Fim 5/5/2022, 17:09

    Quando houver várias condições várias condições em uma mesma linha, é necessário separá-las com PARENTESES:


    If (Me.Cbo_Forma_Pgto_Benef = "DEPÓSITO EM CONTA" Or Me.Cbo_Forma_Pgto_Benef = "EM MÃOS") And (Me.Txt_Conta = "" Or IsNull(Me.Txt_Conta)) Then


    Sempre que possível, "quebre" essas condições ou utilize If dentro de If


    É isso.
    Att,
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Condição IF Não Está Atendendo Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Ismael Silva 5/5/2022, 17:14

    Perfeito, novamente obrigado.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Alexandre Fim 5/5/2022, 17:28

    [Resolvido]Condição IF Não Está Atendendo Aqzf3Za9eQPpAAAAAElFTkSuQmCC


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Condição IF Não Está Atendendo Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lpdias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 177
    Registrado : 11/01/2016

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  lpdias 5/5/2022, 17:29


    Olá meu amigo, use o código abaixo que dará certo.
    Abraço

    If Cbo_Forma_Pgto_Benef = "depósito em conta" And Txt_Conta = "" Or IsNull(Me.Txt_Conta) Or Cbo_Forma_Pgto_Benef = "em mãos" And Txt_Conta = "" Or IsNull(Me.Txt_Conta) Then
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 827
    Registrado : 11/12/2017

    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Ismael Silva 6/5/2022, 19:06

    Obrigado lpdias.

    Conteúdo patrocinado


    [Resolvido]Condição IF Não Está Atendendo Empty Re: [Resolvido]Condição IF Não Está Atendendo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 19:37