[Resolvido]Login de retirada e devolução de equipamentos

Bom dia,

Pessoal, gostaria de um apoio em relaçao ao meu sistema, gostaria que mostrasse em meus relatórios, o login do usuário que retira algum equipamento e o login de quem devolvesse o equipamento, se puderem me ajudar, obrigado.

Bom dia,
crie um módulo geral e dê um nome a ele, por exemplo: modVariaveisPublicas.
Nesse módulo, declare uma variável publica:

Código:

Public strNomeUsuario As String

Agora, na tela de login, no if que valida usuário e senha corretos, atribua o valor do campo txtUsuario a variável:

Código:

Private Sub btnEntrar_Click()
Dim IdUsuario As Integer

    If InStr(Me.txtUsuario, "'") = 0 And InStr(Me.txtUsuario, "'") = 0 Then
        If DCount("*", "Usuarios", "[Usuario] = '" & Me.txtUsuario & "' AND [Senha] = '" & Me.txtSenha & "'") Then
            IdUsuario = DLookup("[Id_Usuario]", "Usuarios", "[Usuario]= '" & Me.txtUsuario & "' AND [Senha] = '" & Me.txtSenha & "'")
            'Passo o nome do usuário para a variável strNomeUsuario
            strNomeUsuario = Me.txtUsuario
            DoCmd.OpenForm "FormPrincipal", , , , , , IdUsuario
            DoCmd.Close acForm, "FormLogin"
        Else
            MsgBox "Usuario ou senha incorrectos", vbExclamation, "Aviso"
        End If
    Else
        MsgBox "Usuario ou senha incorrectos", vbExclamation, "Aviso"
    End If
   
End Sub

Basta agora incluir no rodapé dos relatórios ou onde desejar um rótulo (vou dar o nome de lblUser) e no evento ao abrir dos relatórios,
passe o conteúdo da variável strNomeUsuario para esse rótulo.
Eu sujiro verificar se a variável está com algum conteúdo e se nçao estiver, informo isso no rótulo:

Código:

Me.lblUser.Caption = IIf(Len(strNomeUsuario) = 0, "Nenhum usuário logado", "Usuário: " & strNomeUsuario)

Veja se consegue por gentileza.

Marcelo,

Agradeço pela sua resposta, porém consegue me auxiliar em criar esse modulo?

UP

Bom dia Lisandro,

Siga os passos abaixo:

1 - Crie o módulo:


2 - Em seguida, decalre a variável e salve o módulo:


Em seguida, siga os passos que o @Marcelo David sugeriu.

É isso

Att,

Alexandre Fim

Boa tarde,

Alexandre, guri, não sei se eu me expressei diretiro quanto a minha dúvida, bom, na verdade eu gostaria que, quando eu fosse gerar um relatório de quem emprestou e de quem devolveu o equipamento, aparecesse os logins dessas pessoas, Ex. O joão retinou na data (12/12/12) e no mesmo dia quem devolveu foi a maria. Gostaria que o relatório mostrasse esses dados, quem fez o emprestimo e quem devolveu o equipamento.

Att

Lisandro,

A dica que eu te dei foi para criar o módulo e a variável global, conforme o Marcelo David te mandou, e depois vc prosseguir com o desenvolvimento do que precisa.
Desta forma, quando o usuário se loga, o sistema carrega o login na variável publica/global "strNomeUsuario", e ai vc pode utilizá-la para gravar o login do usuário em qualquer situação.

Mas tudo bem...

Me informe qual é o relatório que vc quer os logins informados.

Valeu

Att,

Alexandre Fim

Boa tarde,

Alexandre seria nos relatórios;

Historico Geral
Devolução por Data

Obs: Outra coisa se puder me ajudar, no Menu Principal, opção Devolução, o campo denominado Emprestimo, gostaria que ficasse aparecendo apenas os ultimos coletores que foram emprestados, e não todos, Ex. o coletor 02, foi emprestado e devolvido esse processo está atrelado ao (ID 17), a princípio não era para ficar mostrando o (ID 17) mias.
Ao fazer o emprestimo do mesmo coletor 2 o sistema criou um (ID 20), só que quando eu vou fazer a devolução desse segundo emprestimo, fica aparecendo o ID 17 e o ID 20 para o mesmo coletor.

Desde já obrigado

Lisandro,

Fiz uma análise do teu sistema e me deparei com algumas situações equivocadas.

1 - Não faz sentido criar 2 tabelas para informar a mesma informação, onde o empréstimo do coletor exige que tenha uma devolução, devido á integridade referencial na junção das tabelas, e com isso vc não irá conseguir a informação correta através de consultas.

2 - A tabela de Usuários está avulsa também.
Pelo que eu entendi, esta tabela é diferente da tbl_Colaboradores..é isso?
O colaborador é usuário do sistema?




3 - Minha sugestão:

Criar uma unica tabela (Ex.: TB_MOVIMENTO) onde constam as informações de emprestimo e devolução do coletor.
Também criar uma tabela de dominio "TB_SITUAC", para definir a situação do coletor. Se for um campo texto, pode haver erros ao informar "BOM" ou " BOM " ou "BOM ", o que pode ser um problema na hora de usar critérios de consulta. Neste caso ,a forma mais correta é armazenar o ID da situação.


OBS: É melhor arrumar o sistema agora no início (acredito que esteja desenvolvendo ainda..) ao invés de fazer "ajustes pontuais" em cima do que está desenvolvido, correndo o risco de não conseguir as informações corretas nas consultas e etc.

Espero ter ajudado

Att,

Alexandre Fim

