[Resolvido]Preenchimento obrigatório em campo de subformulário

Olá amigos,

Econtrei este código e estou tentando adaptá-lo para tornar um campo obrigatório dentro de um subformulário. Tenho aqui alguns subformulários, sendo que no primeiro subformulário o código roda normal, porém ao colar/adaptar o código ao segundo subformulário, nada acontece... Devido a minha falta de experiência em vba, não sei exatamente se o código está incompleto ou na ordem errada...

A intenção é fazer com que o campo seja preenchido obrigatoriamente e que o usuário não saia do subformulário enquanto este não for preenchido...
Se alguém puder indicar um outro código para melhoria, será de grande valia...

'primeiro subformuláio
Private Sub DtSituacaoGestor_GotFocus()
If IsNull(cboSituacaoGestor) Then
   cboSituacaoGestor.BackColor = 9934847 'cor
   cboSituacaoGestor.SetFocus 'foco volta para o campo
   MsgBox "O campo de Situação no Gestor'" & cboSituacaoGestor.StatusBarText & "' é de preenchimento obrigatório.", vbExclamation
   DoCmd.CancelEvent
   End
   Else
       If Me.Form.Dirty = True Then
           DtSituacaoGestor = Now()
               If MsgBox("Confirma Atualização de Acompanhamento de Análise do Gestor?", vbYesNo, "") = vbNo Then
                   Me.Undo
               End If
       End If
End If
End Sub

'segundo subformulário
Private Sub DtSituacaoDiretoria_GotFocus()
If IsNull(cboSituacaoDiretoria) Then
   cboSituacaoDiretoria.BackColor = 9934847 'cor
   cboSituacaoDiretoria.SetFocus 'foco volta para o campo
   MsgBox "O campo de Situação na Diretoria'" & cboSituacaoDiretoria.StatusBarText & "' é de preenchimento obrigatório.", vbExclamation
   DoCmd.CancelEvent
   End
   Else
       If Me.Form.Dirty = True Then
           DtSituacaoDiretoria = Now()
               If MsgBox("Confirma Atualização de Acompanhamento da Análise na Diretoria?", vbYesNo, "") = vbNo Then
                   Me.Undo
               End If
       End If
End If
End Sub

Boa tarde

Para este tipo de situação normalmente uso, no evento Ao Sair do Campo em questão o código abaixo:

Código:


Private Sub Convenio_Exit(Cancel As Integer)
If Not IsNull(Me.Id_Convenio) Then
    If IsNull(Me.ActiveControl) Then
        MsgBox "Informe o Convênio!", vbExclamation, "Atenção"
        DoCmd.SetWarnings False
        DoCmd.CancelEvent
    End If
End If
End Sub


Veja se te ajuda.

Att.
Vinicius

Boa tarde Vinicius,

Já ajudou bastante... Além daquele outro que estava usando, adaptei o código indicado no primeiro subformulário e rodou certinho...  Também é bom porque sinaliza/bloqueia no momento de sair do campo em questão, e dessa forma não tem como seguir adiante com os outros campos enquanto ele não for preenchido, muito bom...

Entretanto continuo sem entender, por que ao adaptar/colar o mesmo código para os outros subformulários, passa em branco como se nada estivesse acontecido...  

'primeiro subformuláio OK
Private Sub cboSituacaoGestor_Exit(Cancel As Integer)
If Not IsNull(CodAcompGestor) Then
If IsNull(cboSituacaoGestor) Then
       MsgBox "Informe a Situação de Acompanhamento no Gestor!", vbExclamation, "Atenção"
       DoCmd.SetWarnings False
       DoCmd.CancelEvent
End If
End If
End Sub

'segundo subformulário
Private Sub cboSituacaoDiretoria_Exit(Cancel As Integer)
If Not IsNull(CodAcompDiretoria) Then
   If IsNull(cboSituacaoDiretoria) Then
       MsgBox "Informe a Situação de Acompanhamento na Diretoria!", vbExclamation, "Atenção"
       DoCmd.SetWarnings False
       DoCmd.CancelEvent
   End If
End If
End Sub

Valeu pela dica

Bom dia

Se possível, poste a parte de sua aplicação em que isto ocorre para dar uma olhada....

Att.
Vinicius

Bom dia Vinicius,

Desculpe a demora... Estava fazendo outros testes no bd. Consegui reduzir o problema a este bdteste e deixar só a parte em questão... mas basicamente a ideia é a mesma: tenho que fazer com que, quando ao tentar sair do subformulário, tanto o campo da DtEnvioGestor/Diretoria como a cboSituacaoGestor/Diretoria, dos subformulários, sejam de preenchimento obrigatório...E pensando melhor, tentei colocar para que tenha a mensagem de salvar logo que for concluída a operação.

Testando de outras formas, percebi que não é tão simples como pensei, e no caso, entra em jogo outros pontos. Por exemplo, ao deixar o campo DtEnvio como requerido na tabela, e se no subformulário ele não for preenchido logo de primeira, e ao chegar o momento de salvar ele critica e me leva para a janela de depuração... Percebi também que, quando ao entrar no campo cboSituacaoGestor/Diretoria e não preenchê-lo e ao tentar fazer outra consulta num campo fora do sub, como por exemplo no formPrincipal, não consigo sair da mensagem de preenchimento obrigatório... Percebi estes pontos nos testes.

