Pb d' AfterUpdate et de click

Bonjour :)

J'ai un petit problème :

Je remplis un champ et je lance une action sur AfterUpdate
J'ai un bouton à coté du champ qui lance la même action sur click

Le pb est, bien sûr, que quand on clique sur le bouton, on quitte aussi le champ et donc se produit un évènement AfterUpdate

L'action se déroule 2 fois

Je voudrais que quand on clique sur le bouton, l'action AfterUpdate du champ ne se déclenche pas

J'ai fait une tonne d'essais avec les différents évènements _UpDate, _Focus...
Rien à faire : l' évènement _Update du champ passe toujours avant le _click du bouton ! :aie:

Quelqu'un aurait une idée ?

Merci, cordialement

Bonjour.

Intéressant comme problème.

Une solution serait de mettre une variable de module et de la tester au moment de l'exécution.

Quelque chose comme :

Code:

---

dim m_IsDone as boolean

---

quand tu entres dans le champ de saisie tu fais un truc du genre

Code:

---

m_IsDone=false

---

quand tu gères le afterupdate tu mets

Code:

---

1 2 3

call TonAction() m_IsDone=True

---

dans TonAction() tu fais un test.

Code:

---

1 2 3

if not m_IsDone then 'Ici le code qui fait quelque chose end if

---

Le point délicat ça va être quand tu vas vouloir déclencher ton action SANS entrer dans le champ de saisie.
Une idée serait de mettre m_IsDone=False dans l'événement OnCurrent qui se déclenche quand tu arrives sur un enregistrement.

Il y a peut-être une possibilité de savoir quel était le contrôle actif précédemment mais cela ne te garantira pas que l'action a été éxécutée.

A+

Une autre possibilité serait de savoir si l'action a déjà été exécuté en fonction des données présentes.

Un truc du genre

Code:

---

1 2 3

if MonChamp<>123 then 'L'action n'a pas été éxécutée donc la faire end if

---

Ça te blinderai contre toute exécution non souhaitée d'où que provienne la demande d'éxécution.

Merci Marot_r :)

Lire ta proposition m' a fait comprendre que je prenais le pb à l'envers ! :?

Si on ne peut (ou très difficilement) empêcher l' _AfterUpdate de se produire avant le _click, on va empêcher le _click de se produire si le _AfterUpdate s'est déjà produit !

mon action :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Function OuvFormGEN()   DoCmd.OpenForm "FormGen", , , "affectation like [forms]![formconsultGEN]![Affectation2f]"   If Forms!formgen.Recordset.RecordCount = 0 Then   DoCmd.Close MsgBox "Aucune correspondance trouvée", vbOKOnly, "Echec!"   End If   End Function

---

Je crée un champ temporaire (et invisible) sur le formulaire : temp4
J'y mets "clic" dans l' évènement _AfterUpdate !

Code:

---

1 2 3 4 5 6

Private Sub Affectation2F_AfterUpdate()   Me.Temp4 = "clic" Call OuvFormGEN   End Sub

---

Si temp4="clic", c'est que l' _AfterUpdate du champ s'est déjà produit : cliquer sur le bouton ne fait ........rien !
et je remets à "" temp4 pour la prochaine fois

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub BoutAffect_Click()   If Me.Temp4 = "clic" Then Me.Temp4 = "" Exit Sub End If   Call OuvFormGEN   End Sub

---

Y a surement plus élégant, mais ça va faire partie des "mais pourquoi n'y ai-je pas pensé avant" ! :lol:

Je ne sais pas si j'ai fait tous les essais nécessaires, mais ça a l'air de marcher

Bon, ça ne fonctionne pas dans 100% des cas.... je re-cogite.....

Bonjour.

C'est en gros la même idée que la mienne mais avec un champ.
Comme je l'ai dit c'est probablement l'initialisation de ton champ qui doit poser un problème donc je mettrai

Code:

---

me.Champ4=""

---

Dans OnCurrentA+

Bonjour nemog, marot_r,

Je me pose une question de conception, l'événement "AfterUpdate" se produit inévitablement si on ajoute ou modifie des informations dans un champ. Quel est l'utilité d'un bouton de commande qui va déclencher le même code que le "AfterUpdate". L'existence de ce bouton me semble inutile.

Bonne journée

Bonjour Robert,

Le bouton est là pour offrir à l'utilisateur la possibilité d 'utiliser TAB, Entrée ou le bouton
De plus, si on ouvre le formGen (résultat du code) et qu'on revient au formulaire de recherche, on peut re-cliquer sur le bouton pour rouvrir le formulaire de résultat,
pas besoin de toucher à ce qui est déjà inscrit dans le champ pour declencher un _AfterUpdate

Je reprends tout à 0 en me faisant un tableau des évènements
A suivre...

Bonjour nemog

Si le bouton est important, alors vous n'avez qu'a lancer la procédure du bouton après la mise à jour du champ un peu comme suit:

Code:

---

1 2 3 4 5 6 7

Private Sub btnImportant_Click() 'Le code déjà existant End Sub   Private Sub LeChampMaJ_AfterUpdate() btnImportant_Click End sub

---

Bonne journée

Merci Robert,

Je viens d' essayer votre code, mais le problème reste entier
Quand on clique sur le bouton, on quitte le champ et l' action se produit 2 fois