Boa tarde,

Alexandre,

A tabela Usuário seria apenas para o acesso ao sistema restrito para algumas pessoas, ex Lideres, e serão essas pessoas que irá controlar quem emprestou e quem devovleu o coletor.

A tabela Colaborador seria para cadastro dos colaboradores que irão emprestar e devolver os coletores, esses colaboradores não terão acesso ao sistema;

Já em relação as tabelas que você mencionou para criar eu crio elas com quais campos e quais relacionamentos?

Desde já obrigado.

Lisandro,

Você mencionou no início do tópico que você quer o login de quem retirou e o login de quem devolveu.

Como é feita a retirada do coletor?
É através de uma pessoa autorizada ou o próprio colaborador?
Para o mesmo coletor, teriam 2 logins?
Ou seja, o João retirou o Coletor1 e o José devolveu esse mesmo Coletor1 ?
Quem retira o coletor é o mesmo que devolve, correto?

Att,

Alexandre Fim

Alexandre,

Segue os questionamentos;

Como é feita a retirada do coletor?
O colaborador (zezinho) vai até o lider e solicita um coletor, o lider abre o sistema e registra a retirada desse coletor;

É através de uma pessoa autorizada ou o próprio colaborador?
Próprio colaborador. O colaborador retira em mãos. Quem entrega é o lider.

Para o mesmo coletor, teriam 2 logins?
Sim.

Ou seja, o João retirou o Coletor1 e o José devolveu esse mesmo Coletor1 ?
Sim, porém haverá casos em que que um determinado usuário retira e outro devolve.

Quem retira o coletor é o mesmo que devolve, correto?
Não, nem sempre. Temos 3 turnos de trabalho, nesse caso, (um exemplo), o zezinho retirou pela manha o coletor1, mas como o trabalho se estendeu até o período da tarde, quem devolveu o coletor1 foi o joao.

UP

Alexandre,

Segue os questionamentos;

Como é feita a retirada do coletor?
O colaborador (zezinho) vai até o lider e solicita um coletor, o lider abre o sistema e registra a retirada desse coletor;

É através de uma pessoa autorizada ou o próprio colaborador?
Próprio colaborador. O colaborador retira em mãos. Quem entrega é o lider.

Para o mesmo coletor, teriam 2 logins?
Sim.

Ou seja, o João retirou o Coletor1 e o José devolveu esse mesmo Coletor1 ?
Sim, porém haverá casos em que que um determinado usuário retira e outro devolve.

Quem retira o coletor é o mesmo que devolve, correto?
Não, nem sempre. Temos 3 turnos de trabalho, nesse caso, (um exemplo), o zezinho retirou pela manha o coletor1, mas como o trabalho se estendeu até o período da tarde, quem devolveu o coletor1 foi o joao.

Lisandro,

Estou finalizando o novo formulário que vai fazer o controle de entradas e saidas de equipamentos.
Neste mesmo formulário tem uma listbox para pesquisa e seleção do equipamento para devolução.

Assim que terminar, eu disponibilizo.

Att,

Alexandre Fim

Bom dia,

Alexandre, muito obrigado pelo apoio.

Att,

UP

Bom dia,

Alexandre, queria ver contigo se houve avanço em relação ao último post sobre o formulário, agradeço mais uma vez pelo seu apoio.

Att,

Oi Lisandro,

Acredito que eu consiga terminar hoje ainda, e assim eu disponibilizo nova versão.

Att,

Alexandre

Lisandro boa noite,

Fiz algumas modificações necessárias no sistema para atender sua necessidade.
O formulário de Retirada e Devolução de coletores ficou assim:


Objetos criados nesta versão:



*** OBSERVAÇÕES GERAIS ***

1 - Ao clicar em "Novo", o sistema habilita somente as opções de dados de Retirada para preenchimento.
2 - Ao selecionar o Coletor, após a gravação do registro, este mesmo coletor não irá aparecer no combobox, porque estará em uso. Este mesmo coletor somente irá aparecer na lista do combobox quando ele for devolvido ou na exclusão do registro de movimentação em que ele estava contido.
3 - Ao clicar na linha da Lista de Movimentação de Coletores, o sistema carrega os campos no formulário.
4 - Ao clicar em "Alterar", o sistema inicialmente habilita os campos para DEVOLUÇÃO, mas ao selecionar o tipo "Retirar", o sistema habilita os campos de Retirada para edição, caso haja algum equívoco no preenchimento dos dados.
5 - Ao clicar em "Excluir", o sistema emite mensagem de confimação antes da exclusão, dando opção ao usuário de decidir.
6 - Ao clicar em "Cancelar", o sistema desfaz qualquer alteração realizada na tela.
7 - O combo "Filtro", dá a opção do usuário selecionar "TODOS", "Somente Retirada", "Somente Devolução", para facilitar a busca do registro na lista (mas pode melhorar....)
8 - O sistema faz as devidas validações de preenchimento dos campos, conforme o Tipo de movimentação.


Acho que é isso !!!

Segue versão atualizada do sistema.

Boa sorte

Att,

Alexandre Fim

Lisandro boa tarde,

A versão nova do controle de coletores atende às suas expectativas?
Se sim, por gentileza, marque o tópico com Resolvido.
Grato

Att,

Alexandre Fim

Alexandre,

Fiz algumas alterações, porém no mais ficou perfeito, muito obrigado pelo apoio.

Bom dia Lisandro,

Essa é a ideia!
Voce faz os ajustes que te atenda melhor suas necessidades.
O forum agradece.
Boa sorte e sucesso.

Att,

Alexandre Fim