[Resolvido]Campos obrigatórios

Boa Noite Mestre JPaulo

Estou louco, pois já experimentei n maneiras e não consigo fazer um botão interpretar o código:

Num form tenho um botão de saída e que faz refresh:

If IsNull(Me.NProcesso) And IsNull(Me.Posição) Then
Call MsgBox("Os campos Processo e Posição são obrigatórios", vbCritical, "Preencher")
Else
DoCmd.Close
Form_frm1.Refresh
End If

Pois o botão ignora o código à excepção do Close e Refresh. Já tentei tudo e o único código que funciona só a metade é este:

If Nz(Me.NProcesso, "") = "" Then
MsgBox "P.F. verifique o campo Processo ou a Posição.", , "Atenção"
Me.NProcesso.SetFocus
Else
If Nz(Me.Posição, "") = "" Then
MsgBox "P.F. verifique o campo Processo ou a Posição.", , "Atenção"
Me.Posição.SetFocus
Else
DoCmd.Close
Form_frm1.Refresh
End If
End If

E digo que funciona a metade porque tendo os 2 campos em branco, ele só assume o campo Posição e ignora o campo NProcesso???

Estou cansado de lutar contra isto. Agradeço a sua ajuda. Baixei o seu código aqui no fórum para não deixar campos nulos. mas o mesmo é Public Function e o que eu preciso é de apenas 2 campos.

Tente com essas pequenas alterações, vamos ver se dá certo:

If IsNull(Me.NProcesso) Or Me.NProcesso.Value = "" And IsNull(Me.Posição) Or me.Posição.Value = "" Then
MsgBox "Os campos Processo e Posição são obrigatórios", vbCritical, "Preencher"
Else
DoCmd.Close
Form_frm1.Refresh
End If

Mas, por que o refresh para fechar o form? Seria outro form e não o que está sendo fechado?

Bom dia Amigo Criquio

Pois nem assim. Quanto ao refresh ele não o faz para este form, mas para o form frm1, neste caso o principal, porque os dados desta ficha são inseridos num subform e a actualização é imediata. Nunca me aconteceu algo assim. Tentei a instrução select case e nada. Devo estar a fazer algo errado! Este form é uma ficha de interveniente em processo e para o principal passam 2 campos; NProcesso e Posição. Não consigo fazer o botão interpretar o ´código. Até já o mudei, não fosse o caso de ele cismar comigo.

De qualquer forma agradeço.

Boa tarde,

Experimente

If IsNull(Me.NProcesso) or Me.NProcesso="" or IsNull(Me.Posição) or Me.Posição="" Then
MsgBox("Os campos Processo e Posição são obrigatórios", vbCritical, "Preencher")
Else
DoCmd.Close
Form_frm1.Refresh
End If

Atenção aos AND e OR:
NuloA and NuloB - só é verdade se forem ambos nulos
NuloA or NuloB - é verdade desde que um deles seja nulo

Boa Tarde Amigo Alexandre

Agradeço a ajuda pois o feedback é positivo. Funcionou tudo direitinho.

Os meus agradecimentos