[Resolvido]Comando DoCmd.Close (nao executar esse comando se campo nulo)

ola,

tenho um formulário com 4 botoes.
1º = registro anterior
2º = proximo registro
3º = novo
4º = fechar formulario

o codigo do botao fechar é o seguinte:

Private Sub Command9_Click()

Call Command8_Click
DoCmd.GoToRecord , , acNewRec

DoCmd.Close

End Sub

eu tenho um campo no form cbxStatus que tem que ser obrigatorio. nos outros botoes eu consegui colocar. nesse que tem o comando fechar mesmo que eu coloque o codigo abaixo:
Private Sub Command9_Click()

Call Command8_Click
DoCmd.GoToRecord , , acNewRec

If IsNull(Me.cbxStatus) Then
MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
Else

End If

DoCmd.Close

End Sub

quando clicado no botao fechar ele da a msg que o campo e obrigatorio, porem ele nao da o foco no campo e sim fecha o formulario.. o que fiz errado no codigo?

obrigado

Tente trocar o End If e o DoCmd.Close de lugar.

Criquio, bom dia.. fiz a mudança funcionou... o codigo ficou assim
Private Sub Command9_Click()

If IsNull(Me.cbxStatus) Then
MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
Else
Call Command8_Click
DoCmd.GoToRecord
DoCmd.Close
End If

End Sub

no botão comand8 eu tenho esse mesma informação. o codigo que obriga o campo cbxStatus ser preenchido. pois todos os botoes chamam esse comando. isso salva as alteraçao numa tabela de log. eu tenho usuarios no bd.
eu testei no codigo do botao fechar a instrução

Private Sub Command9_Click()
Call Command8_Click
DoCmd.GoToRecord
DoCmd.Close

End Sub

porem quando clico no botao fechar, ele da a msg que o campo cbxstatus precisa ser preenchido, porem ele fecha direto.. nao da o foco.

o que preciso mudar.. assim nao preciso ficar repetindo a instruçao que esta no codigo do botal comand8.

Tem de parar a instrução com o Exit Sub

MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
Exit Sub
Else

JP, boa tarde....
entrei na instruçao do botao(salvar) nome Comand8 coloquei a instruçao Exib Sub conforme orientou ficou perfeito. assim que clica o campo cbxStatus ganha o foco ele não salva enquanto o campo cbxStatus estiver em branco.

Porem tenho o botao(fechar) que chama a instruçao do Comand8. o código desse botão esta assim:
Private Sub Command9_Click()

Call Command8_Click
DoCmd.GoToRecord
DoCmd.Close

End Sub

quando clico nesse botão, ele da a msg que precisa preencher o campo mas ele executa o DoCmd.Close e fecha o form, não dá o foco no campo para preencher.

nao estou conseguindo ver o que falta.

Tenta assim pode ser que resolva, ou pelo menos é uma ideia:

If IsNull(Me.cbxStatus) Then
MsgBox "O campo ""Status do pedido"" é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
cbxStatus.SetFocus
If Me.cbxStatus <> "" Then
DoCmd.Close
End If
End If
Exit Sub

Pessoal muito obrigado.. funcionou perfeito...

muito obrigado pelas informações... voces manjam muito... obrigado