Access - Desactivar Boton en Formulario

Private Sub Control_AfterUpdate()

    ComprobarControles

End Sub

Private Sub ComprobarControles()

    Dim Ok As Boolean, Ctrl As Control

    Ok = True 'Suponemos que están todos rellenos

    For Each Ctrl In Me.Controls 'Revisamos todos los controles

        'Aquí viene el lío. No dices si todos los campos son cuadros de texto o hay algún combo, check... Vamos a suponer que todos son cuadros de texto

        If TypeName(Ctrl) = "TextBox" Then 'Si el control es un cuadro de texto

            If IsNull(Ctrl) Then 'Si está vacío

                Ok = False

                Exit For 'Salimos del bucle

            End If

        End If

    Next

    Me.cmdComando.Enabled = Ok

End Sub

...

    Select Case TypeName(Ctrl)

        Case "TextBox", "ComboBox", "ListBox"

            ...

    End Select

...

...

    Const TiposControles = "\TextBox\ComboBox\ListBox\"

    ...

    If InStr(1, TiposControles, TypeName(Ctrl) > 0 Then

        ...

    End If

...

Private Sub TextBox1_Exit(): Call Activa_Boton(): End Sub

Private Sub TextBox2_Exit(): Call Activa_Boton(): End Sub

Private Sub TextBox3_Exit(): Call Activa_Boton(): End Sub

Private Sub TextBox4_Exit(): Call Activa_Boton(): End Sub

Private Sub TextBox5_Exit(): Call Activa_Boton(): End Sub

Private Sub TextBox6_Exit(): Call Activa_Boton(): End Sub

Private Sub Activa_Boton()

    Dim Num as Byte

                                    Num = 0

    If Val(TextBox1.Text) <> 0 Then Num = Num + 1

    If Val(TextBox2.Text) <> 0 Then Num = Num + 1

    If Val(TextBox3.Text) <> 0 Then Num = Num + 1

    If Val(TextBox4.Text) <> 0 Then Num = Num + 1

    If Val(TextBox5.Text) <> 0 Then Num = Num + 1

    If Val(TextBox6.Text) <> 0 Then Num = Num + 1

    If Num = 6 Then

       Boton.Enabled = True

    Else

       Boton.Enabled = False

    End If

End Sub