[Resolvido]Exibir apenas os registros do usuário logado

Tenho um sistema com login e senha e preciso que o formulário abra apenas os registros do usuário que está logado.

Tenho um formulário que sempre fica aberto e com ele consigo pegar as informações do usuário atual e utilizo este código para pegar as informações do usuário atual:

Usuario = Forms![FormUsuario]![User]

Há alguma maneira de que um formulário por exemplo (requisições) abra apenas os registros do usuário atual (logado) ?

Obrigado!

Se na tabela que deseja retornar os registro tiver o campo usuário, sim.

Está usando esse formulário que fica aberto somente para captar o usuário conectado?

[ ]'s

Na tabela tem sim a informação do usuário. O que tenho que fazer para este formulário abrir apenas os registros deste usuário?

O formulário que fica sempre aberto tem também os menus do sistema.

Vou dar um exemplo simples para se fazer isso.

Tens esse código:

Usuario = Forms![FormUsuario]![User]

Coloque essa variável usuário na declarações de um módulo existente, assim:

Public txtUsuario as string

e acerte a frase para:

txtUsuario = Forms![FormUsuario]![User]


Com isso a variável txtUsuario poderá ser usada em toda aplicação.

No Evento Ao carregar ou Ao abrir de cada formulário coloque:

If txtUsuário  <> "Fulano de Tal" then

 msgbox "Sinto, mas você não tem permissão para essa janela",vbCritical,"Sem permissão!
 
docmd.CancelEvent

Endif

Agora se quer algo mais bem elaborado, veja aqui

[ ]'s

Eu não entendi muito bem isso:

If txtUsuário <> "Fulano de Tal" then

Pois no formulário que eu vou usar, é um formulário de cadastro de requisições e várias pessoas fazem o cadastro e um usuário não poderá visualizar o registro do outro neste mesmo formulário.

A variável global txtUsuário  esta com o nome do usuário do momento.

Digamos que seja eu: Balem

Se eu for abrir um formulário que somente

você (leor) tem permissão ,o código funcionará assim:

If txtUsuário <> "Leor" then  'Balem é <> de Leor, capicci?

  msgbox "Cai fora,gente boa!" & vbcrlf & "Você não pode por o bedelho aqui!", vbCritical, "Suma Daqui" '

  docmd.cancelEvent

Endif

[ ]'s

O problema é que todos os usuários tem acesso a esse formulário, o que eu preciso é que somente o usuário logado consigar ver apenas os seus registros cadastrados.

Pois todos terão que ter acesso a este formulário, pois todos terão que cadastrar informações nele, mas apenas ele poderá vesualizar os seus registros, caso o usuário aperte as teclas Page Up e Page Down ou procure um registro pelo código.

Ok

Vamos mudar de conversa, tinha entendido o contrário.

Preciso saber se na tabela desse formulário tem um campo com o nome do usuário.

E quando é adicionado um registro, se é gravado o nome do usuário nesse registro, na tabela.

Se não for assim, como saber que determinado registro é do tal funcionário?

Aguardo ...

Sim, na tabela desse formulário tem o campo com o nome do usuário que é adicionado automaticamente após preencher o campo descrição usando este código:

Private Sub Descricao_AfterUpdate()
Requisitante = (Forms![FormUsuario]![Nome_c])
End Sub

Fico no aguardo.

Obrigado.

Leandro

Se ainda não tiver uma consulta como fonte de registros do formulário,

clique no botão com 3 pontinhos ( ...) para abrir uma consulta no lugar da tabela.

Na grade da consulta, no campo usuário coloque:

=(Forms![FormUsuario]![Nome_c])

Salve o formulário e abra-o.

O formulário só exibirá registros do usuário atual.

[ ]'s

Deu certo agora!

Muito obrigado!

Ótimo que resolvemos

Boa sorte!