[Resolvido]Registros em Formulário com filtro por Usuário

Olá amigos!

Bd em Access 2007:

-Possui um formulário de login (por nível de usuário) e um formulário "Vendas".
-Trabalha em rede e está dividido em front/back end.

Acontece que diversos usuários (cada um com seu login) criam registros de vendas.

Existe uma maneira para que cada usuário consiga visualizar ou editar apenas os registros que foram feitos por ele próprio e apenas o Usuário Master tenha acesso a todos os registros?

Desde já agradeço!

Olá Chamon,

Se vc impor esta condição ao logar, isso será possível dessa forma:

Código:

Public Sub Login_AfterUpdate()

Dim nCod As Long

nCod = DLookup("CodigoUsuario","Tbl_Vendas","Usuario = Forms!FrmSenha!Login ")

If Not IsNull(Login) And Forms!FrmSenha!Login = Dlookup("Usuario","SuaTabelaLogin","CodUsuario = " & nCod) Then 

DoCmd.OpenForm "frmVendas", acNormal

End If

End Sub


'No formulário de Vendas(frmVendas) no evento Form_Open:

Public Sub Form_Open ()

Dim nCod As Long

nCod = DLookup("CodigoUsuario","Tbl_Vendas","Usuario = Forms!FrmSenha!Login ")


me.RecordSource = "SELECT * FROM Tbl_Vendas WHERE CodUsuario = " & nCod

DoCmd.Close acForm, "FrmSenha", acSaveYes

End Sub

good guy, obrigado pela sugestão, mas não entendi muito bem a condição. Vou detalhar melhor os dados do Bd:

-Tbl_Usuarios - com os seguintes campos: IDUser; Nome; Senha; Nivel.

-Tbl_Vendas

-Frm_Login

-Frm_Vendas


De acordo com esses dados vc poderia de ajudar a conciliar cada campo com seu código? Caso possa explica-lo também será muito útil.

Obrigado!

Olá Chamon,

Posta um demo do seu sistema para executarmos alguns testes.

good guy, bom dia!

Segue anexo demo para testes.

Usuário: ADM - Senha 123
Usuário: User 01 - Senha 123
Usuário: User 2 - Senha 123

Obrigado!

Olá Chamon,

Fiz uns testes aqui e funcionou dessa maneira:

Código:

Private Sub bnt_cancela_Click()
    If EstaCarregado("Frm_Vendas") Then
        DoCmd.Close acForm, "Frm_Login"
    Else
        Application.Quit
    End If
End Sub

Private Sub bnt_OK_Click()
Dim nIDUser As Integer
nIDUser = DLookup("[iduser]", "Tbl_Conf")
            
    Dim wSenha As String
    If IsNull(cmbUser) Then
        MsgBox "Selecione um Usuário na Lista", vbCritical, "Acesso Negado"
        cmbUser.SetFocus
    ElseIf IsNull(txtPass) Then
        MsgBox "Entre com a Senha", vbCritical, "Acesso Negado"
        txtPass.SetFocus
    Else
        wSenha = DLookup("[Senha]", "Tbl_Usuarios", "[IDUser] = " & nIDUser)
        If txtPass = wSenha Then
            'Guarda o id e nivel do Usuário Atual
            Dim rsInf As Recordset
            Set rsInf = CurrentDb.OpenRecordset("Tbl_Conf")
            rsInf.Edit
            rsInf!IDUser = cmbUser
            rsInf!idnivel = DLookup("[Nivel]", "Tbl_Usuarios", "[IDUser] = " & nIDUser)
            rsInf.Update
            Set rsInf = Nothing
            
            Dim sUsuario As String
            sUsuario = cmbUser.Column(1)
            If DLookup("[Nome]", "Tbl_Usuarios", "[IDUser] = " & nIDUser) = sUsuario Then
              If DLookup("Nivel", "Tbl_Usuarios", "IDUser = " & nIDUser) = 1 Then
              DoCmd.OpenForm "Frm_Vendas", acNormal, , "Nome_Usuario = '" & sUsuario & "'", acFormEdit  'Nível ADMINISTRADOR
              DoCmd.Close acForm, "Frm_Login"
              
              ElseIf DLookup("Nivel", "Tbl_Usuarios", "IDUser = " & nIDUser) = 2 Then
              DoCmd.OpenForm "Frm_Vendas", acNormal, , "Nome_Usuario = '" & sUsuario & "'", acFormAdd   'Nível OPERAÇÃO
              DoCmd.Close acForm, "Frm_Login"
              
              ElseIf DLookup("Nivel", "Tbl_Usuarios", "IDUser = " & nIDUser) = 3 Then
              DoCmd.OpenForm "Frm_Vendas", acNormal, , "Nome_Usuario = '" & sUsuario & "'", acFormReadOnly   'Nível CONSULTAS
              DoCmd.Close acForm, "Frm_Login"
              
              ElseIf DLookup("Nivel", "Tbl_Usuarios", "IDUser = " & nIDUser) = 4 Then
              DoCmd.OpenForm "Frm_Vendas", acNormal, , "Nome_Usuario = '" & sUsuario & "'", acFormReadOnly   'Nível PROCESSOS (?)
              DoCmd.Close acForm, "Frm_Login"
            
              ElseIf DLookup("Nivel", "Tbl_Usuarios", "IDUser = " & nIDUser) = 5 Then
              DoCmd.OpenForm "Frm_Vendas", acNormal, , "Nome_Usuario = '" & sUsuario & "'", acFormReadOnly   'Nível PAGAMENTOS (?)
              DoCmd.Close acForm, "Frm_Login"
              Else
              Exit Sub
             End If
            End If
            
        Else
            MsgBox "Senha Incorreta", vbCritical, "Acesso Negado"
            txtPass = Null
            txtPass.SetFocus
        End If
    End If
