[AC-2003] Déconnecter un utilisateur d'une BD [Résolu]

[rch05]

Bonjour,

J'aimerai appliquer du tuto 'Comment déconnecter les utilisateurs d'une base de données ?' de Morsi
Ci dessous le code:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
rivate Sub Form_Timer()
 
On Error GoTo Err_LogOffChk
Dim Lancer As Boolean
Dim rcd As DAO.Recordset
Set rcd = CurrentDb.OpenRecordset("tblAdmin")
rcd.MoveFirst
Lancer = rcd.fields(0)
rstLO.Close
CurrentDb.Close
 ' --Si la case est cochée
If Lancer Then Application.Quit acQuitSaveAll
Exit_LogOff:
   Exit Sub
Err_LogOffChk:
   MsgBox Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur"
   Resume Exit_LogOff
 
 
End Sub

J'ai le pb au niveau : rstLO.Close
Variable non définie.
Ma question est de savoir à quoi correspond cette variable?

Merci d'avance

[marot_r]

Il faut mettre rcd.close à la place.

A+

[rch05]

Bonjour marot_r,

Merci de ta réponse.
Par-contre, j'ai mis 2mn à intervalle minuterie, et celle-ci se déconnecte immédiatement.
y a t'il quelque chose que j'ai oublié?

Merci d'avance

[marot_r]

Peut-être exécute-t-il le code au temps 0 avant d'attendre 2 mn.

Essaye de paramétrer la déconnexion à faux lorsque tu ouvres ton formulaire. Puis une fois le formulaire ouvert va changer le drapeau dans la table tblAdmin.

J'ai implanté ce code et il répondait très bien à mon besoin.

A+

[micniv]

Rappel , juste au cas où ...

...j'ai mis 2mn à intervalle minuterie ...

l'unité de l'intervalle de minuterie est la seconde !

[marot_r]

Bon point micniv mais se sont des milisecondes donc pour 2 minutes, il faut mettre 2000.

A+

[rch05]

Bonjour marot_r,

Je pense avoir fait ça.
Bon, je vais recommencer et je te tiens informé de mon test

Merci Marot_r

PS: pour micniv, j'ai bien mis 2000 (2mn)