Requerimento obrigatório no VBA

Boa tarde.

Criei uma caixa de seleção que ao ser marcada desbloqueia uma caixa de listagem(lista suspensa) para q o usuário possa escolher um dos itens.
E quando a caixa de seleção não for ativada, a caixa de listagem permanece bloqueada para edição.


Private Sub E_AfterUpdate()
If E.Value = -1 Then
Me.TipoDeImpacto.Enabled = True
Me.Required
ElseIf E.Value = 0 Then
Me.TipoDeImpacto.Enabled = False
End If
End Sub

O que estou tentando fazer agora, é que o access entenda que ao ativar a caixa de seleção, obrigatoriamente o usuário tem que selecionar um dos itens na caixa de listagem(lista suspensa). Caso contrário, deverá desmarcar a caixa de seleção para poder salvar seu cadastro.

Alguém tem uma ideia de como posso fazer isso?

Amigo da pra fazer assim, com dois codigos (Apos atualizar do campo E e no evento ao sair do Campo TipoDeImpacto)

Apos atualizar do Campo E coloque:

Código:

Private Sub E_AfterUpdate()
If E.Value = -1 Then
Me.TipoDeImpacto.Enabled = True
Me.TipoDeImpacto.SetFocus
ElseIf E.Value = 0 Then
Me.TipoDeImpacto.Enabled = False
End If
End Sub

Agora, Ao sair do Campo TipoDeImpacto coloque:

Código:

Private Sub TipoDeImpacto_Exit(Cancel As Integer)
If Nz(Len(Me.TipoDeImpacto)) = 0 And Me.E = -1 Then
    'Se escolher NÃO ele e direcionado novamente ao campo TipodeImpacto e continua em um Loop infinito ate ele escolher SIM.
    'Se escolher SIM ele desmarca o campo E e desabilita o Campo TipodeImpacto.
    If MsgBox("O Campo Tipo de Impacto é Obrigatorio se Marcado o Campo  (E...)" & vbNewLine & "Deseja Desmarcar o Campo E...???", vbYesNo + vbInformation, "Atenção!!!") = vbYes Then
    Me.E = 0
    Me.TipoDeImpacto.Enabled = False
    'Mova para o proximo campo a ser preenchido aqui

    Else
    Me.E.SetFocus
    Me.TipoDeImpacto.SetFocus
    End If
End If
End Sub

Melhore o Texto da Mensagem Box para que o usuario entenda o que esta querendo transmitir a ele... o Comado VbNewLine joga o texto seguinte para nova Linha.

Bom dia.
então... fiz como vc me disse, e quando "E" é selecionado, o tipo de impacto recebe foco do jeito q eu queria.
O problema é que ele não sai de lá mesmo depois q vc escolhe um dos itens na lista suspensa (Segurança, Meio ambiente, ergonomia).

As caixas de seleção são: P / Q / C / D / S / M / E

Sendo que, quero que esse código q vc me passou, funcione em "E" e em "S".

Posta aqui o exemplo por favor... Fica mais Facil, pois aqui testei e funcinou direitinho...