[Resolvido]Avisar campo é obrigatorio

Pessoal tenho 5 campos que quero obrigar o preenchimento,mas atraves do form com este código

Private Sub Comando22_Click()

On Error GoTo Err_Comando8_Click
If IsNull(Me.valornota) Or Me.valornota = "" Or IsNull(Me.vencimento) Or Me.vencimento = "" Then
If IsNull(Me.tipoconta) Or Me.tipoconta = "" Or IsNull(Me.Situação) Or Me.Situação = "" Then
If IsNull(Me.Nomefornecedor) Or Me.Nomefornecedor = "" Then
Call MsgBox("O campo Valor Nota é obrigatório", vbCritical, "Preencher")
Call MsgBox("O campo Vencimento é obrigatório", vbCritical, "Preencher")
Else
DoCmd.Close
End If
Exit_Comando8_Click:
Exit Sub
End If
Err_Comando8_Click:
MsgBox err.Description
Resume Exit_Comando8_Click
End If
DoCmd.RunCommand acCmdRecordsGoToNew
End Sub

Mas como eu faço para avisar somente o que não esta preenchido
exemplo dos 5 campos apenas o campo1 não vou preenchimento a mensagem deve avisar que apenas campo1 não esta preenchido,ou campo1 ecampo3 não foi preenchido a msg avisa campo1 ,campo2 não preenchido.

Vá nas propriedades dos campos que entrarão nessa condição e coloque algo como "A" na linha "Marca" da aba "Outra". Crie uma instrução mais ou menos assim:

Dim NCampo As Control, NumCampo As Integer, NomeCampo As String

NumCampo = 0

For Each NCampo In Me.Controls
If NCampo.Tag = "N" Then
If IsNull(NCampo) Or NCampo.Value = "" Then
NomeCampo = NomeCampo & " - " & NCampo.Name
NumCampo = NumCampo + 1
End If
End If
Next NCampo

If NumCampo > 0 Then
MsgBox "Há campos de preencimento obrigatórios vazios:" & vbcrlf & vbcrlf & NomeCampo, vbOkOnky, "Atenção"
End If

Não compreendi como chamo este evento?

No mesmo botão que você grava os dados:

Dim NCampo As Control, NumCampo As Integer, NomeCampo As String

NumCampo = 0

For Each NCampo In Me.Controls
If NCampo.Tag = "N" Then
If IsNull(NCampo) Or NCampo.Value = "" Then
NomeCampo = NomeCampo & " - " & NCampo.Name
NumCampo = NumCampo + 1
End If
End If
Next NCampo

If NumCampo > 0 Then
MsgBox "Há campos de preencimento obrigatórios vazios:" & vbcrlf & vbcrlf & NomeCampo, vbOkOnky, "Atenção"
Else
DoCmd.RunCommand acCmdRecordsGoToNew
End If

Criquio , só mais uma duvida deve fazer isto em cada campo?
Ncampo , Numcampo aque se refere?

Dim NCampo As Control, NumCampo As Integer, NomeCampo As String 'Declaro as variáveis

NumCampo = 0 ' Zero a variável NumCampo

For Each NCampo In Me.Controls ' Para cada NCampo (representa todos os controles) do formulário
If NCampo.Tag = "N" Then ' Se a Marca for "N" então
If IsNull(NCampo) Or NCampo.Value = "" Then ' Se o campo estiver vazio então
NomeCampo = NomeCampo & " - " & NCampo.Name ' Variável "NomeCampo" será ela mesmo mais o nome do campo vazio
NumCampo = NumCampo + 1 ' NumCampo = ele mesmo + 1
End If ' Fim instrução NCampo.Tag
End If ' Fim instrução "Se é vazio"
Next NCampo ' Próximo NCampo (analiza o próximo controle)

If NumCampo > 0 Then ' Se NCampo maior que zero então
MsgBox "Há campos de preencimento obrigatórios vazios:" & vbcrlf & vbcrlf & NomeCampo, vbOkOnky, "Atenção" ' mensagem
Else ' Caso contrário
DoCmd.RunCommand acCmdRecordsGoToNew ' vai para novo registro
End If

As variáveis são declaradas no início para representar os objetos ou características deles. Nesse campo, temos:

NCampo As Control - Variável que representa os controles
NumCampo As Integer - Variável que representa um núnero
NomeCampo As String - Uma variável tipo texto

NCampo avalia os controles
NumCampo acresce um número a cada controle vazio
NomeCampo captura o nome do campo vazio.

Criquio estou meio confuso ,meus campos são os seguintes nomefornecedor,valornota,vencimento,tipo,situação
como ficaria então?

Observe a primeira linha do meu primeiro post:

"Vá nas propriedades dos campos que entrarão nessa condição e coloque algo como "A" na linha "Marca" da aba "Outra"."

Basta você colocar um A na referida linha desses campos.

Propriedade do campo > aba Outra > Linha Marca

Você coloca no botão que você clica para chamar o evento que já tinha.

Criquio perdoe-me mas o que não estou entendo e´com montar esse evento

quais campos devo alterar para o nome dos meus campos?
Quando por o A na aba outra j ao fiz ,devo fazer com todos os campos?

Você só precisa colocar esse código no evento "Ao clicar" do botão. Apenas isso.

Criquio ,já fiz como disse coloquei um A na propriedade Marca de cada evento
colei seu código no evento click de meu botão ,mas não deu resultado?

Para quê inventar a Roda quando ela já existe ?

http://maximoaccess.forumeiros.com/t280-valida-campos-nulos

Jpaulo,ja tentei adptar seu código ,mas recebo uma msg dizendo invalido foro do procedimento, ValidaCamposNulos fica destacado

Veja o exemplo com atenção, não temos pressa.

Qualquer coisa dê um grito.

Da erro de compilação ?
If ValidaCamposNulos = False Then essa da erro

Resolvido Jpaulo,funcionou.
Só uma perguntinha tenho 5 campos ,um deles não necessita preencher os dados,teria como deixar como não obrigatório.