[Resolvido]Formuário de Login

Estou de volta, buscando ajuda de vocês!

Fiz um form de login com tudo certo.
Porém, gostaria que se um usuário digitasse a senha errada, abrisse novamente o form de login.
Abaixo, o código no form principal, onde: "APEMenu" é o form principal e "frmExemplo" é o form de login.

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "A senha digitada não confere", vbExclamation, "ID incorreta"
DoCmd.Close acForm, "APEMenu"
DoCmd.OpenForm "frmExemplo", acNormal, "", "", , acWindowNormal
Else
Forms!frmExemplo.Visible = False
DoCmd.OpenForm "APEMenu", acNormal, "", "", , acWindowNormal
DoCmd.Close acForm, "frmExemplo"
End If

End Sub

Este código está em qual fomulário?

O que acontece quando a senha não confere utilizando o codigo que postou?

Cumprimentos

O código está no form "APEMenu", como descrito no 1º tópico.
Quando digito a senha errada, o form "Login" fecha. Porém o ícone do Access continua na barra de tarefas.

Poste o BD para que possamos ver...

Cumprimentos.

Crie um módulo e nomeeie de basLogOff


Neste cole:

Option Compare Database
Public nlogoff As Boolean

Public Function fLogoff()
'----------------------------------
'fecha todos os formulários e
'reabre tela de login
'----------------------------------
On Error Resume Next
Dim j As Integer, nf As Integer
j = 0
nf = Forms.Count
nlogoff = True
For j = (nf - 1) To 0 Step -1
Forms(j).SetFocus
DoCmd.Close
Next j
DoCmd.OpenForm "Tela de Abertura"
DoCmd.OpenForm "frmLogin" 'Aqui substitua pelo seu form de login
nlogoff = False
End Function


E no código coloque:

Call fLogoff

Cumprimentos.

Quando você diz:

E no código coloque
Call fLogoff

Que cógigo é esse?

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "A senha digitada não confere", vbExclamation, "ID incorreta"
Call flogoff
Else
Forms!frmExemplo.Visible = False
DoCmd.OpenForm "APEMenu", acNormal, "", "", , acWindowNormal
DoCmd.Close acForm, "frmExemplo"
End If

End Sub


Cumprimentos.

Não deu certo.

O ícone do sistema continua na barra de tarefas.

Poste o teu bd para que possamos ver isso...
Pois este código funciona perfeitamente em todos os meus sistemas.

Cumprimentos.

Me informe seu email, para que eu possa enviar o sistema.

Harysohn@hotmail.com

No Módulo:

Option Compare Database

Public nlogoff As Boolean

Public Function fLogoff()
'----------------------------------
'fecha todos os formulários e
'reabre tela de login
'----------------------------------
On Error Resume Next
Dim j As Integer, nf As Integer
j = 0
nf = Forms.Count
nlogoff = True
For j = (nf - 1) To 0 Step -1
Forms(j).SetFocus
DoCmd.Close
Next j
DoCmd.OpenForm "frmExemplo", acNormal, , , , acDialog 'Aqui substitua pelo seu form de login
nlogoff = False
End Function



No form APEMenu desabilite as linhas em verde pois são necessárias, o modulo faz tudo.

Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "A senha digitada não confere", vbExclamation, "ID incorreta"
Call fLogoff
'DoCmd.Close acForm, "APEMenu"
' DoCmd.OpenForm "frmExemplo", acNormal, "", "", , acWindowNormal
Else
Forms!frmExemplo.Visible = False
DoCmd.OpenForm "APEMenu", acNormal, "", "", , acWindowNormal
DoCmd.Close acForm, "frmExemplo"
End If

End Sub


Cumprimentos.

Não deu certo.
O ícone do sistema continua na barra de tarefas, quando digito o código errado.

Voce espera que ação quando digita a senha errada? fechar o sistema ou abrir novamente a tela de login?

Cumprimentos.

Gostaria que abrisse de novo. Mas, não está abrindo.

Eis:

https://dl.dropbox.com/u/26441349/freisWal.rar


Cumprimentos.

Deu certo.
Porque?

Porque eu fiz certo uai... rsrs...

Não deve ter aplicado os códigos corretamente.


Resolveu seu problema?

Resolveu.

Muito obrigado!

Não se esqueça de clicar no joinha da menssagem que o auxiliou.

Faltou clicar no botão de resolvido no tópico amigão.

Cumprimentos.

Eu procurei esse botão e não achei.
Me desculpem.

Mais uma vez agradeço a ajuda dos membros deste fórum, que realmente se prestam a ajudar leigos como eu.

O Joinha é uma mãozinha verde fazendo um sinal de Joia...

O Fórum agradece o Retorno.