[Resolvidos]Salvar Nome login e nível de acesso do usuário atual do formulario aberto

Olá, boa noite a todos.

Seguinte, tenho um formulario que é aberto com login e senha, ao entrar no formulario preciso que em um campo seja gravado o login em um campo, caso eu abra novos registros o nome de login continue la, mas caso eu feche o formulario e entre com outro login, o novo nome só pode estar no registro em que eu fizer novo, no caso de logins antidos, continua o login salvo de quem entrou.

Até fiz um campo não acoplado no qual tinha um filtro = o nome campo Login_User, mas se eu navegar pelor registros ira ficar sempre o login atual, e quero que salve cada registro com o login de quem entrou.

Abraços!!

Bom Dia Gilberto;

Veja se o atende:

Download

Boa dia JPaulo, seria isso, mais quando entro pelo topbr fica jpaulo la, de uma olhadinha!!!
Obrigado e abs

Como assim, pelos testes que fiz entrando e saíndo, funfa na boa, muda o user.

Repare que nem o formulario é o mesmo, pelos niveis de acesso.

Eu testei aqui tambem e funfou maneiro. Agora eu só faria umas alteraçõezinhas para quando fechar o formulário do usuário, ele abrir de novo o formulário de login. Nesse form de login, colocar as opções de entrar com novo user ou fechar o bd.
Claro que o amigo JPaulo só colocou um exemplo funcional. O amigo topbr pode fazer essas implementações para se adaptar às suas necessidades.
Bem, como sempre, estou só dando meu tiquim de opinião, hehehe.

Valew Criquio, eu só mostrei o caminho das pedras mesmo.

E alterei a consulta, para simplificar ainda mais, podem fazer o Download novamente.

Ok, obrigado Paulo, vou adaptar para o meu caso!!!

abraços!!!

Olá Top,
Peguei algumas linhas de programação do JPaulo e o módulo LoginSenha do Plínio Marcos e montei isso aqui, veja e incremente no Projeto. qualque coisa retorne,

http://www.speedyshare.com/files/21093230/ExemploGravaNomeNoRegistro.mdb

Olá amigão, era isso mesmo, dei meus pulos aqui e consegui fazer de outro jeito, mais uma pergunta, desse jeito que vc fez, se eu salvar o campo de usuario em um registro, quando eu entrar em outro registro com outro login e salvar tambem, toda vez que eu navegar pelos registros ficarão salvos os usuarios como quando logaram?

Exemplo entrei no pedido 1 logado como topbr, salvou o usuario como topbr
depois sai do sistema, alguem entrou logou como JPaulo, etrou no pedido 2 e salvou como JPaulo.

Pergunta, quando eu estiver logado como topbr e enrar no pedido 2, não apagara o usuario salvo JPAulo?

Dependendo do caso, é bom restringir o acesso apenas à pessoa que cadastrou o registro e ao administrador geral ou supervisor de equipe. Isso no caso de empresas aonde cada funcionário tem sua carteira de clientes exclusivos.
Opinião minha, rsrsrsrs.

É verdade, aqui não tem esse problema, mas seria ideal ao entrar no form pedido, colocar se o [comprador] for <> do usuario, MsgBox" Você não tem permissão para entrar nesse pedido", docmd.close

Boa!!!

Ou então cada usuário recebe apenas os seus próprios registros, através de um formulário baseado em consulta filtrada por usuário.
Como diz JPaulo, existem mil maneiras de se fazer Nestum, rsrsrs.

O campo Usuário atual não tem fonte de registro nenhuma, o objetivo dele é mostrar quem está logado;
Já o campo Usuário que registrou. Esse sim esta com a fonte de registro UsuarioQueRegistrou localizado na tabela TM_CadastroDoCliente.

Para que o nome do usuário logado seja registrado neste campo eu coloco no valor padrão dele a função =getUsuarioAtual() pertencente ao módulo LoginSenha (que automáticamente armazenará o nome na tabela).

Desta forma outros usuários irão logar e observarão o responsável por aquele registro.

Não sei se fui claro.

O certo, é que é um ótimo dispositivo de controle e auditoria.

Outra coisa, e como salvar a hora de cada logada (Acesso)? Ja vi isso em algum lugar.

Top você fala registro de hora logada na tabela ou só no Form??

Sim, ou o tempo logado no sistema em geral. Data e hora entrada e Data e hora saida

Vejam tambem o Quem Introduziu, Quem Alterou, na sala de Exemplos.

Exemplo feito em 2007.

TopBr,
Respondendo:
Para o registro de entrada basta colocar no valor padrão de Data =data() e hora =tempo()e fonte de registro devida, ou seja, a qual tabela está sendo armazenado.

Já na saída você terá que fazer o procedimento acima através de evento em um campo ou botão. exemplo Botão SAIR:

Private Sub Cmd_Sair_Click()
hora = (Time())
Data = (Date)
DoCmd.Close
End Sub

é só uma dica. Deve considerar que existe muitas maneiras de programar, variadas linhas de programação, algumas acredito que nenhum Programador ainda não programou.

Sucesso e manda ver!!!

Valeu Dilson, é isso ai, vou fazer isso em algo necessario, e gostei do exemplo do JPaulo, pois crio um form que mostra os acessos.

Posso deixar mais um lembrete? Parece que eu só sei deixar lembretes e dar opiniões não é? rsrsrsrs
Só lembrar para os menos acostumados a programar que os botões como voltar e avançar registro necessitam de tratamento de erro para quando estiver no primeiro registro e clicar no botão de voltar, ele não exibir a mensagem de erro padrão que abre a janela de depuração. A mesma coisa com o botão de avançar no último registro. Isso abre uma brecha para o usuário inexperiente ou insatisfeito com a chefia mexer no código fonte e desestruturar o sistema. É só um lembrete mesmo para os menos vividos nessa área atentarem para o fato de adaptar seus sistemas.

Seria isso, no caso de registro anterior?

On Error GoTo Err_Cmd_Registro_Anterior_Click
DoCmd.GoToRecord , , acPrevious
Exit_Cmd_Registro_Anterior_Click:
Exit Sub
Err_Cmd_Registro_Anterior_Click:
MsgBox err.Description
Resume Exit_Cmd_Registro_Anterior_Click