End Sub

good guy, boa noite!

Baixei o bd com sua atualização e fiz alguns testes.
Fiz cadastros utilizando os usuários ADM, User 01 e User 2.
Conclui que:

Ao inserir novos registros no Frm_Vendas e este permanecer aberto, o usuário atual consegue acessar todos os registros apenas por ele inseridos nessa edição, ou seja, sem que seja fechado o Frm_Vendas. Uma vez fechado e quando esse formulário é novamente aberto, nenhum dos usuários consegue acessar os registros por eles inseridos, inclusive o usuário ADM (Master) que deveria ter acesso a qualquer registro, de qualquer usuário.
O que pode estar acontecendo?

Observação: Fiz os testes apenas no bd demo que você postou atualizado.

Mais uma vez agradeço pela atenção.

Crie um campo chamado IdUsuario na tabela de Vendas;
na tela de login, logo após o reconhecimento do usuário logado, crie uma variável Temporaria chamado "TempVars!IdUsuario" e atribua o valor do usuário da tela de login a esta variável;
na tela de vendas, atribua como valor padrão deste campo o valor da variável Tempvars!IdUsuario e deixe este campo como inabilitado para evitar alterações indevidas.
Crie uma consulta da tela de vendas assim:

SELECT Tbl_Vendas.*
FROM Tbl_Vendas
WHERE IIf(Tempvars!IdUsuario=1, IdUsuario>0, IdUsuario=Tempvars!IdUsuario));
Caso a variável TempVars!IdUsuario reconheça o usuário logado, neste tela só aparecerá os registros do usuário logado, ou se o usuário for o ADM, aparecerá todos os registros. apesar de algumas pestanadas, consegui fazer isto em um projeto que desenvolvi aqui no meu trabalho.

Rubenscouto, obrigado pela ajuda, mas não consegui fazer os procedimentos que vc sugeriu.

Olá Chamon,

Vamos por partes,

(1) o filtro por usuário está funcionando?
(2) a edição só permitida pelo ADM não está funcionando? Verifique na tbl_Conf o código do adm, nesta tabela deve existir os demais códigos que configurarão os níveis de permissão adequados para os usuários.

veja. dentro da pasta zipada tem os usuarios e as senhas. faça os testes e veja que há uma limitação de visualização de registros quando o usuário logado não é o administrador.

Rubens, boa tarde!

O exemplo que você postou é exatamente o que preciso.

Fiz umas adaptações no meu sistema de acordo com os procedimentos que você indicou.
Só não consegui inserir a variável Temporária "TempVars!IdUsuario" e atribuir o valor do usuário da tela de login a esta variável.
Veja, por favor, se você consegue apenas adicionar essa variável mantendo o restante do código com está.

Segue anexo o sistema com as adaptações feitas.

Desde já agradeço.

veja no codigo do botão bnt_ok do formulario de login as alterações que fiz. alterei as senhas todas para 123. no evento após atualizar da senha de login  inserir um comando de chamar o evento do botão ok da tela de login. após a abertura da tela de login, ou abra o sistema bypassado e veja a consulta 1. ela tem como criterio do IdUsuario o valor da variavel TempVars!IdUsuario. veja que os valores mostrados são somente dos usuarios logados, para este exemplo os usuarios 1,2 e 3. também desabilitei o campo IdUsuario da tela de vendas. este deve ficar assim para evitar alterações indevidas. qualquer coisa , envie-me uma mensagem.

Rubens, bom dia!

Fiz as alterações e o sistema ficou ótimo!
Só uma dúvida: precisei alterar o nível do usuário "User 01" de nível 2 para 1 (Adm), porém ele não consegue visualizar todos os registros como Adm.
Alguma sugestão?

Obrigado!

Obrigado a todos pela ajuda!

No exemplo que criei baseado no Maestro_v5 o administrador verifica todos os registros de todos os usuários, porém outros usuários só conseguem ver os seus próprios registros. Este exemplo não comtempla níveis de usuários, existe apenas um administrador e os demais são usuários usuários.

Caso tenham interesse em Acesso por grupos/níveis de usuários,
Vejam esse meu exemplo.
Ele foi baseado no exemplo do Avelino que usa o nível de usuário.

[!]'s

Noob