[Resolvido]Preenchimento obrigatório dos campos

Boa tarde a todos, como eu faço p/ colocar o preenchimento de alguns campos do formulário obrigatórios?

Dê uma pesquisada no fórum. Temos vários tópicos sobre o assunto.

Bom dia Max!

O criquio tem razão, mas vai ai uma forcinha...

Private Sub SeuBotão_Click()

If IsNull(Me.campo1) Then
Me.campo1.SetFocus
MsgBox "Max Ramos preencha o campo1!", vbInformation, "Atenção!"

ElseIf IsNull(Me.campo2) Then
Me.campo2.SetFocus
MsgBox "Max Ramos preencha o campo2!", vbInformation, "Atenção!"


ElseIf IsNull(Me.campo3) Then
Me.campo3.SetFocus
MsgBox "Max Ramos preencha o campo3!", vbInformation, "Atenção!"

ElseIf IsNull(Me.campo4) Then
Me.campo4.SetFocus
MsgBox "Max Ramos preencha o campo4!", vbInformation, "Atenção!"

Else

End if
End sub

Abraço!

Eu tenho que fazer um else para cada campo que eu queira colocar obrigatório?

Faça como te passei, qualquer duvida posta o bd que te ajudaremos!

Lupercio, deu certo...
Vc é o melhor, valeu.

O forum agradece pelo retorno,
e sempre estaremos aqui, aprendendo com muitas feras deste forum!
Lembrando que devemos sempre compartilhar nossos conhecimentos.

Um abraço Max, fica com Deus.

Gente bom dia, queria aproveitar que o tópico ainda está em aberto p tirar uma dúvida.

Esse código funcionou perfeitamente no formulário

If IsNull(Me.Área) Then
Me.Área.SetFocus
MsgBox "Informe a Área!", vbInformation, "Atenção!"

Mas para o subformulário não dá, tem que acrescentar algo?

Se puder poste o bd, ai analizamos o mesmo!

Coloquei o banco em anexo.
O formulário se chama "Corretiva"
Então, ao clicar no botão salvar, tem que aparecer a msg dizendo que o prienchimento do campo Área tem que ser obrigatório.

Eu fiz um código parecido com o que me falaram, mas ele não funciona o subformulário

É só testar e fazer o mesmo para os outros campos;


If IsNull(Forms!Corretirva![Registros horários subformulário10].Form!Área.Value) Then
MsgBox "Informe a Área!", vbInformation, "Atenção!"
Forms!Corretirva![Registros horários subformulário10].Form!Área.SetFocus
Exit Sub
Else
MsgBox "Trabalho concluido."
End If

Seu código corrigido;


Private Sub salvar_Click()
If IsNull(Forms!Corretirva![Registros horários subformulário10].Form!Área.Value) Then
MsgBox "Informe a Área!", vbInformation, "Atenção!"
Forms!Corretirva![Registros horários subformulário10].Form!Área.SetFocus
Exit Sub

ElseIf IsNull(Forms!Corretirva![Registros horários subformulário10].Form!ID_Conjunto.Value) Then
MsgBox "Informe o Conjunto!", vbInformation, "Atenção!"
Forms!Corretirva![Registros horários subformulário10].Form!ID_Conjunto.SetFocus
Exit Sub

ElseIf IsNull(Forms!Corretirva![Registros horários subformulário10].Form!ID_Subconjunto.Value) Then
MsgBox "Informe o Subconjunto!", vbInformation, "Atenção!"
Forms!Corretirva![Registros horários subformulário10].Form!ID_Subconjunto.SetFocus
Exit Sub

ElseIf IsNull(Forms!Corretirva![Registros horários subformulário10].Form!ID_Componente.Value) Then
MsgBox "Informe o Componente!", vbInformation, "Atenção!"
Forms!Corretirva![Registros horários subformulário10].Form!ID_Componente.SetFocus
Exit Sub
Else

MsgBox "Trabalho concluido."

End If
DoCmd.Save
End Sub

JPaulo, muito o brigado, deu certinho.

Feliz Ano Novo p Todos...

Obrigado pelo retorno o forum agradece.