OVH Cloud OVH Cloud

Timer

1 réponse
Avatar
Fabrice
Bonjour =E0 tous,

J'ai un probl=E8me lorsque 2 utilisateurs modifient un=20
enregistrement en m=EAme temps sous Access 2000. J'avais=20
pos=E9 une question le 29.08.03. Raymond m'avait alors=20
donn=E9 cette r=E9ponse :

"pour le vba tu testes les erreurs et tu agis en=20
cons=E9quence, en g=E9n=E9ral tu attends que l'enregistrement=20
se d=E9bloque tout seul (pr=E9voir un timer pour ne
pas attendre 2 jours quand m=EAme et informer le=20
responsable)"

J'ai g=E9r=E9 les probl=E8mes de verrouillage en interceptant=20
les erreurs et en informant les utilisateurs des=20
verrouillages via des msgbox.

Mais en relisant la r=E9ponse de Raymond, je suis tr=E8s=20
int=E9ress=E9 par la m=E9thode d'attendre que l'enregistrement=20
se d=E9bloque tout seul en pr=E9voyant un timer. Mais je ne=20
sais pas comment m'y prendre.=20

Si vous pourriez me donner quelques tuyaux pour mettre en=20
place cette technique.

Merci d'avance et j'esp=E8re vous relire
Cordiales salutations
Fabrice

1 réponse

Avatar
Fabrice
Bonjour Raymond,

Encore une fois merci de ta précieuse aide. Je vais
tester tout ça et je te tiens au courant si c'est OK.

Merci et bonne journée
Cordiales salutations

Fabrice


-----Message d'origine-----
Bonjour.

tu peux utiliser deux fonctions comme ceci, par exemple:

Dim compteur As String
Dim Lu As Boolean

Private Sub TestedeLecture()
lireEnregistrement 'sequence de lecture
If Not lireerreur Then
msgbox "ici c'est lu"
Exit Sub
End If
Me.TimerInterval = 1000
compteur = 0
Lu = False
Do Until Lu Or compteur > 10
DoEvents
Loop
If Not Lu Then
MsgBox "erreur de lecture plus de 10 secondes"
Exit Sub
End If
MsgBox "ici enregistrement lu"
End Sub

Private Sub Form_Timer()
lireEnregistrement
If Not lireerreur Then
Me.TimerInterval = 0
Lu = True
Else
compteur = compteur + 1
End If
End Sub

Il faut bien sûr l'adapter à chaque situation.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Fabrice" a écrit dans le message de
news:030301c370bb$86494590$
Bonjour à tous,

J'ai un problème lorsque 2 utilisateurs modifient un
enregistrement en même temps sous Access 2000. J'avais
posé une question le 29.08.03. Raymond m'avait alors
donné cette réponse :

"pour le vba tu testes les erreurs et tu agis en
conséquence, en général tu attends que l'enregistrement
se débloque tout seul (prévoir un timer pour ne
pas attendre 2 jours quand même et informer le
responsable)"

J'ai géré les problèmes de verrouillage en interceptant
les erreurs et en informant les utilisateurs des
verrouillages via des msgbox.

Mais en relisant la réponse de Raymond, je suis très
intéressé par la méthode d'attendre que l'enregistrement
se débloque tout seul en prévoyant un timer. Mais je ne
sais pas comment m'y prendre.

Si vous pourriez me donner quelques tuyaux pour mettre en
place cette technique.

Merci d'avance et j'espère vous relire
Cordiales salutations
Fabrice

.