[Resolvido]Login com tentativas e ao mesmo tempo com grupos de login

Boa noite Pessoal!
Ja estive a ver alguns exemplos de login aqui de alguns Users (nao sei dizer de quem sao) com numero de tentativas para login.
Acontece que queria que houvesse essa contagem e caso chegasse ao três bloqueasse o acesso atraves no campo "Bloqueado" na tabela "Assistente".
Esta a dar ali alguns erros que nao entendo, e penso que seja mais facil voces verem.
Vou deixar aqui a base de dados...

Obrigado


Team.rar

Você quer que neste trecho de código:

If Tentativas = 3 Then
DoCmd.Quit
End If

Antes de fechar, fazer um UPdate ao campo Bloqueado = Sim na tabela Assistente ?

Este formulario DoCmd.OpenForm "msgErro"

Não existe no seu banco, veja por favor para se poder fazer os testes na integra.

Se for pelo que percebi, ao abrir o sistema se o User estiver bloqueado, não abre, será:

No form Login:

Private Sub Form_Load()
Me.txtutilizador = UserRede
If DLookup("[Bloqueado]", "[Assistente]", "[User] = '" & txtutilizador & "'") = -1 Then
MsgBox "Sistema Bloqueado por excesso de tentativas... Contacte o Administrador do sistema.", vbCritical
DoCmd.Quit
Else
Exit Sub
End If
End Sub

Bom dia JPaulo,
A questao é essa, eu tentei utilizar um codigo que estava num exemplo feito aqui no forum, mas nao consigo identificar a pessoa em si, pois nao etsa assinado.
Acontece que me esta a dar erro, mas se calhar o mais facil é fazer isso do inicio.
Ponha antes este codigo de login, que era o que estava antes e comecemos do Zero.

If Me.txtPass.Value = DLookup("[Password]", "[Assistente]", "[User] = '" & Me.txtutilizador & "'") Then
Identificacao = DLookup("[Grupo]", "[Assistente]", "[User] = '" & Me.txtutilizador & "'")
Select Case Identificacao
Case 1
stDocName = "frmAdministrador"
Case 2
stDocName = "frmUsuario"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtPass.Value = ""
Exit Sub
End If

Em relação ao que me disse a pouco, é isso mesmo, apos as tres tentativas o user fica bloqueado, e para isso ele vai fazer um update a um campo que ira ficar com o Visto, que so o admin pode desbloquear.

Bom dia

Se der para aplicar?
http://dl.dropbox.com/u/8169944/Pass%20Entrada%203%20Vezes.zip

Aqui tá um dos problemas que estava a ter com o outro programa que tentei utilizar

"Static tentativas As Byte"

Neste campo a zona do Stactic da erro com a verificação de User. :S

Vou tratar disso aqui e já lhe mando.

Veja se gosta da ideia;

http://dl.dropbox.com/u/771097/Team_II.rar

Obrigado
Vou agora ver...

Boa tarde

JPaulo ao abrir o exemplo pede uma acedao.dll versão 12.0

Veja as referencias no VBA que eu não alterei nada de referencias.

Em que parte é que nao fizes-te a alteração do VB?
Ele esta a dar-me erro na Identificação do User :S

Identificacao = DLookup("[Grupo]", "[Assistente]", "[User] = '" & Me.txtutilizador & "'")

Rapaz leia com atenção...

Não fiz alteração à referencias do VBA, pelo erro que deu ao Assis.

Aí nesse seu erro, falta apenas declarar a variavel:

Dim Identificacao as String

http://dl.dropbox.com/u/771097/Team_III.rar

Sim, a mim tambem me deu esse erro, eu é que nao sei onde posso encontrar essas referencias...
se pudesses explicar para que possa entender...dscp o incomodo. :S

O meu computador tem todas as versões do Access instaladas, provavelmente as referencias do VBA alteraram para a versão 12.0 por defeito.

Abra um modulo qualquer, vá a ferramentas, Referencias e altere as que tiverem 12.0 para as 11.0 (Versão 2000-2003).

Já esta a dar correcto!
Vou so almoçar e ver o resto, despois digo alguma coisa.
Obrigado por tudo!

Tambem vou ao tacho já são 13:10, à tarde veremos o seu retorno.

esta 5*
obrigado

Valew pelo retorno o forum agradece.

Não esqueça sempre do botão [Resolvido]

Só uma questao JPaulo,
Este metodo e o metodo de esconder a janela nao é possivel?
obrigado.
É que fiquei sem essa possibilidade de um momento para o outro...

Já esta resolvido!
Obrigado na mesma
Ha possibilidade de por ai depois um link no site do trabalho feito em equipa?
Para que todos possam ter acesso e quem quiser utilizar, o possa fazer?
Obrigado

Pode sempre, ou enviar para um dos Moderadores que será colocado na Sala de Exemplos.