[Resolvido]Tornar campo não requerido em obrigatório

Boa tarde!

Tenho o seguinte código num campo no evento AO RECEBER FOCO

Private Sub RESPONSAVEL_GotFocus()
If MENOS_DE_UM_ANO.Value = "SIM" Or IDADE.Value > 0 < 18 Then
MsgBox "Este campo é Obrigatório! Preencha-o!", vbInformation, "Aviso!"
Me!RESPONSAVEL.SetFocus
Else
Me!RESPONSAVEL.Enabled = False
End If
End Sub

O que está acontecendo é que se eu sair do campo RESPONSÁVEL, ou seja, deixá-lo vazio depois desse evento, os outros campos são editados normalmente sem que fique neste campo até que o usuário cadastre um nome, obedecendo os critérios da primeira linha do IF...

Essa mesma lógica vai acontecer em outros campos do Banco de Dados que estou construindo...

Existe uma maneira de aproveitar o Código acima e melhorá-lo?

Desde já agradeço!

Olá...
Seja bem vindo ao Fórum
Se for para não sair do campo, então não coloque no evento ao receber o foco e sim no evento ao sair.
Cole o código abaixo e veja se resolve!!

Código:

Private Sub RESPONSAVEL__Exit(Cancel As Integer)
If MENOS_DE_UM_ANO.Value = "SIM" Or IDADE.Value > 0 < 18 Then
MsgBox "Este campo é Obrigatório! Preencha-o!", vbInformation, "Aviso!"
DoCmd.CancelEvent
Me!RESPONSAVEL.SetFocus
Else
Me!RESPONSAVEL.Enabled = False
End If
End Sub

OBS: Por Regras do Fórum não digite texto ou nome de tópicos em maísculos, leia as Regras do Fórum

Aguardo retorno

Abraços

Boa noite!

Desculpa sobre as palavras em maiúsculas, não foi a intenção, apenas usei para destaque!

O código não funcionou totalmente.

A intenção é fazer com que o usuário somente saia do campo depois que ele inserir o nome do Responsável.

O código modificado está prendendo permanentemente o foco no campo, mesmo depois que se insere um nome qualquer.


agradeço a ajuda!

Olá...
Ele só vai sair se critérios forem obedecidos

Caso não consiga Anexe seu BD para poder ajudar de maneira mais correta  

Se campo MENOS_DE_UM_ANO é do tipo Sim/Não e pelo que percebi esta com espaços, então altere para Me.[MENOS_DE_UM_ANO] = True

Altere também IDADE para Me.IDADE
Veja no código abaixo

Código:

Private Sub RESPONSAVEL__Exit(Cancel As Integer)
If Me.[MENOS_DE_UM_ANO] = True Or Me.IDADE > 0 < 18 Then
MsgBox "Este campo é Obrigatório! Preencha-o!", vbInformation, "Aviso!"
DoCmd.CancelEvent
Me!RESPONSAVEL.SetFocus
Else
Me!RESPONSAVEL.Enabled = False
End If
End Sub

Aguardo

Abraços

Boa noite!

Os dois campos analisados pelo código estão na Guia 'Dados Pessoais' do formulário de Cadastro.

Sendo que, existe um código no campo 'Menos_de_um_ano' que, se o valor deste mesmo campo for 'Sim',
o campo 'Idade' fica desabilitado.

Caso contrário, se for 'Não', fica habilitado.

Com o campo 'Idade' habilitado, cai na outra condição (Menor de idade), o valor pode estar entre
(Idade > 0 < 18).

Quando o usuário for cadastrar no campo 'Responsavel', será feita uma análise destes dois campos
citados nos critérios; caso os valores destes campos não obedecerem as regras, então o campo 'Responsavel'
ficará desabilitado.

Agora, caso obedeça a uma das regras, o campo 'Responsavel' não poderá ficar em branco, ou seja, o usuário
obrigatoriamente terá que entrar com o nome do responsável pelo menor.  O campo só será liberado quando tiver
dados.

Lembrando que, os seguintes campos seguem o mesmo raciocínio (por estarem envolvidos na questão do Aluno ser
menor de idade ou ter menos de um ano):

- Responsavel      (Guia Responsavel)
- Grau_Parentesco  (Guia Responsavel)
- RG_Responsavel   (Guia Documentação)
- CPF_Responsavel  (Guia Documentação)

Segue em anexo o BD para visualizar melhor.

Abraços!

Olá...

O anexo não veio

Tem que zipar e anexar

Lembrando que o campo Responsavel não pode ser desabilitado quando ele tem o foco, esta condição terá que ser vista antes de entrar no campo

Aguardo

Olá..
Antes de enviar o anexo tente esta alteração

Código:

If IsNull(Me.RESPONSAVEL) Or Me.RESPONSAVEL = "" Then
If Me.[MENOS_DE_UM_ANO] = True Or Me.IDADE > 0 And Me.IDADE < 18 Then
MsgBox "Este campo é Obrigatório! Preencha-o!", vbInformation, "Aviso!"
DoCmd.CancelEvent
Me!RESPONSAVEL.SetFocus
Else
Exit Sub
End If
End If

Lembrando que o campo Responsavel não pode ser desabilitado quando ele tem o foco, esta condição terá que ser vista antes de entrar no campo

Aguardo

Abraços

Segue o anexo.

Desculpe.

Abraços!

Obrigado!

Tenha um Feliz Ano Novo!

Abraços!

Olá...

Vamos lá, em relação a inabilitar o campo Responsavel teremos que inabilitar pelo campo idade caso a idade seja maior ou igual a 18, então cole este no evento após atualizar o campo idade

Código:

Private Sub IDADE_AfterUpdate()
    If Me.IDADE >= 18 Then
    Me.RESPONSAVEL.Enabled = False
    Else
    Me.RESPONSAVEL.Enabled = True
    End If
End Sub

No Campo Responsavel cole este

Código:

Private Sub RESPONSAVEL_Exit(Cancel As Integer)
    If IsNull(Me.RESPONSAVEL) Or Me.RESPONSAVEL = "" Then
        If Me.[MENOS_DE_UM_ANO] = "SIM" Or Me.IDADE > 0 And Me.IDADE < 18 Then
        MsgBox "Este campo é Obrigatório! Preencha-o!", vbInformation, "Aviso!"
        DoCmd.CancelEvent
        Me!RESPONSAVEL.SetFocus
    Else
        Exit Sub
    End If
End If
End Sub

Faça os teste e retorne

Aguardo

ok
Funcionou, obrigado.

Olá..

Obrigado pelo retorno.
O Fórum agradece

Abraços