[Resolvido]Grupo Opção Habilitar ou não

Bom dia a todos
Estou com uma dúvida, que gostaria da ajuda de vcs.
To tentando aplicar um grupo de opções com duas possibilidades sim ou não.
No Sim ele habilita 4 caixa de combinação.
Na não elas ficam desabilitadas.
Contudo, não sei onde errei...rsrs
Em anexo o banco.
Se alguém puder dar um help agradeço.
Obrigado

Ai está.

Muito Obrigado.
abraços e um bom Natal

Apliquei sua correção naquilo que pretendo.
contudo na 3 e 4 aba ta dando erro.
Poderia me dizer onde errei?
Obrigado

o nome do campo está errado, o correto é Texto03 e não Texto3 como está no código, é só corrigir.

Porque no código
Private Sub Form_Current()
If Me.Quadro1 = 1 Then 'Sim
Combinação1.Enabled = False
Combinação2.Enabled = False
Combinação3.Enabled = True
Combinação4.Enabled = True

tem que ser parte true e outra false/
Sabe porque pergunto? É pq numa aplicação maior terei que advinhar onde dividir. E não consegui entender a lógica da coisa.
poderia explicar?
Obrigado

Oi Beto
Digo porque a aplicação que fiz seria essa:
e funciona..rsrrs..


Option Compare Database
Private Sub Form_Current()
           If Me.Quadro1 = 1 Then   'Sim
                   Combinação1.Enabled = False
                   Combinação2.Enabled = False
                   Combinação3.Enabled = True
                   Combinação4.Enabled = True
                   Combinação5.Enabled = True
                   Texto01.Enabled = True
           ElseIf Me.Quadro1 = 2 Then  'Não
                   Combinação1.Enabled = True
                   Combinação2.Enabled = True
                   Combinação3.Enabled = True
                   Combinação4.Enabled = True
                   Combinação5.Enabled = True
                   Texto01.Enabled = True
           Else
                   Combinação1.Enabled = False
                   Combinação2.Enabled = False
                   Combinação3.Enabled = False
                   Combinação4.Enabled = False
                   Combinação5.Enabled = False
                   Texto01.Enabled = False
           End If
       
           If Me.Quadro2 = 1 Then   'Sim
                   Combinação6.Enabled = True
                   Combinação7.Enabled = True
                   Combinação8.Enabled = True
                   Combinação9.Enabled = True
           ElseIf Me.Quadro2 = 2 Then  'Não
                  Combinação6.Enabled = True
                  Combinação7.Enabled = True
                  Combinação8.Enabled = True
                  Combinação9.Enabled = True
           Else
                   Combinação6.Enabled = False
                   Combinação7.Enabled = False
                   Combinação8.Enabled = False
                   Combinação9.Enabled = False
           End If
       
           If Me.Quadro3 = 1 Then   'Sim
                   Combinação10.Enabled = True
                   Texto02.Enabled = True
           ElseIf Me.Quadro3 = 2 Then  'Não
                  Combinação10.Enabled = True
                  Texto02.Enabled = True
           Else
                   Combinação10.Enabled = False
                   Texto02.Enabled = False
           End If
       
           If Me.Quadro4 = 1 Then   'Sim
                   Combinação11.Enabled = True
                   texto03.Enabled = True
           ElseIf Me.Quadro4 = 2 Then  'Não
                  Combinação11.Enabled = True
                  texto03.Enabled = True
           Else
                   Combinação11.Enabled = False
                   texto03.Enabled = False
           End If
           
           If Me.Quadro5 = 1 Then   'Sim
                   Combinação12.Enabled = True
                   Texto04.Enabled = True
           ElseIf Me.Quadro2 = 2 Then  'Não
                  Combinação12.Enabled = True
                  Texto04.Enabled = True
           Else
                   Combinação12.Enabled = False
                   Texto04.Enabled = False
           End If


       If Me.Quadro6 = 1 Then   'Sim
                Combinação13.Enabled = False
                Combinação14.Enabled = False
                Combinação15.Enabled = False
                Combinação16.Enabled = False
                Combinação17.Enabled = False
                Combinação18.Enabled = False
                Combinação18.Enabled = False
                Texto05.Enabled = False
       ElseIf Me.Quadro6 = 2 Then  'Não
                Combinação13.Enabled = True
                Combinação14.Enabled = True
                Combinação15.Enabled = True
                Combinação16.Enabled = True
                Combinação17.Enabled = True
                Combinação18.Enabled = True
                Combinação19.Enabled = True
                Texto05.Enabled = True
         Else
                Combinação13.Enabled = False
                Combinação14.Enabled = False
                Combinação15.Enabled = False
                Combinação16.Enabled = False
                Combinação17.Enabled = False
                Combinação18.Enabled = False
                Combinação19.Enabled = False
                Texto05.Enabled = False
         End If

       If Me.Quadro7 = 1 Then   'Sim
                  Texto06.Enabled = False
                  Texto07.Enabled = False
           ElseIf Me.Quadro2 = 2 Then  'Não
                  Texto06.Enabled = True
                  Texto07.Enabled = True
           Else
                  Texto06.Enabled = False
                  Texto07.Enabled = False
           End If

