Problème avec la fonction Requery VBA

Bonjour

J'ai un formulaire "CONTROLE" et un sous formulaire "DETAIL_CONTROLE"
Dans l'évenement "Sur entrée du sous-formulaire j'ai inséré le code suivant qui me permet de faire le refresh :

Code:

---

1 2 3 4 5 6

Private Sub DETAIL_CONTROLE_Sous_formulaire_Enter() Me![DETAIL_CONTROLE Sous-formulaire].Form.Groupe_de_produits = Null Me![DETAIL_CONTROLE Sous-formulaire].Form.Groupe_de_produits.Requery Me![DETAIL_CONTROLE Sous-formulaire].Form.Groupe_de_produits = Me![DETAIL_CONTROLE Sous-formulaire].Form.Groupe_de_produits.ItemData(0) End Sub

---

Le champs "Groupe de produits" est une liste déroulante alimentée par une autre table

Mon problème c'est que après l'introduction de mes données et quand je reviens après pour faire une modification, la foction Requery fais changer la valeur du champs "Groupe de produits" et lui attribue la première valeur par défaut de cette liste déroulante

Merci de me donner un coup de main car je suis perdu

Merci infiniment

Bonjour,

Si un requery est nécessaire, il faut au préalable sauver la position du pointeur et la restaurer après...

Exemple :

Code:

---

1 2 3 4 5 6

dim pointeur as long ... Pointeur = Me.CurrentRecord Me.Requery Me.SelTop = Pointeur 'va rechercher la ligne sur laquelle on était ...

---

Mais en fait après relecture je pense que le code ci-dessus mélange un peu tout et ne peut donc pas marcher en l'état : la même variable est valorisée 2 fois et la 2e par elle-même :aie:

Bonjour nico84

J'ai essayé ce que vous m'avez dit mais en vain

Pouvez-vous me donner plus de détail sur la procédure à suivre

Merci infiniment :)