interrompre le code

Bonjour à toutes et tous,

Dans une procédure, j'ouvre un formulaire avec cette ligne de code : "Docmd.OpenForm MonForm"
La suite de ma procédure dépend du résultat d'une comboBox dans ce formulaire MonForm.
Comment stopper provisoirement la procédure et reprendre ensuite la procédure avec le résultat du click sur la combobox ?

Bonjour

Est-ce que tu fermes ton formulaire MonForm une fois le choix fait ?

A+

bonsoir,

Citation:

---

Comment stopper provisoirement la procédure et reprendre ensuite la procédure avec le résultat du click sur la combobox ?

---

il faut ouvrir ton formulaire avec l'option Dialog comme type de fenêtre:

Code:

---

DoCmd.OpenForm FormName:="MonForm", WindowMode:=acDialog

---

Citation:

---

Comment stopper provisoirement la procédure et reprendre ensuite la procédure avec le résultat du click sur la combobox ?

---

Eh bien c'est exactement ce qui est fait quand on passe en mode DEBUG au moment souhaité
Ici, dans le code de ton formulaire :

• Soit tu te places sur la ligne de l'ouverture du form et tu cliques sur F9 (la ligne est colorée en marron)
• Soit tu places la commande Stop avant la ligne de l'ouverture du form

Ensuite lors de l'execution, le code s'arrête à l'endroit prévue et tu continues pas par pas par F8, par SHIFT-F8 ...
Regarde l'aide, c'est simple

Citation:

---

Envoyé par tee_grandbois

bonsoir,

il faut ouvrir ton formulaire avec l'option Dialog comme type de fenêtre:

Code:

---

DoCmd.OpenForm FormName:="MonForm", WindowMode:=acDialog

---

---

Merci, c'est vrai j'avais oublié cette option !
Pour récupérer la valeur de la combobox, est-ce que je fais, dans la procédure qui appelle le formulaire : Form![NomForm].[Ma_ComboBox].Index sachant que c'est cet index qui va être utilisé pour la suite de la procédure ?
Merci pour ton aide.

Forms![NomForm].[Ma_ComboBox] devrait suffire puisque .Value est la propriété par défaut (et la valeur de la colonne 0)

Citation:

---

Envoyé par tee_grandbois

Forms![NomForm].[Ma_ComboBox] devrait suffire puisque .Value est la propriété par défaut (et la valeur de la colonne 0)

---

Un grand merci pour m'avoir aidé et pour cette solution
Pour récupérer la valeur, je procède ainsi :
dans le formulaire ouvert en mode acDialog,
sur click de la combobox, je récupère l'index de la valeur cliquée et je l'inscrit dans une table "TPARAM"
ainsi, dans la même procédure, je peut fermer le formulaire sans perdre la valeur cliquée,
et je peut récupérer celle-ci dans la procédure d'appel d'ouverture du formormulaire

Code:

---

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

Private Sub cbo_Comptes_AfterUpdate() Dim rst As Recordset Set rst = CurrentDb.OpenRecordset("TPARAM")   ' *** ouverture de la table en mode Edit, mise à jour du champ ICPTE, ' enregistrement de la modificaion, fermeture de la table. rst.Edit rst.Fields!ICPTE_VRMT = Me.cbo_Comptes rst.Update rst.Close: Set rst = Nothing ' *** fermeture du formulaire sans sauvegarde DoCmd.Close acForm, Me.Name, acSaveNo   End Sub

---

Merci à tous