[Resolvido]Mensagem para campos em branco

    For Each ctl In Forms("SeuFormulario").Controls("SeuSubFormulario").Form.Controls

Código:

Private Sub BtnSalvar_Click()
Dim Ctl As Control
For Each Ctl In Controls
If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then 'Verifica se é um textbox ou Combox e no proximo if verifica se é o campo opcional
    If (Ctl.ControlName = "cbobuscar" Or Ctl.ControlName = "TxtRazaoSocial" Or Ctl.ControlName = "TxtComplemento" Or Ctl.ControlName = "TxtTel_Cel") = True Then
        Else
          If IsNull(Ctl.value) Or Ctl.value = "" Then 'sendo obrigatório ele verifica se é nulo ou contem ""
          MsgBox "Existem campos obrigatórios sem preenchimento!", vbCritical
          Ctl.SetFocus
          Exit Sub
        End If
    End If
   
End If
Next Ctl
      Call Salvar_Novo(Me)
      Call LimpezaCampos(Me)
      Call DesabilitarControles(Me)
      CboBuscar.Enabled = True
'      BtnEditarCadastro.Enabled = False
'      BtnEditarCep.Enabled = False
      CboBuscar.Requery
      CboBuscar.SetFocus

End Sub

If Ctl.Tag = "X" Then

Public Function  BloqControles ( strFrm As Form) As String
Dim ctl As Control
           
           For Each ctl In strFrm.Controls
               If InStr(1, ctl.Tag, "A") Then
                  ctl.Visible = True 'se desejar que fique visivel o campo
                  ctl.Locked = True 'se desejar bloquear o campo
                  ctl.Enabled = True 'se desejar ativar o campo
               End If
           Next ctl

End Function

Private Function ValidaCamposNulos() As Boolean
'By JPaulo ® Maximo Access
   ValidaCamposNulos = True
   Dim ctl As Control
   Dim strName As String
   For Each ctl In Forms("SeuFormulario").Controls
       If InStr(1, ctl.Tag, "") And IsNull(ctl) Then
           strName = ctl.Tag
           ValidaCamposNulos = False
           MsgBox "Preencha o Campo: " & strName, vbCritical
           ctl.SetFocus
       Exit Function
     End If
   Next ctl
End Function