---

Espero que gostem. Em vez de utilizar funções que apenas digam que existem campos vazios, por que não indicar quais seriam esses campos? Por exemplo, "AVISO: o campo Telefone está vazio !!!". Logicamente, você deverá sinalizar quais os campos obrigatórios para preenchimento.

Código:

Public Function VerificarCampos()

'#Código de Eduardo Machado (Good Guy) - 2015
On Error Resume Next
Dim strMsg As String
Dim intRetVal As Integer
Dim ctl As control
Dim sCampoX As Variant


strMsg = "Verificar dados?"
intRetVal = MsgBox(strMsg, vbQuestion + vbYesNo, "Impressão de Relatório")
Select Case intRetVal
Case Is = vbYes

Const conVinculado = -1      'Colocar -1 na propriedade Marca da aba Outra de cada campo do formulário que deseja verificar

For Each ctl In Me.Controls
    If ctl.Tag = conVinculado Then
        Select Case ctl.ControlType
        Case acTextBox, acComboBox
        If ctl.Value = "" Or ctl.Value = Null Then
            
        sCampoX = ctl.Name
      
        MsgBox "O campo " & sCampoX & " está vazio. Verifique !!!", vbInformation, "Checa Campos"  'Ou, com vbCritical
        End If
        End Select
    End If
Next ctl
Case Is = vbNo
DoCmd.RunCommand acCmdSaveRecord
MsgBox "OK", vbExclamation, "Fim da Verificação"
End Select

End Function