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

    Bloquear uma parte do Formulário para usários através de usuário e senha

    avatar
    cbmenezes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 18/05/2021

    Bloquear uma parte do Formulário para usários através de usuário e senha Empty Bloquear uma parte do Formulário para usários através de usuário e senha

    Mensagem  cbmenezes 7/10/2021, 15:56

    Olá a todos do Fórum.

    Gsotaria de saber de quem tem muito mais experiência que eu em access, se há alguma opção para definir que um usuário não tenha acesso a uma parte do formulário e somente o usuário administrador pudesse acessar, por exemplo tenho um Form com várias abas e gostaria que um determinado usuário não tivesse acesso a aba Dados Pessoais isso é possível? desde já agardeço toda a ajuda dos mais experientes na área.


    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4488
    Registrado : 06/11/2009

    Bloquear uma parte do Formulário para usários através de usuário e senha Empty Re: Bloquear uma parte do Formulário para usários através de usuário e senha

    Mensagem  Assis 7/10/2021, 17:04

    Boa tarde

    Exemplo para um campo:

    No acontecimento ao receber o foco:

    Private Sub MinhaData_GotFocus()
    'JPaulo
    If IsNull(MinhaData) Then
    Else
    Dim Cancel As Integer
    MinhaData.SelStart = 0
    MinhaData.SelLength = Len(MinhaData)

    Dim UsrResposta
    UsrResposta = InputBoxDK(" © Digite a Senha para Alterar a Data © ", "© Password ©", "© Password ©")
    If UsrResposta <> "123456" Then 'este valor entre aspas é a senha
    MsgBox " © Senha Inválida © ", vbCritical, " © Aviso © "
    Cancel = True
    Me.Campo1.SetFocus
    Exit Sub

    End If
    End If

    End Sub

    Neste caso a senha é 123456.


    .................................................................................
    *** Só sei que nada sei ***

    cbmenezes gosta desta mensagem

    avatar
    cbmenezes
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 18/05/2021

    Bloquear uma parte do Formulário para usários através de usuário e senha Empty Re: Bloquear uma parte do Formulário para usários através de usuário e senha

    Mensagem  cbmenezes 8/10/2021, 02:11

    Amigo Assis, vou implementar no meu BD e ver como fica, desde já lhe agradeço pela ajuda.

    Abs

      Data/hora atual: 16/10/2021, 22:46