Opção Multivalores

Boa tarde!

Gostaria de uma ajuda.

Tenho um campo de multivalores com 08 opção, gostaria que ao selecionar uma das opção, por exemplo:

Se eu selecionar/flegar a opção "consulta" ele vai verficar o meu usuário logado "joaquim.aleves", se e o mesmo com campo do campo txtuser.

Porém esta dando "Erro em tempo de execução 13 " Tipo Incompatível 13.

Código:

Private Sub cmb_modulo_AfterUpdate()
If Me.txtUser <> "joaquim.aleves" And Me.cmb_modulo("CONSULTA") = -1 Then
    Or txtUser <> "maria.lucia" And Me.cmb_modulo = "VMPS" _
'  Or txtUser <> "maria.lucia" And Me.cmb_modulo = "ADMIN" _
    'Then

MsgBox "ACESSO NEGADO" & vbNewLine & _
    "" & vbNewLine & _
    "Você não possui autorização para este Nível de Acesso." & vbNewLine & _
    "" & vbNewLine & _
    "Por favor, entre em contato com o Administrador.", _
      vbExclamation, "Acesso Negado"

Cancel = True 'CANCELA EVENTO
End If
End Sub


Conto com a ajuda.

Grato,

Mauricio amigão, você sabe que as combos funcionam com colunas iniciadas pela zero (0).

Verifique em que coluna está esse campo "CONSULTA", por exemplo se estiver na segunda coluna;

Código:

Me.cmb_modulo.Column(1) = -1

JPaulo,

Obrigado pelo retorno e pela grande ajuda.

O erro sumiu, entretanto, não funcionou o lance da verificação na coluna 5, pois ele não verifica "XPTO" ele olha se algum item esta ativo na coluna.

Código:

Private Sub cmb_modulo_AfterUpdate()

Me.txtUser <> "joaquim.aleves" And Me.cmb_modulo.Column(5) = -1 Then
    Or txtUser <> "maria.lucia" And Me.cmb_modulo.Column(5) = -1 _
'  Or txtUser <> "maria.lucia" And Me.cmb_modulo.Column(5) = -1 _
    'Then

MsgBox "ACESSO NEGADO" & vbNewLine & _
    "" & vbNewLine & _
    "Você não possui autorização para este Nível de Acesso." & vbNewLine & _
    "" & vbNewLine & _
    "Por favor, entre em contato com o Desenvolvedor.", _
      vbExclamation, "Acesso Negado"

Cancel = True 'CANCELA EVENTO
End If
End Sub


Alguma coisa está mal explicada ae.

Pode por favor anexar parte do seu banco ?

JPaulo,

Segue o arquivo em anexo.

Resumindo o que eu queria fazer, o usuário joaquim somente ele pode selecionar o módulo "desenvolvedor", caso se for a maria ela não terá permissão para flegar a opção.

Grato pela atenção e ajuda.

JPaulo,

Conseguiu entender o que eu necessito realizar no meu formulário?

Espero que eu tenha deixado claro, caso tenha dúvida, por gentileza, me fale.

Grato pela atenção e ajuda.

Ola;

Não vi ainda não, vou tentar ver ainda hoje.

Diga-me passo a passo como devo testar, para poder encontrar uma solução para você.

Anexe uma outra versão, sem erros, falta ae muita coisa.
Se você no VBA fizer Debug e Compile, vai ficar grifado muitos erros que assim não dará para testar.