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


3 participantes

    [Resolvido]Formulario de Login

    avatar
    Gerson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 405
    Registrado : 25/08/2010

    [Resolvido]Formulario de Login Empty Formulario de Login

    Mensagem  Gerson 25/7/2011, 14:57

    Olá Pessoal,

    Estou precisando de uma ajuda o código abaixo de do mestre Jpaulo, gostaria de saber se podemos e como podemos adaptar esse código para o Administrador poder abrir qualquer formulario e o usuário abrir somente os que for definido.
    Private Sub cmdEntrar_Click()
    Dim Identificacao As Integer

    If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
    Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
    Select Case Identificacao
    Case 1
    stDocName = "frmAdministrador"
    Case 2
    stDocName = "frmUsuario"
    End Select
    DoCmd.Close
    DoCmd.OpenForm stDocName
    Else
    MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
    Me.txtSenha.Value = ""
    Exit Sub
    End If

    End Sub
    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]Formulario de Login Empty Re: [Resolvido]Formulario de Login

    Mensagem  criquio 25/7/2011, 15:47

    Não tem mais uma parte de código para abrir o formulário de acordo o tipo de usuário? Ao que parece, existe um formulário para administrador e outro para usuário, então talvez fosse o caso de alterar algo assim:

    Dim Identificacao As Integer

    If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
    Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
    Select Case Identificacao
    Case 1
    DoCmd.OpenForm "frmAdministrador"
    Case 2
    DoCmd.OpenForm "frmUsuario"
    End Select
    DoCmd.Close
    DoCmd.OpenForm stDocName
    Else
    MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
    Me.txtSenha.Value = ""
    Exit Sub
    End If


    .................................................................................
    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
    Gerson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 405
    Registrado : 25/08/2010

    [Resolvido]Formulario de Login Empty Formulario de login

    Mensagem  Gerson 25/7/2011, 17:26

    Olá Criquio,

    Nesse exemplo existem 2 formularios 1 para Administrador e outro para Usuário, o que pensei talvez fosse possível criar um campo em cada formulário ou tabela para fazer referencia com o código de nível de acesso, ou seja se eu tiver um campo com nivel 1 esse campo seria invisível para o usuário ele não conseguiria abrir o form, já se eletiver o nível 2 ele poderá abrir o formulário só que eu não sei como fazer isso talvez um módulo global.
    Será que pode ??
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Formulario de Login Empty Re: [Resolvido]Formulario de Login

    Mensagem  vieirasoft 1/8/2011, 09:05

    Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Formulario de Login Empty Re: [Resolvido]Formulario de Login

    Mensagem  vieirasoft 2/8/2011, 12:05

    Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.

    Conteúdo patrocinado


    [Resolvido]Formulario de Login Empty Re: [Resolvido]Formulario de Login

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:52