OVH Cloud OVH Cloud

Exécution de code aléatoire

4 réponses
Avatar
Marc Paris
Bonsoir à tous,

Le code qui suit fonctionne de façon aléatoire.

RetourSurEchec2046:
RunCommand acCmdSelectRecord
RunCommand acCmdDeleteRecord

L'ajout d'une gestion d'erreur diminue la fréquence du problème, mais ne le
résoud pas:

Err_Effacer_Click:
MsgBox Err & ": " & Err.Description
If Err = 2046 Then
Err = 0: MsgBox Me.CurrentRecord
Resume RetourSurEchec2046
End If
Resume Exit_Effacer_Click

L'emploi du mot Resume seul (sans renvoi à la ligne RetourSurEchec2046) ne
modifie pas grand chose.

Merci d'avance pour vos réponses.

Marc

4 réponses

Avatar
hm15
Bonjour Marc,

"aléatoire" est un mot que je n'aime pas en informatique ;-)

La suppression se fait sur les enegistrements d'une table liée à une autre ?
Tu cherches à cacher les tables ou à masquer une fenêtre ?

A suivre...

Annette
---------------------------------------------------------------------------
www.horizon-micro.com


"Marc Paris" a écrit dans le message de news:
#c$
Bonsoir à tous,

Le code qui suit fonctionne de façon aléatoire.

RetourSurEchec2046:
RunCommand acCmdSelectRecord
RunCommand acCmdDeleteRecord

L'ajout d'une gestion d'erreur diminue la fréquence du problème, mais ne
le

résoud pas:

Err_Effacer_Click:
MsgBox Err & ": " & Err.Description
If Err = 2046 Then
Err = 0: MsgBox Me.CurrentRecord
Resume RetourSurEchec2046
End If
Resume Exit_Effacer_Click

L'emploi du mot Resume seul (sans renvoi à la ligne RetourSurEchec2046) ne
modifie pas grand chose.

Merci d'avance pour vos réponses.

Marc







Avatar
Marc Paris
Bonjour Annette et les autres,

Le fonctionnement "semble" aléatoire.

Le code se trouve dans un module de classe de formulaire et je cherche à
effacer l'enregistrement courant. La table correspondante est une table
liée.
Ce code fonctionne dans un autre contexte où à la différence de celui-ci,
d'autres lignes de code figurent entre les deux lignes "RunCommand "
Je me demande si mon problème n'est pas une question de temps d'exécution.
L'enregistrement est-il sélectionné au moment où intervient la demande
d'effacement ?

Marc



"hm15" a écrit dans le message de
news:
Bonjour Marc,

"aléatoire" est un mot que je n'aime pas en informatique ;-)

La suppression se fait sur les enegistrements d'une table liée à une autre
?

Tu cherches à cacher les tables ou à masquer une fenêtre ?

A suivre...

Annette
--------------------------------------------------------------------------
-

www.horizon-micro.com


"Marc Paris" a écrit dans le message de news:
#c$
Bonsoir à tous,

Le code qui suit fonctionne de façon aléatoire.

RetourSurEchec2046:
RunCommand acCmdSelectRecord
RunCommand acCmdDeleteRecord

L'ajout d'une gestion d'erreur diminue la fréquence du problème, mais ne
le

résoud pas:

Err_Effacer_Click:
MsgBox Err & ": " & Err.Description
If Err = 2046 Then
Err = 0: MsgBox Me.CurrentRecord
Resume RetourSurEchec2046
End If
Resume Exit_Effacer_Click

L'emploi du mot Resume seul (sans renvoi à la ligne RetourSurEchec2046)
ne


modifie pas grand chose.

Merci d'avance pour vos réponses.

Marc











Avatar
Raymond [mvp]
Bonjour.

essaie cette solution:
RunCommand acCmdSelectRecord
DoEvents
RunCommand acCmdDeleteRecord
DoEvents

ce qui permettra de rendre la main à access pour exécuter d'autres
fonctions.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marc Paris" a écrit dans le message de
news:
Bonjour Annette et les autres,

Le fonctionnement "semble" aléatoire.

Le code se trouve dans un module de classe de formulaire et je cherche à
effacer l'enregistrement courant. La table correspondante est une table
liée.
Ce code fonctionne dans un autre contexte où à la différence de celui-ci,
d'autres lignes de code figurent entre les deux lignes "RunCommand "
Je me demande si mon problème n'est pas une question de temps d'exécution.
L'enregistrement est-il sélectionné au moment où intervient la demande
d'effacement ?

Marc


Avatar
Marc Paris
Bonjour,

Merci Raymond, c'est impeccable.

Marc


"Raymond [mvp]" a écrit dans le message de
news:
Bonjour.

essaie cette solution:
RunCommand acCmdSelectRecord
DoEvents
RunCommand acCmdDeleteRecord
DoEvents

ce qui permettra de rendre la main à access pour exécuter d'autres
fonctions.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Marc Paris" a écrit dans le message de
news:
Bonjour Annette et les autres,

Le fonctionnement "semble" aléatoire.

Le code se trouve dans un module de classe de formulaire et je cherche à
effacer l'enregistrement courant. La table correspondante est une table
liée.
Ce code fonctionne dans un autre contexte où à la différence de
celui-ci,


d'autres lignes de code figurent entre les deux lignes "RunCommand "
Je me demande si mon problème n'est pas une question de temps
d'exécution.


L'enregistrement est-il sélectionné au moment où intervient la demande
d'effacement ?

Marc