Discussion :

[kgb1917]

Bonjour,

J’aurai besoin d’un éclairage de conception. J’ai un form sur lequel se trouvent 2 zones de liste déroulante (avec chacune 2 critères de sélection) et 1 sous formulaire. J’aimerai que le contenu du sous form s’actualise en fonction du contenu des zdld. Pour ça, je suis parti de ce code de la FAQ. J’actualise le sous form en mettant les lignes suivantes pour chaque zdld :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Modifiable1_Change()
Dim CTRL As Control
Set CTRL = Forms.SSForm!MonChamp
CTRL.Requery
End Sub

Ce code fonctionne sans pb pour la 2ème zdld mais pas pour la première où j'ai une erreur d'éxécution 438 (après fermeture du message d'erreur, l'actualisation se fait qd même!!!).

Une précision, pour l’instant, j’essaie de comprendre ce qui ne fonctionne pas avec 2 zdld mais dans l’absolu, j’aimerai 1 zdld et 1 groupe d’options avec 2 boutons bascule pour définir le contenu du sous formulaire.

Merci d’avance pour votre aide

[mout1234]

Je ne sais si ton problème vient de là (j'ai lu rapidement ton post) mais il me semble qu'il te faut corriger cette ligne:

Set CTRL = Forms.SSForm!MonChamp

Si SSForm est le sous-formulaire, il faut y accéder par le biais du formulaire principal.
En supposant que le controle contenant le sous formulaire s'appelle SSForm, cela donnera:

Code VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

Set CTRL = ME!SSForm.form!MonChamp

[kgb1917]

Re,

Merci mout1234, ça fonctionne impec cette fois. Je ne ferme pas le post car je continue de chercher une actualisation du sous form à partir d'un groupe d'options.

Merci d'avance pour vos conseils sur ce point (et à mout1234)

[mout1234]

Merci mout1234, ça fonctionne impec cette fois.

De rien

Je ne ferme pas le post car je continue de chercher une actualisation du sous form à partir d'un groupe d'options.

Je ferme pour toi ce post maintenant. Il est préférable que tu ouvres si besoin est un nouveau post plus précisément sur le groupe d'options, aprés avoir fait tes essais.