Discussion :

[Tipstitou]

Bonjour,

Je cherche à appeler la sub d'un sous-formulaire placée dans mon formulaire 1 à partir de mon formulaire 2.

Je bute sur la syntaxe.

J'aimerai pouvoir lancer, en version fonctionnelle (!) :

Code :

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

Forms("NomDeMonFormX")!(NomDeMonSousFormDansMonFormX).NomDeMaSubDansMonSousFormDansMonFormX

J'ai essayé avec le point virgule, avec le point, avec des parenthèses, des crochets...
Je n'ai plus d'idée.


Quelqu'un peut-il m'aider ?
Merci d'avance.

[BornToBe]

Bonjour,

As-tu essayé comme ça:

Code :

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

Forms![NomDeMonFormX]![NomDeMonSousFormDansMonFormX].NomDeMaSubDansMonSousFormDansMonFormX

Au fait, la fonction du formulaire appelé doit être publique: mets Public devant le Sub de la définition de ta fonction

[BornToBe]

Ah sinon, je viens de trouver ce tuto ou encore ça.
Si j'ai pu trouver, toi aussi

[Tipstitou]

Merci pour tes réponses, BornToBe.
Hélas, nada fonctionne.

J'ai regardé les deux liens, essayé ta syntaxe et bien vérifié (ce que j'avais déjà fait) que j'étais en Public Sub.

J'ai un message d'erreur qui me dit qu'il ne trouve pas le champ qui correspond à mon sous-formulaire.

Access lit donc MonForm.UnChampDeMonForm.Une sub, en bloquant bien sûr, puisque je n'ai pas de nom de champ équivalent au nom de ma sub,
au lieu de MonForm.MonSousForm.UneSub
...

Oui, j'imagine qu'en m'acharnant, je finirai pas trouver, mais je dois rendre mon projet demain soir et je suis tellement loin du bout, que je ne sais plus à quel saint me vouer...

[BornToBe]

J'ai un message d'erreur qui me dit qu'il ne trouve pas le champ qui correspond à mon sous-formulaire.

Bizarre. T'es sûr que tu l'appeles bien?
Essaye d'appeler un champ du sous-formulaire, par exemple:

Code :

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

MsgBox Forms![NomDeMonFormX]![NomDeMonSousFormDansMonFormX]![Champ].Value

Est-ce que tu as la même erreur?

[Tipstitou]

Vi. Tout pareil.

Erreur d'exécution '2465'
[MaBase] ne trouve pas le champ '[MonSousForm]' auquel il est fait référence dans votre expression

Je ne peux même pas atteindre la MsgBox...

Et oui, je suis bien d'accord. C'est TRES bizarre !

[Tofidou]

J'ai eu un problème dans le même genre.
J'ai une ligne de code de la forme :

Code :

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

Forms![NomSousFormulaire].NomFonction

ça fonctionne bien mais par contre il faut que ton sous-formulaire soit ouvert.

[BornToBe]

Salut,

Toujours pas de news?

Si vraiment tu n'y arrives pas il reste une solution.
Tu supprimes cette Sub de ton formulaire et la copies dans ton module, en l'appelant simplement

Code :

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

1
2
3
Function MyFunction(...)
...
End Function

Ensuite, depuis où tu veux, tu peux l'appeler avec la fonction Call:

Code :

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

Call MyFunction()