Private Sub Form_Current()
Dim ctrl As Control
' evito la actualización de pantalla
DoCmd.Echo False
   ' recorro todos los controles
   For Each ctrl In Me.Controls
   tr = 0
      ' en el caso de los cuadros de texto
      If ctrl.ControlType = acTextBox Then
      ' quito los controles que no me interesan
        If ctrl.Name <> "txtYear" Or ctrl.Name <> "Fecha" Or ctrl.Name <> "fechactu" Or ctrl.Name <> "idb" Or ctrl.Name <> "tr" Or ctrl.Name <> "ID" Then
         If Not ctrl = vbNullString Then
         ' si el control está lleno
         ctrl.BackColor = vbYellow 'Le pongo color para diferenciarlo
         tr = 1
         Else
         'si el control está vacio
         ctrl.BackColor = vbGreen 'Le pongo color para diferenciarlo
         tr = 0
         GoTo fin
      End If
      End If
      End If
   Next ctrl

   If tr = 1 Then
   MsgBox "Las citas para este dia estan completadas", vbInformation, "CITAS COMPLETAS"
   End If
   
fin:
End Sub

Private Sub Form_Current()
Dim ctrl As Control
' evito la actualización de pantalla
DoCmd.Echo False
   ' recorro todos los controles
   For Each ctrl In Me.Controls
   tr = 0
      ' en el caso de los cuadros de texto
      If ctrl.ControlType = acTextBox Then
      ' quito los controles que no me interesan
          If Not ctrl = vbNullString Then
         ' si el control está lleno
         ctrl.BackColor = vbYellow 'Le pongo color para diferenciarlo
         tr = 1
         Else
         'si el control está vacio
         ctrl.BackColor = vbGreen 'Le pongo color para diferenciarlo
         tr = 0
         GoTo fin
      End If
      End If
   Next ctrl
   If tr = 1 Then
   MsgBox "Las citas para este dia estan completadas", vbInformation, "CITAS COMPLETAS"
   End If
fin:
End Sub

Private Function vacios()
  Dim miObjeto As Object
 For Each miObjeto In Me.Controls
    If Left(miObjeto.Name, 7) = "TextBox" Then
      vacios = vacios - (miObjeto.Text = "")
    End If
  Next miObjeto
End Function

Private Sub Form_Current()
'Dim ctrl As Control
'Dim tr As Integer
'' evito la actualización de pantalla
'DoCmd.Echo False
'   ' recorro todos los controles
'   For Each ctrl In Me.Controls
'   tr = 0
'      ' en el caso de los cuadros de texto
'      If ctrl.ControlType = acTextBox Then
'          If Not ctrl = vbNullString Then
'         ' If Nz(ctrl, "") = "" Then
'         ' si el control está lleno
'         ctrl.BackColor = vbYellow 'Le pongo color para diferenciarlo
'         tr = 1
'         Else
'         'si el control está vacio
'         ctrl.BackColor = vbGreen 'Le pongo color para diferenciarlo
'         tr = 0
'         Exit For
'      End If
'      End If
'   Next ctrl
'    If tr = 1 Then
'   MsgBox "Las citas para este dia estan todas asignadas", vbInformation, "CITAS COMPLETAS"
'   End If
Dim L_txt#
  L_txt = vacios
  If L_txt = 0 Then
    ' aquí las acciones a realizar.
    MsgBox "Las citas para este dia estan todas asignadas", vbInformation, "CITAS COMPLETAS"
  End If
End Sub

Private Sub Form_Current()
    Dim ctl As Control
    Dim b As Boolean
    
    For Each ctl In Me.Controls
        If TypeOf ctl Is TextBox Then
            If Nz(ctl, "") = "" Then
                b = True
                Exit For
            End If
        End If
    Next
    
    If Not b Then
        MsgBox "Todos los cuadros de texto están rellenados"
    End If
End Sub