[Resolvido]Caixa de combinação habilitando campo bloqueado

Olá pessoal,

Tenho um form que possui uma caixa de combinação baseada em uma tabela com as seguintes informações:

Qtd_Parcelas
Até 4 x sem juros
5 com juros
6 com juros
7 com juros.......até 10 x com juros

abaixo da caixa de combinação tem um campo chamado valor da parcela que eu coloquei como bloqueado.

Gostaria que esse campo fosse ativado automaticamente quando selecionado na caixa de combinação os valores com juros, ou seja 5,6,7,8,9 e 10 com juros. se a seleção fosse em ate 4 sem juros o campo deverá permanecer bloqueado.

Desde já agradeço a atenção.

Bom Dia !

Teste;

Private Sub SuaCaixaCombinação_AfterUpdate()
Select Case SuaCaixaCombinação
    Case 1, 2, 3, 4
        Me.SeuCampoBloqueado.Enabled = False
        Me.SeuCampoBloqueado.Locked = True
    Case 5, 6, 7, 8, 9, 10
        Me.SeuCampoBloqueado.Enabled = True
        Me.SeuCampoBloqueado.Locked = False
    End Select
End Sub

Olá jpaulo, a minha expressão ficou assim.

Private Sub QTD_PARCELAS_AfterUpdate()
Select Case QTD_PARCELAS
Case 1 (sem juros), 2 (sem juros), 3 (sem juros), 4 (sem juros), 5 (sem juros), 6 (sem juros)
Me.comissao.Enabled = False
Me.comissao.Locked = True
Case 5 (com juros), 6 (com juros), 7 (com juros), 8 (com juros), 9 (com juros), 10 (com juros)
Me.comissao.Enabled = True
Me.comissao.Locked = False
End Select
End Sub
End Sub

Aparece erro de compilação
erro de sintaxe

tentei tirar o parentese mais continua o erro

Não seria assim?

Private Sub QTD_PARCELAS_AfterUpdate()
Select Case QTD_PARCELAS
Case 1, 2, 3, 4
Me.comissao.Enabled = False
Me.comissao.Locked = True
Case 5, 6, 7, 8, 9, 10
Me.comissao.Enabled = True
Me.comissao.Locked = False
End Select
End Sub

Fernando,

Agora não apresentou erro nenhum mais não desbloqueou o campo "comissão"

Não sei se tem haver mais os campos na caixa de listagem não estão só com números estão desta forma:

1 (sem juros)
2 (sem juros)...... e ai sucessivamente até 10 com juros

Se não é numerico é texto;

Se a informação na combobox aparecer "1 (sem juros), então será;
Nota:
Veja com atenção se tem espaço entre o numero e o texto:

Private Sub QTD_PARCELAS_AfterUpdate()
  Select Case QTD_PARCELAS
  Case "1 (sem juros)", "2 (sem juros)", "3 (sem juros)", "4 (sem juros)"
     Me.comissao.Enabled = False
     Me.comissao.Locked = True
  Case "5 (com juros)", "6 (com juros)", "7 (com juros)", "8 (com juros)", "9 (com juros)", "10 (com juros)"
    Me.comissao.Enabled = True
    Me.comissao.Locked = False
End Select
End Sub

Se fosse numerico, seria como lhe passei acima e ainda para aprender, podemos usar o To

Private Sub SuaCaixaCombinação_AfterUpdate()
Select Case SuaCaixaCombinação
    Case 1 To 4
        Me.SeuCampoBloqueado.Enabled = False
        Me.SeuCampoBloqueado.Locked = True
    Case 5 To 10
        Me.SeuCampoBloqueado.Enabled = True
        Me.SeuCampoBloqueado.Locked = False
    End Select
End Sub

Jpaulo / Fernando,

Muito obrigado.

Resolvido com a ultima dica do jpaulo.

Abs.

Obrigado pelo retorno o fórum agradece.