MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Habilitando cx de combinação no módulo VBA

    Compartilhe

    ffppereira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/10/2013

    Habilitando cx de combinação no módulo VBA

    Mensagem  ffppereira em Sex 25 Out - 17:48

    Seguinte pessoal,

    Sou novato em vba e fiz um sistema de login/senha/grupo no meu BD. Fiz um formulário com caixas de texto, de combinação e seleção. Acontece que não quero que determinado grupo de usuários utilizem alguns campos desses, então fiz o seguinte:

    bloquei o campo e coloque o seguinte módulo:

    Private Sub PROCESSO_Click()

    If getGrupoUsuarioAtual = "Administradores" Then

    PROCESSO.Locked = False

    Else
    MsgBox "Acesso permitido somente a pessoas autorizadas!", _
    vbExclamation, "Acesso Negado"
    End If

    End Sub

    Na caixa de texto funcionou perfeitamente. Mas nas caixas de combinação e seleção elas continuam bloqueadas tanto para os "Administradores" quanto para os outros grupos, além de não aparecer a msg de "Acesso Negado".

    Alguém poderia me ajudar?

    Obrigado


    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Habilitando cx de combinação no módulo VBA

    Mensagem  Alexandre Neves em Sex 25 Out - 18:13

    Boa noite, e bem-vindo ao fórum
    Reveja o código. Loked=False significa que não fica bloqueado
    Se pretende bloquear, deve ser Loked=True


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    ffppereira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/10/2013

    Re: Habilitando cx de combinação no módulo VBA

    Mensagem  ffppereira em Sex 25 Out - 18:31

    Alexandre,

    Obrigado pela resposta mas não resolve. O campo continua bloqueado para o grupo administrador e os outros. Isso eu com o campo bloqueado nas propriedades. Se eu desbloquear nas propriedades e tanto com false ou true no código o campo fica desbloqueado para todos.

    O estranho é que nas caixas de textos o código + o bloqueio nas propriedades funciona perfeitamente!


    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Habilitando cx de combinação no módulo VBA

    Mensagem  Alexandre Neves em Sab 26 Out - 2:41

    Bom dia,
    Só vendo o caso


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: Habilitando cx de combinação no módulo VBA

    Mensagem  Silvio em Sab 26 Out - 6:36

    Bom dia a todos, sem prejuízo ao tópico, apenas um pitaquinho.


    If getGrupoUsuarioAtual = "Administradores" Then

    PROCESSO.Locked = False
    me.suacombobox.enable=true


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    ffppereira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 25/10/2013

    Re: Habilitando cx de combinação no módulo VBA

    Mensagem  ffppereira em Sab 26 Out - 13:06

    If getGrupoUsuarioAtual = "Administradores" Then

    PROCESSO.Locked = False
    Me.PROCESSO.Enabled = True

    Não funciona também!

    Tem coisas que deixam a gente bem irritado né?? Já tentei de tudo. Bloqueando, desbloqueando. Ativando, desativando e nada.

    Daqui a pouco acabo com as cxs de combinação e seleção e coloco tudo cx de texto. Ai funciona!!


    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Habilitando cx de combinação no módulo VBA

    Mensagem  Alexandre Neves em Sab 26 Out - 14:30

    Boa tarde,
    Há situações que as caixas de combinação são apropriadas.
    Disponibilize para se ver.
    Será que tem nomes iguais (campo e controlo, etc.?)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qua 7 Dez - 14:13