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


4 participantes

    [Resolvido]Consulta para filtrar Usuário Logado

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Consulta para filtrar Usuário Logado Empty Consulta para filtrar Usuário Logado

    Mensagem  Connekta Informatica 8/11/2012, 13:29

    Bom dia

    Tenho a tabela tbl_User (Use_Codigo, Use_Login, Use_Senha, Bloqueado).

    Tenho o formulário frmLogin (cboUsuário, Senha).

    O código do botão OK do formulário frmLogin que uso é esse:
    Código:

    Private Sub btok_Click()
    Dim strSenha1 As String
    Dim strsenha2 As String
    Dim K As Integer
    On Error Resume Next
    '-------------------------------------------------
    'Verifica preenchimento dos campos usuário e senha
    '-------------------------------------------------
    If IsNull(Me!cboUsuário) Then
        MsgBox "Digite o nome do usuário...", vbInformation, "Aviso"
        Me!cboUsuário.SetFocus
        Exit Sub
    Else
        If IsNull(Me!Senha) Then
            MsgBox "Digite a senha...", vbInformation, "Aviso"
            Me!Senha.SetFocus
            Exit Sub
        End If
    End If

    '-----------------------------------------------------
    'Compara senha digitada com senha armazenada na tabela
    'Se for a correta, repassa a identificação do usuário
    'para a variável login que armazena o valor enquanto
    'o aplicativo estiver aberto
    '-----------------------------------------------------
    With Me!cboUsuário

    strSenha1 = "": strsenha2 = ""
    If Len(.Column(2) & "") <> Len(Me!Senha & "") Then
        MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
        Me!Senha.SetFocus
        Exit Sub
    End If
    For K = 1 To Len(Me!Senha)
        strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
        strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
    Next K

    If strSenha1 = strsenha2 Then

        'repassa a identificação do usuário para a variável login
        login.id = .Column(0)  'IdUsuário
        login.Usuario = .Column(1) 'Nome do usuário
       
        'Passa o usuário para a variavel
        'strNomeUsuario = Me.cboUsuário.Column(1)
        'esconde o formulário login
        Me.Visible = False
       
        'Carrega título do aplicativo com o nome do usuário logado
        Call fncTítuloUsuário(.Column(1))
       
        '--------------------------------
        'Limpar campos do form login
        '--------------------------------
        Me!cboUsuário = Null: Me!Senha = Null
        Me!cboUsuário.SetFocus
       
        DoCmd.OpenForm "frm_MenuMaster", acNormal, "", "", , acNormal
        'DoCmd.OpenForm "frmProgresso"
       
        'If login.id = 1 Then DoCmd.OpenForm "frmProgresso"
        'If login.id > 1 Then DoCmd.OpenForm "frmPorgressso"
       
    Else
        MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
        Me!Senha.SetFocus
    End If
    End With
    End Sub

    Como é que eu faço para quando eu fazer o login (esta logado) filtrar nas consultas o Usuário logado?

    E que no formulário Menu apareça o Usuário logado?

    Obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Connekta Informatica 11/11/2012, 11:01

    Alguém?


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Gilberto Rocha 11/11/2012, 11:58

    Aqui tem uma solução parecida com o que você precisa.
    http://maximoaccess.forumeiros.com/t9699-resolvidonome-do-usuario-logado-aparece-no-form-principal?highlight=Usuario

    Não sei se é isso que pretende abaixo, veja:
    Para filtrar para cada usuário ver somente os dados salvos por ele, cada tabela deve ter o campo Use_Codigo, então ao salvar você salva como o Use_Codigo do usuário atual.
    Só que é meio complexo, pois no caso, sempre terá um usuário Master que deverá ver tudo, então você terá que mexer nos códigos para que dependendo do usuário logado ele veja tudo ou somente os dados salvos por ele.


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Connekta Informatica 11/11/2012, 15:10

    Boa Tarde

    Esse isso mesmo, mais tem um problema.

    Nas tabelas tem o Código do Usuário, mais sendo que no formulário Principal aparece somente o Nome.

    Como eu faço para que o código do Usuário logado aparecer no formulário principal?

    Obrigado.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Gilberto Rocha 11/11/2012, 19:30

    Você não precisa ter o código so usuário no formulario principal, mas você precisa alo logar passar o código do usuário para uma variavel global, assim:
    Em um módulo crie a variavel

    Global varIDUser as Integer

    E no seu código de login, passar o Id de usuário para essa variavel.

    Depois crie uma funçao Publica

    Public Function fncIDUser() As Integer
    fncIDUser = varIDUser
    End Function

    Então na consulta para filtrar dados somente desse usuário coloque fncIDUser()


    .................................................................................
    Resolveu? Clique em resolvido!
    Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
    Seja um representante em sua cidade!
    Código de cliente para testes: congregafacil

    SisFAT Cursos Online
    www.congregafacil.com

    Analista de BI SR
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Connekta Informatica 13/11/2012, 12:15

    O meu não deu certo.

    Na consulta no campo User_Código coloquei no critério: fncIDUser().

    Em um Módulo criei a variável: Global varIDUser as Integer.

    E en seguida a função:

    Public Function fncIDUser() As Integer
    fncIDUser = varIDUser
    End Function


    Mais a consulta não apareceu nenhum registro.

    Se puder me passar um exemplo, agradeço.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  JPaulo 13/11/2012, 12:25

    Você não passou o codigo do usuário para a variavel varIDUser, a função fica vazia.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Consulta para filtrar Usuário Logado Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Consulta para filtrar Usuário Logado Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Consulta para filtrar Usuário Logado Folder_announce_new Instruções SQL como utilizar...
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Avelino Sampaio 13/11/2012, 12:38

    Sugiro esta minha vídeo-aula

    http://www.usandoaccess.com.br/tutoriais/tuto31.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Connekta Informatica 15/11/2012, 12:18

    De uma olhada, não deu certo.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Avelino Sampaio 15/11/2012, 15:23

    Faz assim e roda a consulta

    Public Function fncIdUsuario() As Long
    'função recebe valor da variável pública idUsuario
    fncIdUsuario = 1
    End Function


    depois faz assim e roda a consulta

    Public Function fncIdUsuario() As Long
    'função recebe valor da variável pública idUsuario
    fncIdUsuario = 2
    End Function


    No seu sistema, qunado se faz o login o ID é passado para a variavel global login.id

    No seu BD altere para

    Public Function fncIdUsuario() As Long
    'função recebe valor da variável pública idUsuario
    fncIdUsuario = login.id
    End Function


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1082
    Registrado : 01/07/2011

    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Connekta Informatica 29/8/2013, 17:40

    Resolvido.

    Conteúdo patrocinado


    [Resolvido]Consulta para filtrar Usuário Logado Empty Re: [Resolvido]Consulta para filtrar Usuário Logado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 14:27