End Sub

Private Sub Quadro1_AfterUpdate()
              If Me.Quadro1 = 1 Then   'Sim
                   Combinação1.Enabled = True
                   Combinação2.Enabled = True
                   Combinação3.Enabled = True
                   Combinação4.Enabled = True
                   Combinação5.Enabled = True
                   Texto01.Enabled = True
              ElseIf Me.Quadro1 = 2 Then  'Não
                   Combinação1.Enabled = False
                   Combinação2.Enabled = False
                   Combinação3.Enabled = False
                   Combinação4.Enabled = False
                   Combinação5.Enabled = False
                   Texto01.Enabled = False
           End If
End Sub

Private Sub Quadro2_AfterUpdate()
           If Me.Quadro2 = 1 Then   'Sim
                   Combinação6.Enabled = True
                   Combinação7.Enabled = True
                   Combinação8.Enabled = True
                   Combinação9.Enabled = True
           ElseIf Me.Quadro2 = 2 Then  'Não
                  Combinação6.Enabled = False
                  Combinação7.Enabled = False
                  Combinação8.Enabled = False
                  Combinação9.Enabled = False
           End If
End Sub

Private Sub Quadro3_AfterUpdate()
           If Me.Quadro3 = 1 Then   'Sim
                   Combinação10.Enabled = True
                   Texto02.Enabled = True
           ElseIf Me.Quadro3 = 2 Then  'Não
                  Combinação10.Enabled = False
                  Texto02.Enabled = False
           End If
End Sub

 Private Sub Quadro4_AfterUpdate()
           If Me.Quadro4 = 1 Then   'Sim
                   Combinação11.Enabled = True
                   texto03.Enabled = True
           ElseIf Me.Quadro4 = 2 Then  'Não
                  Combinação11.Enabled = False
                  texto03.Enabled = False
           End If
End Sub

Private Sub Quadro5_AfterUpdate()
           If Me.Quadro5 = 1 Then   'Sim
                   Combinação12.Enabled = True
                   Texto04.Enabled = True
           ElseIf Me.Quadro5 = 2 Then  'Não
                  Combinação12.Enabled = False
                  Texto04.Enabled = False
           End If
End Sub

Private Sub Quadro6_AfterUpdate()
       If Me.Quadro6 = 1 Then   'Sim
                Combinação13.Enabled = True
                Combinação14.Enabled = True
                Combinação15.Enabled = True
                Combinação16.Enabled = True
                Combinação17.Enabled = True
                Combinação18.Enabled = True
                Combinação19.Enabled = True
                Texto05.Enabled = True
       ElseIf Me.Quadro6 = 2 Then  'Não
                Combinação13.Enabled = False
                Combinação14.Enabled = False
                Combinação15.Enabled = False
                Combinação16.Enabled = False
                Combinação17.Enabled = False
                Combinação18.Enabled = False
                Combinação19.Enabled = False
                Texto05.Enabled = False
         End If
End Sub

Private Sub Quadro7_AfterUpdate()
       If Me.Quadro7 = 1 Then   'Sim
                  Texto06.Enabled = True
                  Texto07.Enabled = True
       ElseIf Me.Quadro7 = 2 Then  'Não
                  Texto06.Enabled = False
                  Texto07.Enabled = False
           End If

End Sub






Obrigado

Quadro1 é o nome do controle que recebe o valor do sim(1) ou do não(2), por isso o if quadro1 = 1 ou 2, quanto ao enabled (ativado) quando colocado como true, estais dizendo ao access que aquele controle tem que estar liberado para manipulação e false ele tem que ficar inativo (desativado) para edição de dados.

Ok.
Obrigado Mias uma vez.
Bom Natal

obrigado e um feliz natal.