Não entendi bem a pergunta,mas olha a função do exemplo do JPaulo abaixo. Vou inserir uns comentários que irá ajudá-lo a entender:
Private Function ValidaCamposNulos() As Boolean 'Cria a função ValidaCamposNulos
'By JPaulo ® Maximo Access
ValidaCamposNulos = True 'Condição verdadeira
Dim ctl As Control 'Cria ctl como um controle
Dim strName As String 'Cria strName como uma string
For Each ctl In Me.Controls 'Para cada ctl na condição de controle na lista de controles (campos)
If IsNull(ctl) Then 'Se for nulo então
strName = ctl.Controls(0).Caption 'str será igual ao controle nulo
ValidaCamposNulos = False 'Função ValidaCamposNulos é falsa
MsgBox "Preencha o Campo " & Chr(34) & strName, vbCritical 'Exibe a mensagem para o primeiro campo nulo
ctl.SetFocus 'Seta o foco no campo nulo
Exit Function 'Sai da função
End If 'Termina verificação
Next ctl 'Verifica o próximo campo
End Function 'Fim da função
Agora, no botão Salvar:
Private Sub Command4_Click()
'By JPaulo ® Maximo Access
If ValidaCamposNulos = False Then 'Se a validação for falsa então chama o valida campos
Cancel = True 'Cancela a gravação do registro
Else 'Caso contrário
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 'Prossegue
MsgBox "Registro Salvo com Sucesso...", vbInformation
DoCmd.Close
End If
End Sub