MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Opção Multivalores

    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Opção Multivalores Empty Opção Multivalores

    Mensagem  Maurício Bruno em 4/9/2018, 18:29

    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,
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    Opção Multivalores Empty Re: Opção Multivalores

    Mensagem  JPaulo em 5/9/2018, 10:44

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Opção Multivalores Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Opção Multivalores Folder_announce_new 102 Códigos VBA Gratuitos...
    Opção Multivalores Folder_announce_new Instruções SQL como utilizar...
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Opção Multivalores Empty Re: Opção Multivalores

    Mensagem  Maurício Bruno em 5/9/2018, 14:00

    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
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    Opção Multivalores Empty Re: Opção Multivalores

    Mensagem  JPaulo em 5/9/2018, 14:05

    Alguma coisa está mal explicada ae.

    Pode por favor anexar parte do seu banco ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Opção Multivalores Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Opção Multivalores Folder_announce_new 102 Códigos VBA Gratuitos...
    Opção Multivalores Folder_announce_new Instruções SQL como utilizar...
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Opção Multivalores Empty Re: Opção Multivalores

    Mensagem  Maurício Bruno em 5/9/2018, 15:08

    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.
    Anexos
    Opção Multivalores AttachmentCadastro de User.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (530 Kb) Baixado 15 vez(es)
    avatar
    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 233
    Registrado : 25/05/2015

    Opção Multivalores Empty Opção Multivalores

    Mensagem  Maurício Bruno em 11/9/2018, 14:42

    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.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    Opção Multivalores Empty Re: Opção Multivalores

    Mensagem  JPaulo em 11/9/2018, 15:04

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Opção Multivalores Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Opção Multivalores Folder_announce_new 102 Códigos VBA Gratuitos...
    Opção Multivalores Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado

    Opção Multivalores Empty Re: Opção Multivalores

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 03:36