Não gravar dados com campo vazio

Boa noite!


Pessoal gostaria de exigir valor em alguns campos antes de gravar o registro no meu formulário, ou seja, só grava o registro se haver dados neste campo.
Eu fiz esse código abaixo, ele está exibindo a mesangem, mais não sei aonde errei que ele não está cancelando o evento,

On Error GoTo Btn_Salvar_Click_Err
If IsNull(Txt_prontuario) Or Txt_CodPart = "" Then
MsgBox "Você não informou o participante.", vbCritical, "Sistema"
Txt_CodPart.SetFocus
DoCmd.CancelEvent
End If


Alguém pra me socorrer!!!????

Olá Jleomr

Tente adaptar esse código a sua necessidade:

Coloque no seu botão seu botão Salvar:


Dim intResponse As Integer
Dim Msg As String

   If Me.Dirty Then
   intResponse = MsgBox("Deseja Salvar o Registro?", vbYesNoCancel + vbQuestion, "Sistema")
   
       Select Case intResponse
           
           'Salva tudo o que foi feito
           Case vbYes
           DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
                         
           'Não salva
           Case vbNo
           Me.Undo
             
           'Cancela
           Case vbCancel
           Me.TXT_CODPART.SetFocus 'nome do campo que vai receber o foco caso cancele
       End Select
       
   End If


E coloque esse código em AO SAIR de cada campos que é obrigatório o preenchimento:


If IsNull (Me.TXT_PRONTUARIO) Or Me.TXT_PRONTUARIO.Value = "" Then
MsgBox "O campo Prontuário é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
DoCmd.CancelEvent