[Resolvido]Dúvidas ComboBox com mensagem

Bom dia

To tentando criar uma combo box que a cada escolha gere uma mensagem específica.

Tentei assim..

Private Sub Combo_AfterUpdate()
If Me.Combo.Text = "Sim" Then
If MsgBox("Mensagem n 01", vbYes, "Ok") = vbYes Then
Me.Combo.Enabled = False
Else

If Me.Combo.Text = "não" Then
If MsgBox("Mensagem n 02", vbYes, "Ok") = vbYes Then
Me.Combo.Enabled = False
Else


Exit Sub
End If
End If
End If
End If
End Sub

Onde a mensagem 01 funciona e a 02 nada...

Onde errei?


Se fosse para abrir formulários baseado na escolha como seria?

Obrigado

Boa tarde amigo,

Tente assim:

Código:

Private Sub Combo_Change()
If Me.Combo.Text = "Sim" Then
    If MsgBox("Mensagem n 01", vbInformation + vbYesNo, "Atnção") = vbYes Then
        DoCmd.OpenForm "frm_SIM", acNormal
    End If
ElseIf Me.Combo.Text = "não" Then
    If MsgBox("Mensagem N 02", vbInformation + vbYesNo, "Atenção") = vbYes Then
        DoCmd.OpenForm "frm_Não", acNormal
    End If
End If
End Subf

Abraço,
Marcelo.

Edit: Acrescentei a opção para abrir o formulário caso clique em SIM

Fiz um pequeno exemplo aqui, veja se consegue adaptar.

Perfeito.
Obrigado Gilberlanio e Marcelo.

Obrigado pelo retorno