MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em Ter 21 Out 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...)
    [Você precisa estar registrado e conectado para ver este link.]

    Obrigado,
    Walter
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Walter em Sex 24 Out 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.

    jsbatista
    Novato
    Novato

    Respeito às Regras 100%

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

    Login

    Mensagem  jsbatista em Sex 11 Set 2015, 20:39

    Walter,

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

      Data/hora atual: Ter 26 Set 2017, 20:54