MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Formulários: Enabled = FALSE

    avatar
    anvs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 75
    Registrado : 26/06/2012

    [Resolvido]Formulários: Enabled = FALSE Empty Formulários: Enabled = FALSE

    Mensagem  anvs 30/1/2013, 21:30

    Viva!

    1 - Tenho um formulário com botões de comando: cmdF_01 a cmdF_05;
    2 - Cada botão abre um formulário diferente: cmdF_01 abre o formulário F_01 e assim por diante até cmdF_05 que abre o formulário F_05;
    3 - Cada utilizador só pode aceder a alguns dos formulários, consoante o seu IdUtilizador registado;
    4 - Com base num sistema de gestão de acessos foi criada uma pesquisa (query) que indica a que formulário ou formulários poderá aceder cada utilizador registado no sistema;

    A referida query, em função do login do utilizador, devolve o seu IdUtilizador, o IdForm dos formulários a que pode aceder e a descrição do respetivo formulário.

    Gostaria de saber se, com estes elementos, podem ser desabilitados os formulários que devem ficar inacessíveis consoante o utilizador registado.

    Algo do tipo, mas em código correto :-)

    If Me.IdUtilizador = 'x' Then
    Me.Form XPTO1.Enabled = True And _
    Me.Form XPTO2.Enabled = True
    Else
    Me.Form XPTO1.Enabled = False And _
    Me.Form XPTO2.Enabled = False
    End if


    Nos exemplos pesquisados vi outras soluções, mas não para esta minha pretensão.

    Antecipadamente agradecido.
    anvs
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Formulários: Enabled = FALSE Empty Re: [Resolvido]Formulários: Enabled = FALSE

    Mensagem  criquio 30/1/2013, 23:10

    Me parece que só falta retirar o And _ das linhas.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    anvs
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 75
    Registrado : 26/06/2012

    [Resolvido]Formulários: Enabled = FALSE Empty Re: [Resolvido]Formulários: Enabled = FALSE

    Mensagem  anvs 31/1/2013, 00:11

    Criquio, obrigado pela sua sugestão.

    Acabo de resolver o problema da seguinte forma:

    Em OnCurrent e OnOpen

    If Me.IdUtilizador = "1" Then
    Me.cmdF_01.Enabled = True
    Me.cmdF_02.Enabled = True
    Me.cmdF_03.Enabled = True
    Me.cmdF_04.Enabled = True
    Me.cmdF_05.Enabled = True
    End If

    e assim sucessivamente para cada um de todos os botões de comando.

    Uma vez mais, agradeço.
    anvs

    Conteúdo patrocinado


    [Resolvido]Formulários: Enabled = FALSE Empty Re: [Resolvido]Formulários: Enabled = FALSE

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2024, 15:43