MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 286
    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

    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 286
    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: Dom 04 Dez 2016, 20:20