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]Código para Login e Senha para abrir formulario com criterio

    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]Código para Login e Senha para abrir formulario com criterio Empty [Resolvido]Código para Login e Senha para abrir formulario com criterio

    Mensagem  Walter 21/10/2014, 17:10

    Boa tarde a todos do forum.

    Estou usando um código para que o usuário faça login e senha. É assim:
    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 = "Fml_CoordenadorPSF"
               Case 2
                   stDocName = "Fml_CadastroPelaRecepção"
               Case 3
                   stDocName = "Fml_CadastroFamilias" '(Gostaria que esse Form abrisse filtrado, com os registros apenas da Equipe Alfa)
               Case 4
                   stDocName = "Fml_CadastroFamilias" '(Gostaria que nesse caso o Form abrisse apenas com os registros da Equipe Beta)
                   
           End Select
           DoCmd.Close
           DoCmd.OpenForm stDocName
           DoCmd.GoToRecord , , acNewRec
         Else
           MsgBox "Login e/ou Senha Incorretos. Tente novamente.", vbInformation + vbOKOnly, "Não deu!"
           Me.txtSenha.Value = ""
           Exit Sub
       End If

    End Sub


    Gostaria de acrescentar mais uma coisa nesse código. Se o "nivel de segurança" for 3 ou 4,  o formulario abriria somente com os dados selecionados em uma caixa de texto "CboEquipeDePSF" preenchidos quando o usuario foi cadastrado. Ou seja somente os dados da equipe a que o usuário pertence, aparecerão. Será que deixei a questao clara?

    Veja parte do meu BD aqui: (Na tela inicial, clique em entrar...)
    https://www.dropbox.com/s/gwiyytlml09v6k0/Login%20e%20Senha1.mdb?dl=0

    Obrigado,
    Walter
    Walter
    Walter
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 373
    Registrado : 17/04/2011

    [Resolvido]Código para Login e Senha para abrir formulario com criterio Empty Re: [Resolvido]Código para Login e Senha para abrir formulario com criterio

    Mensagem  Walter 24/10/2014, 02:23

    Mudei o código e consegui o que queria (depois de muito suor!). Ficou assim:

    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
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CoordenadorPSF"
    Case 2
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CoordenadorPSF"
    Case 3
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CadastroFamilias", , , "[NomeEquipeDePSF] = 'Equipe Alfa'"
    Case 4
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CadastroFamilias", , , "[NomeEquipeDePSF] = 'Equipe Beta'"
    Case 5
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CadastroFamilias", , , "[NomeEquipeDePSF] = 'Equipe Gama'"
    Case 6
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CadastroFamilias", , , "[NomeEquipeDePSF] = 'Equipe Delta'"
    Case 7
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CadastroPelaRecepção"
    Case 8
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Fml_CadastroFamilias"
    End Select

    Else
    MsgBox "Login e/ou Senha Incorretos. Tente novamente.", vbInformation + vbOKOnly, "Não deu!"
    Me.txtSenha.Value = ""
    Me.txtSenha.SetFocus
    Exit Sub
    End If

    End Sub


    Beleza!
    Um abraço a todos.
    avatar
    jsbatista
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 06/11/2010

    [Resolvido]Código para Login e Senha para abrir formulario com criterio Empty Login

    Mensagem  jsbatista 11/9/2015, 20:39

    Walter,

    Tem como vc me dar uma dica como criar um login para meu BD? passo a passo.

    Conteúdo patrocinado


    [Resolvido]Código para Login e Senha para abrir formulario com criterio Empty Re: [Resolvido]Código para Login e Senha para abrir formulario com criterio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 06:03