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, Exemplos e Codigos VBA

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

    Compartilhe

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Dom Fev 14, 2010 2:10 am

    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!!

    JPaulo
    Moderador
    Moderador

    Localização:
    Mensagens: 3613
    Registrado: 04/11/2009

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

    Mensagem  JPaulo em Seg Fev 15, 2010 11:52 am

    Bom Dia Gilberto;

    Veja se o atende:

    Download


    .................................................................................
    Sucesso e abraço
    Success and hug

    A imaginação é inútil sem a aplicação de conhecimentos.
    Imagination is fruitless without applying knowledge.

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Seg Fev 15, 2010 12:54 pm

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

    JPaulo
    Moderador
    Moderador

    Localização:
    Mensagens: 3613
    Registrado: 04/11/2009

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

    Mensagem  JPaulo em Seg Fev 15, 2010 1:04 pm

    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.


    .................................................................................
    Sucesso e abraço
    Success and hug

    A imaginação é inútil sem a aplicação de conhecimentos.
    Imagination is fruitless without applying knowledge.

    criquio
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 7153
    Registrado: 30/12/2009

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

    Mensagem  criquio em Seg Fev 15, 2010 1:16 pm

    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.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga esses procedimentos para diminuir o tamanho do mesmo:
    1 - faça uma cópia do seu aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto aquilo que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em um arquivo zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Clique no positivo das mensagens que achar útil, no canto superior direito de cada mensagem.


    JPaulo
    Moderador
    Moderador

    Localização:
    Mensagens: 3613
    Registrado: 04/11/2009

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

    Mensagem  JPaulo em Seg Fev 15, 2010 1:26 pm

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

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


    .................................................................................
    Sucesso e abraço
    Success and hug

    A imaginação é inútil sem a aplicação de conhecimentos.
    Imagination is fruitless without applying knowledge.

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Seg Fev 15, 2010 5:57 pm

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

    abraços!!!

    Dilson
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 895
    Registrado: 11/11/2009

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

    Mensagem  Dilson em Ter Fev 23, 2010 1:14 pm

    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,

    [Você precisa estar registrado e conectado para ver este link.]

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Ter Fev 23, 2010 1:33 pm

    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?

    criquio
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 7153
    Registrado: 30/12/2009

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

    Mensagem  criquio em Ter Fev 23, 2010 1:37 pm

    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.


    Última edição por criquio em Ter Fev 23, 2010 1:44 pm, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga esses procedimentos para diminuir o tamanho do mesmo:
    1 - faça uma cópia do seu aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto aquilo que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em um arquivo zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Clique no positivo das mensagens que achar útil, no canto superior direito de cada mensagem.


    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Ter Fev 23, 2010 1:42 pm

    É 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!!!

    criquio
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 7153
    Registrado: 30/12/2009

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

    Mensagem  criquio em Ter Fev 23, 2010 1:46 pm

    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.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga esses procedimentos para diminuir o tamanho do mesmo:
    1 - faça uma cópia do seu aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto aquilo que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em um arquivo zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Clique no positivo das mensagens que achar útil, no canto superior direito de cada mensagem.


    Dilson
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 895
    Registrado: 11/11/2009

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

    Mensagem  Dilson em Ter Fev 23, 2010 1:56 pm

    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.

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Ter Fev 23, 2010 2:01 pm

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

    Dilson
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 895
    Registrado: 11/11/2009

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

    Mensagem  Dilson em Ter Fev 23, 2010 2:03 pm

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

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Ter Fev 23, 2010 2:06 pm

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

    JPaulo
    Moderador
    Moderador

    Localização:
    Mensagens: 3613
    Registrado: 04/11/2009

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

    Mensagem  JPaulo em Ter Fev 23, 2010 2:42 pm

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

    Exemplo feito em 2007.


    .................................................................................
    Sucesso e abraço
    Success and hug

    A imaginação é inútil sem a aplicação de conhecimentos.
    Imagination is fruitless without applying knowledge.

    Dilson
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 895
    Registrado: 11/11/2009

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

    Mensagem  Dilson em Ter Fev 23, 2010 2:57 pm

    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

    Dilson
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 895
    Registrado: 11/11/2009

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

    Mensagem  Dilson em Ter Fev 23, 2010 3:07 pm

    é 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!!!

    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Ter Fev 23, 2010 3:53 pm

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

    Laughing

    criquio
    Moderador Global
    Moderador Global

    Localização:
    Mensagens: 7153
    Registrado: 30/12/2009

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

    Mensagem  criquio em Ter Fev 23, 2010 4:59 pm

    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.


    .................................................................................
    [Você precisa estar registrado e conectado para ver este link.]
    Clique [Você precisa estar registrado e conectado para ver este link.] e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga esses procedimentos para diminuir o tamanho do mesmo:
    1 - faça uma cópia do seu aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto aquilo que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em um arquivo zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Clique no positivo das mensagens que achar útil, no canto superior direito de cada mensagem.


    topbr
    Developer
    Developer

    Localização:
    Mensagens: 760
    Registrado: 21/01/2010

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

    Mensagem  topbr em Ter Fev 23, 2010 7:35 pm

    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

      Data/hora atual: Seg Maio 21, 2012 1:03 pm