Code:

---

1 2 3 4 5

Private Sub Affectation2F_AfterUpdate()   BoutAffect_Click   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub BoutAffect_Click()     If IsNull(Me.Affectation2F) Then MsgBox "Le champ Affectation est vide.", vbOKOnly, "Erreur" Exit Sub End If   Call OuvFormGEN   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Function OuvFormGEN()   DoCmd.OpenForm "FormGen", , , "affectation like [forms]![formconsultGEN]![Affectation2f]"   If Forms!formgen.Recordset.RecordCount = 0 Then   DoCmd.Close MsgBox "Aucune correspondance trouvée", vbOKOnly, "Echec!"   End If   End Function

---

Bonjour,

Vu qu'il s'agit de l'ouverture d'un formulaire tu peux tester si il est déjà ouvert et ne pas le refaire.

Code:

---

If CurrentProject.AllForms("nom du formulaire").IsLoaded then exit sub

---

Cette méthode n'est applicable qu'à ce cas.

Pour une méthode plus généraliste il ne faut pas la conditionner au résultat.
Intervenir sur l'action en la conditionnant au contrôle actif précédent peut être une autre approche du problème.

Exemple :
Dans le code du bouton :

Code:

---

if Screen.PreviousControl.name = "nom du controle" then exit sub

---

A voir en condition d'utilisation.

Cordialement,

Merci Loufab,

J'ai adapté ta proposition à celle Robert (en espérant avoir tout compris) :

Code:

---

1 2 3 4 5

Private Sub Affectation2F_AfterUpdate()   BoutAffect_Click   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub BoutAffect_Click()   If IsNull(Me.Affectation2F) Then MsgBox "Le champ Affectation est vide.", vbOKOnly, "Erreur" Exit Sub End If   If Screen.PreviousControl.Name = "Affectation2F" Then Exit Sub   Call OuvFormGEN   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Function OuvFormGEN()   If CurrentProject.AllForms("FormGen").IsLoaded Then Exit Function   DoCmd.OpenForm "FormGen", , , "affectation like [forms]![formconsultGEN]![Affectation2f]"   If Forms!formgen.Recordset.RecordCount = 0 Then   DoCmd.Close MsgBox "Aucune correspondance trouvée", vbOKOnly, "Echec!"   End If   End Function

---

On y est presque, mais le "screen.previous...." provoque une erreur 2467 "L'expression entrée fait référence à un objet fermé"
quand on fait une recherche fructueuse par le bouton et une re-demande par le bouton.

Autrement dit :
- je saisis ma valeur dans le champ
- je clique sur le bouton de recherche
- Le formulaire de résultat s'ouvre
- je ferme ce formulaire avec un bouton CloseForm
- je rappuie sur le bouton de recherche
- erreur 2467

Ce qui est "normal", je pense, puisqu' à ce moment-là le "PreviousControl" est un élément du Form de résultat (champ qui avait le focus avant appui sur le bouton CloseForm ?)

Bon, je pense avoir la solution en adaptant encore le code précédant

Il y avait un autre problème :
Après une recherche par le bouton, rappuyer sur le bouton ne faisait plus rien
Si j'ai bien compris, appuyer sur le bouton ne rend pas celui-ci ActiveControl et donc pas PreviousControl quand on rappuie dessus
Donc le PreviousControl est toujours le champ "Affectation2F" et le "Screen.Previous...." annule l'action à partir du 2e appui.

J'ai ajouté l'évènement _Change sur le champ pour faire la différence entre
- je suis ActiveControl parce que je l'étais déjà -> je change de champ pour ne plus devenir le PreviousControl qui annule l'action.
- je suis ActiveControl parce que j'ai modifié le contenu du champ -> procédure normale.

J'ai aussi ajouté un "On error goto.." pour pallier à l' erreur 2467 (bof)

Code:

---

1 2 3 4 5

Private Sub Affectation2F_Change()   Me.Temp4 = "1" ' l'action va être provoquée par le _AfterUpdate   End Sub

---

Code:

---

1 2 3 4 5

Private Sub Affectation2F_AfterUpdate()   BoutAffect_Click   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub BoutAffect_Click()     If IsNull(Me.Affectation2F) Then MsgBox "Le champ Affectation est vide.", vbOKOnly, "Erreur" Exit Sub End If   On Error GoTo suite   If Screen.PreviousControl.Name = "Affectation2F" And Me.Temp4 = "1" Then Me.Temp4 = "0" Exit Sub End If   If Screen.PreviousControl.Name = "Affectation2F" And Me.Temp4 = "0" Then Me.Libelle2F.SetFocus GoTo suite End If     suite: Call OuvFormGEN   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Function OuvFormGEN()     If CurrentProject.AllForms("FormGen").IsLoaded Then Exit Function   DoCmd.OpenForm "FormGen", , , "affectation like [forms]![formconsultGEN]![Affectation2f]"   If Forms!formgen.Recordset.RecordCount = 0 Then   DoCmd.Close MsgBox "Aucune correspondance trouvée", vbOKOnly, "Echec!"   End If     End Function

---

Après avoir réalisé une bonne série de tests, c'est concluant ! ça me convient

Merci à Marot_r,Robert et Loufab, vos propositions m'ont permis d' aller plus loin (et surtout efficacement) dans ma réflexion :D