[Resolvido]Bloquear o salvamento do registro quando há campos não preenchidos

Saudaçoes a todos...

Tenho um form que entre outos tem 4 campos principais
First_Name
Last_Name
Unidaderequisitante
Regime

Tenho o código no Btn Salvar (ao receber Foco), que emite alerta e não permite o salvamento se os campos não estiverem preenhidos...

Preciso que se puderem me ajudar a adpatar o código para que ao receber foco não salve o registro
se os 4 campos não estiverem preenchidos...
cada um emitindo a mensagem...

Se o campo Nome estiver preenchido...e os outros não...
Emitir mensagem para os campos em branco, remetendo o foco para o campo em branco...

O código que estou utilizando é o seguinte:

If IsNull(First_Name) Then
MSG = MsgBox("É necessário o preenchimento do nome do Detento!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
If MSG = vbOK Then
Me.First_Name.SetFocus

Else

If IsNull(UnidadeRequisitante) Then
MSG = MsgBox("É necessário o preenchimento da Unidade Requisitante!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
If MSG = vbOK Then
Me.UnidadeRequisitante.SetFocus
Exit Sub

Aqui estão apenas 2 campos.. preciso para os 4 campos

Se puderem ajudar agradeço

Harysohn

É só acrescentar quantos Elses forem necessários:

If IsNull(First_Name) Then
MSG = MsgBox("É necessário o preenchimento do nome do Detento!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
If MSG = vbOK Then
Me.First_Name.SetFocus
Exit Sub

ElseIf IsNull(UnidadeRequisitante) Then
MSG = MsgBox("É necessário o preenchimento da Unidade Requisitante!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
If MSG = vbOK Then
Me.UnidadeRequisitante.SetFocus
Exit Sub

ElseIf IsNull(NomeTerceiroCampo) Then
MSG = MsgBox("É necessário o preenchimento da Unidade Requisitante!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
If MSG = vbOK Then
Me.NomeTerceiroCampo.SetFocus
Exit Sub

ElseIf IsNull(NomeQuartoCampo) Then
MSG = MsgBox("É necessário o preenchimento da Unidade Requisitante!", vbExclamation + vbOKOnly + vbDefaultButton2, "SysPen")
If MSG = vbOK Then
Me.NomeQuartoCampo.SetFocus
Exit Sub

End If

Olá Qriquio, cumprimentando e agradecendo pela pronta ajuda... quebrei a cabeça aqui e encontrei uma solucao que me resolveu o problema...
No envento Salvar colquei:

Private Sub Salvar_Click()
On Error GoTo Err_Salvar

If MsgBox("Deseja salvar as informações?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then

If IsNull(UnidadeRequisitante) Then
MsgBox "O preenchimento do campo UNIDADE REQUISITANTE é obrigatório!", vbCritical, "SysPen!"
UnidadeRequisitante.SetFocus
ElseIf IsNull(Regime) Then
MsgBox "O preenchimento do campo REGIME é obrigatório!", vbCritical, "SysPen!"
UnidadeRequisitante.SetFocus


Else
MsgBox "Informações salvas com sucesso!", vbInformation, "Sistema!"
DoCmd.Close acForm, "frmCadastro", acSaveYes
End If

End If

Exit_Salvar:
Exit Sub

Err_Salvar:

MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Syspen!"

Resume Exit_Salvar




DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec


End Sub


RESOLVIDO

Obrigado