Se puderes dar uma olhadinha no bdexemplo, fico grato...
Já valeu pela intenção

Bom dia

Detalhe para mim como devo testar para entender o que esta havendo.

Att.
Vinicius

Bom dia

Veja se este pequeno exemplo te ajuda.....

Att.
Vinicius

Olá Vinicius

...desculpe a demora no retorno.

Este exemplo já ajudou sim e entendi o código do exemplo que deixou, e estou adaptando.
Vou detalhar no próprio exemplo o que acontece e assim saber se é possível fechar todas as brechas...

Quando o usuário utiliza o teclado para tirar o foco do formulário sem preencher todos os campos que são obrigatórios, temos a mensagem da crítica e até aqui tudo bem...
Entretanto, o usuário pode ainda utilizar o mouse para tirar o foco do formulário e colocá-lo em outro formulário, sem preencher todos os campos que eram obrigatórios...
Se houver uma maneira que impeça totalmente de sair do formulário, independentemente se é utilizando o teclado ou o mouse, será uma grande melhoria..

Grato pela ajuda..

Bom dia

Me perdõe pela ausência, porém, se você tratar no subformulário, no evento ao sair do campo imagino que já atenda a sua demanda.

Att.
Vinicius

Olá Wesley

Eu poderia simplesmente baixar teu exemplo e fazer com que funcione como deseja.
Mas como a coisa é simples e você mesmo pode fazê-lo e com isso irá enriquecer
teus conhecimento de programação em Access, convido-o  ler essa mensagem , copiar e utilizar essa função que testa todos os campos (caixas de texto) se estao ou não preenchidas.
Leia a instrução do post atentamente, como tem somente uma caixa de controle para a verificação, coloque  o "t"  na propriedade marca dessa caixa de texto (irá entender quando ler o post).

Deve-se usar a função no evento ao fechar do formulário ou outra propriedade que irá salvar
o registro.

[ ]'s

Noob

Olá Wesley


E então?


Noob

Prezado Noob, perdão pela falta de retorno. Estive ausente, por força maior...

No momento estou tentando aplicar o código da mensagem que convidaste-me a ler...

Na linha onde se encontra a parte:

Código:

If Screen.ActiveForm!IDCliente <> 0 Then

;
estou substituindo por:

Código:

If Screen.ActiveForm!CodAcompProcesso <> 0 Then


porém não está encontrando o campo indicado...
Obrigado desde já...

Código:

Function TestaCampos() As Boolean
   Dim I As Integer
   Dim strMsg As String
   Dim strTitle As String
    
   TestaCampos = True
  
If Screen.ActiveForm!IDCliente <> 0 Then
   'inicia o loop pelos controle do formulário
   'a contagem começa em zero (0) até  x-1
   For I = 0 To Screen.ActiveForm.Count - 1
       'se o controle tem a marca(tag) = t então
       If Screen.ActiveForm(I).Tag = "t" Then
           'se o campo está vazio então
           If IsNull(Screen.ActiveForm(I)) Or Screen.ActiveForm(I) = "" Then
               'emite mensagem acompanhado do nome do controle
               strMsg = "É obrigatório o preenchimento do campo '" & Screen.ActiveForm(I).Name & "'!"
               strTitle = "Campo em Branco"
               MsgBox strMsg, 48, strTitle
               'move o foco para o controle
              Screen.ActiveForm(I).SetFocus
               TestaCampos = False
            
               Exit Function
           End If
       End If
   Next I

End If
End Function

Wesley

Vendo tuas imagens, vejo que colocou o código da função

dentro do evento ao sair do subformulário.

Veja no exemplo que uma coisa é a função que deve ficar num módulo básico na pagina do vba.

Uma vez que a função está gravada lá, irá chama-la no evento

Ao sair do formulário irá colocar:

If Not TestaCampos Then
Exit Sub
End If

Olá Noob,

Até aqui onde estou entendendo, talvez seja porque, neste caso, não posso referenciar o campo privado do Subformulário na função pública do módulo? Se este for o caso, o que eu poderia colocar no lugar do:
If Screen.ActiveForm!CodAcompProcesso <> 0 Then?
Quero utilizar esta sugestão de código, porque ela permite escolher os campos a serem obrigatórios...

Wesley


"If Screen.ActiveForm!CodAcompProcesso <> 0 Then"

Essa frase verifica que existe registro no formulário,para então fazer o  loop
através  das caixas de texto dele.

2 perguntas:
1- CodAcompProcesso  tem código? ou seja, não está vazio?
2- O código é número ou texto, se for texto , não funfa (=0)

Sabe usar a janela de verificação imediata?
Se sim, coloque um ponto de interrupção justamente nessa linha e faça a operação.
O código deve parar nessa linha mesmo.
Então na janela imediata, digite:

? Screen.ActiveForm.Name  ' O sinal de interrogação é o mesmo que print ou exiba, então deverá exibir logo abaixo  o nome do              
                                      formulário que esta ativo.

Aguardo...

Wesley

E então?

Prezado Noob,

Desculpe o lapso de tempo desde a última vez.. Passei por uma série de complicações nos últimos tempos, mas estou bem..

Deixo o tópico aqui como resolvido.

Assim que me inteirar novamente volto ao tópico aqui proposto..

Grato pela atenção!