Como utilizar mesma senha usuario (MAESTRO) em outro form

Moderador: Avelino Sampaio

vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 23 Nov 2017, 11:59

Olá Avelino

Olha nos aqui outra vez.

Gostaria de poder utilizar a mesma senha de usuário cadastrada na tabela tblusuário em um formulário de listagem de vendas realizadas por usuario, mas não consigo fazer reconhecer.
Criei outro campo, SENHA1 na mesma tabela com as mesmas características e também um pequeno form de entrada para cadastrar esta SENHA1 e funcionou, este cadastro é por conta do administrador.
O problema se da quando o usuário troca sua senha, dai o campo SENHA1 não é atualizado.
Como posso utilizar a senha normal do Usuário ou atualizar o campo SENHA1 sempre que o usuário trocar a senha.
Grato
No aguardo

Código:
Private Sub txtsenha1_AfterUpdate()
If Me.txtsenha1 = Me.usuarioSel.Column(4) Then
Me!frmVendasporVendedor.Requery
Me.frmVendasporVendedor.visible = True
Else
Me.frmVendasporVendedor.visible = False
MsgBox "Senha errada.", vbInformation, "Acesso"
Me.usuarioSel.SetFocus
End If
Me.txtsenha1 = ""
End Sub


SenhaMaestro.jpg
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 2163
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor Avelino Sampaio » 23 Nov 2017, 13:19

Vanderlei,

no Maestro, a senha do usuário é armazenada na tabela de forma criptografada. Para utilizar no código é necessário descriptografar, utilizando a função fncCrip(). verifique se no seu projeto esta função existe num dos módulo globais.

Para ter certeza do valor, acrecente a caixa de mensagem no seu código e rode:

Private Sub txtsenha1_AfterUpdate()
msgbox Me.usuarioSel.Column(4)
If Me.txtsenha1 = Me.usuarioSel.Column(4) Then
Me!frmVendasporVendedor.Requery
Me.frmVendasporVendedor.visible = True
Else
Me.frmVendasporVendedor.visible = False
MsgBox "Senha errada.", vbInformation, "Acesso"
Me.usuarioSel.SetFocus
End If
Me.txtsenha1 = ""
End Sub

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 24 Nov 2017, 01:11

Olá

ESTA FUNÇÃO ESTA NO mod_ChecaVinculo

Public Function fncCrip(strTexto As String, Optional chave As Long = 0)
Dim J As Integer, R As String
If chave <> 102030 Then Exit Function
For J = 1 To Len(strTexto)
R = R & Chr((Asc(Mid(strTexto, J, 1)) Xor 36))
Next J
fncCrip = R
End Function

erro1.jpg


O que aparece na MSG é a senha gravada na tabela no campo senha1 atraves de um form criado só para isso, já que não conseguia utilizar a mesma senha do usuário, isso foi uma solução de imediato, só que agora ta me criando problema, porque o usuário troca sua senha e acha para os relatório também pode utilizar a mesma, por isso que gostaria de utilizar a senha normal do usuário ou atualizar o campo senha1 com este dado
no aguardo
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Avatar do usuário
Avelino Sampaio
Mensagens: 2163
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor Avelino Sampaio » 27 Nov 2017, 10:17

Vanderlei,

no Maestro o número de identificação exclusiva do usuário logado, fica armazenada na variável global login.id

Código:
...
If Me.txtsenha1 = fncCrip(DLookup("senha", "tblusuários", "idusuario = " & login.id), 102030) then
...


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 30 Nov 2017, 10:12

Avelino

Desculpa mas esta linha é pra ser inserida na txtsenha1 ?

Substitui o mesmo IF... mas da erro "uso de null invalido" erro tempo de execução 94

Poderia me dizer qual o local correto

vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 07 Dez 2017, 00:40

olá
Estou no aguardo,
onde inserir a linha de código mecionada

Avatar do usuário
Avelino Sampaio
Mensagens: 2163
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor Avelino Sampaio » 07 Dez 2017, 06:00

Vanderlei,

acrescente duas caixas de mensagens no seu código (parte veremelha) e me informe o valor de cada uma.

Código:
Private Sub txtsenha1_AfterUpdate()
msgbox login.id
msgbox DLookup("senha", "tblusuários", "idusuario = 1")

If Me.txtsenha1 = Me.usuarioSel.Column(4) Then
Me!frmVendasporVendedor.Requery
Me.frmVendasporVendedor.visible = True
Else
Me.frmVendasporVendedor.visible = False
MsgBox "Senha errada.", vbInformation, "Acesso"
Me.usuarioSel.SetFocus
End If
Me.txtsenha1 = ""
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 07 Dez 2017, 08:24

Avelino

Primeira aparece numero 1
Segunda aparece E@IMJ
"Senha Errada"

Avatar do usuário
Avelino Sampaio
Mensagens: 2163
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor Avelino Sampaio » 07 Dez 2017, 09:42

Vanderlei

me diga agora qual o valor da caixa de mensagem e se corresponde a senha cadastrada do usuário.

Código:
Private Sub txtsenha1_AfterUpdate()
msgbox fncCrip(DLookup("senha", "tblusuários", "idusuario = " & login.id), 102030)
If Me.txtsenha1 = Me.usuarioSel.Column(4) Then
Me!frmVendasporVendedor.Requery
Me.frmVendasporVendedor.visible = True
Else
Me.frmVendasporVendedor.visible = False
MsgBox "Senha errada.", vbInformation, "Acesso"
Me.usuarioSel.SetFocus
End If
Me.txtsenha1 = ""
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 07 Dez 2017, 11:41

Avelino

independentemente de qual usuário foi selecionado na combo com sua senha, É apresentado a senha do usuário logado no sistema

vanderlei
Mensagens: 130
Registrado em: 02 Jul 2015, 10:25

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor vanderlei » 14 Dez 2017, 23:45

Olá Avelino,

Desculpa ai, sem que depende de disponibilidade de tempo mas quando puder vamos continuar para ver se resolve de uma vez esta minha pendencia

No aguardo

Avatar do usuário
Avelino Sampaio
Mensagens: 2163
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Como utilizar mesma senha usuario (MAESTRO) em outro form

Mensagempor Avelino Sampaio » 16 Dez 2017, 10:36

Vanderlei

Gostaria de poder utilizar a mesma senha de usuário cadastrada na tabela tblusuário em um formulário de listagem de vendas realizadas por usuario, mas não consigo fazer reconhecer.


Não estou conseguindo entender porque não está conseguindo resolver com as minhas dicas. Crie um BD e ponha nele somente os componentes envolvidos na questão (tabelas e formulário ).

Aguardo pelo BD
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes