Discussion :

[rlapt]

Bonjour,

J'ai créé un formulaire contenant deux sous-formulaires SF1 et SF2.

Les données des deux sous-formulaires sont liées avec une relation 1 (SF1) à plusieurs (SF2).
Pour synchroniser les données des deux sous-formulaires lors de la saisie, je pensais employer la méthode suivante :
Sur l'événement Current du sous-formulaire SF1, modifier la valeur de filter de SF2. Soit :

Code :

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

1
2
 Application.Forms(Me.Parent.Name).Form("SF2").filter = "[index entrée] = " & [Index sortie]
           Application.Forms(Me.Parent.Name).Form("SF2").FilterOn = True

( 'Me.Parent.Name => nom de SF1)

Cela ne fonctionne pas.
En utilisant l'espion de l'éditeur VBA la syntaxe : Application.Forms(Me.Parent.Name).Form("SF2") donne une résultat correct, mais la propriété form est inaccessible (erreur : La référence d'une expression à la valeur report/form n'est pas valide).

Je dois donc faire une mauvaise manip, mais je ne trouve pas mon erreur. Quelqu'un a t'il une réponse et surtout une solution.

Merci d'avance pour vos réponses.

[nico84]

Bonjour,

Il est possible d'adresser un sous-formulaire comme un formulaire principal :

Code :

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

1
2
3
Forms("SF2").filter = "[index entrée] = " & [Index sortie]
ou
Form_SF2.filter = "[index entrée] = " & [Index sortie]

[rlapt]

Merci nico84 de la réponse.

J'ai fait l'essai de votre proposition et il est impossible de spécifier l'adresse de SF2 de cette manière. Le sous-formulaire étant intégré dans le formulaire de base.

Ma méthode fonctionne bien pour l'adressage du sous-formulaire SF2. Par contre, le problème est que les méthodes Filter et FilterOn ne sont pas accessibles. Je vois le sous-formulaire mais pas la Form contenue dans SF2 auquel appartient les méthodes Filter et FilterOn.

J'espre que je ne suis pas trop confus dans mes explications.

[nico84]

Je vois le sous-formulaire mais pas la Form contenue dans SF2 auquel appartient les méthodes Filter et FilterOn.

C'est le nom de cette form qu'il faut utiliser avec ma syntaxe

[rlapt]

Bonjour,

Pour les personnes que ma question intéresserait. J'ai trouvé une solution.

Il faut utiliser la syntaxe suivante :

Code :

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

1
2
    Me.Parent.Form("SF2").Form.Filter = "[index entrée] = " & [Index sortie]
    Me.Parent.Form("SF2").Form.FilterOn = True

Cordialement