Discussion :

[adamou85]

Bonjour les amis,

J'ai encore besoin de vous pour améliorer mon application.

J'ai plusieurs formulaires form1, form2, form3,...(et chaque formulaire a une etiquette qui porte son numero). Ces formulaires font tous appels à un même etat (Mon_etat). j'aimerai pouvoir distinguer lequel des formulaires à ouvert l'etat.
c'est à dire, si form1 ouvre Mon_etat qu'il apparaisse N°1 sur Mon_etat, si c'est form2, N°2 sur l'etat......

[tee_grandbois]

bonjour,
pour passer un argument d'un formulaire à un état, il faut utiliser le paramètre OpenArgs, c'est le 6ème paramètre de la commande Docmd.OpenReport:

Code :

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

DoCmd.OpenReport "Mon_etat", acViewPreview, , , , Me.etqnumFormulaire

On peut également utiliser le paramètre en le nommant, cela évite de mettre les virgules de séparation des paramètres:
méthode d'utilisation: nom du paramètre suivi des caractères :=

Code :

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

DoCmd.OpenReport "Mon_etat", acViewPreview, OpenArgs:=Me.etqnumFormulaire

où etqnumFormulaire est le nom de l'étiquette du formulaire contenant le n° du formulaire.

Ensuite dans l'état, mettre ce code dans l'évènement Open qui va récupérer le contenu du paramètre OpenArgs:

Code :

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

1
2
3
Private Sub Report_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then Me.etqnumFrm.Caption = Me.OpenArgs
End Sub

où etqnumFrm est le nom de l'étiquette dans l'état qui affichera le n° du formulaire appelant.

[adamou85]

ok mon expert, je vais monter tout ça et te tiendrai au courant encore merci.
Cordialement

[adamou85]

J'ai tout monté et vérifier tout semble correctement codifié mais le message suivant apparaît:

erreur de compilation

membre de méthode ou de données introuvable

et le Me.etqnumFormulaire est sélectionné. Je n'arrive pas à situer le problème. Merci

[Jeannot45]

Le champ etqNumFormulaire est-il implanté dans l'état ?

Bonne continuation

[adamou85]

Non Jeanot, ce n'est pas un champ mais une etiquette

[tee_grandbois]

bonjour,

J'ai tout monté et vérifier tout semble correctement codifié mais le message suivant apparaît:
et le Me.etqnumFormulaire est sélectionné. Je n'arrive pas à situer le problème. Merci

j'ai fait une petite erreur : il faut mettre Me.etqnumFormulaire.Caption puisque c'est un étiquette. Cela dit, ce n'est pas l'absence de .Caption qui expliquerait l'erreur "membre ou méthode de données introuvable", car, en général, cette erreur s'affiche lorsque que le contrôle ou la propriété (ou la méthode) associée au contrôle est inconnu: par exemple, lorsque que l'on met Me.etqnumFormulaire.Value alors que c'est une étiquette (Value c'est pour les zones de texte), l'erreur est levée à la compilation ou à l'exécution.

Peux-tu poster le code exact de la commande Docmd.OpenReport que tu utilises dans le formulaire et faire une copie d'écran des propriétés de etqnumFormulaire ?

[adamou85]

Bonsoir, ou effectivement j'avais aussi songé à mettre .Caption mais l'erreur est restée entier.

Code :

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

DoCmd.OpenReport "E_Ticket", acViewPreview, , "IdOperation=" & Nz(Me!IdOperation, 0), , OpenArgs:=Me.Numtable.Caption

[tee_grandbois]

peut-on avoir les propriétés du contrôle Numtable (ou etqnumFormulaire ?) en impression d'écran ?

[adamou85]

Oui bien sûr excuse moi....

[tee_grandbois]

bonjour,
tout semble correct, je ne vois pas ce qui peut provoquer cette erreur ...

[adamou85]

Je vais revoir tout doucement peut être qu'une erreur s'y est glissée.

[tee_grandbois]

est-ce bien le bouton "Ticket" du formulaire F_Operation qui déclenche l'impression (je pense que oui si c'est la base "Logiciel de caisse" du forum)
Sinon, peux-tu poster dans une nouvelle base les formulaires, l'état et les tables vides ?

[adamou85]

Non ce n'est le bouton Ticket. Oui c'est le "Logiciel de caisse" du forum mais que j'ai modifié pour l'adapter à mes besoins. ok

[tee_grandbois]

Non ce n'est le bouton Ticket. Oui c'est le "Logiciel de caisse" du forum mais que j'ai modifié pour l'adapter à mes besoins. ok

si ce n'est pas le bouton Ticket, alors d'où est imprimé l'état ?
L'étiquette Numtable appartient au formulaire F_Operation, si l'état est imprimé ailleurs, il faudrait à minima que l'on sache depuis où, afin qu'on ne puisse donner les solutions correctes qu'avec une boule de cristal ...

[adamou85]

J'ai essayé de poster la base, mais impossible, un peu trop volumineuse...
l'état est imprimer à partir de la commande valider située sur le formulaire F_Encaissement accessible lui même (F_Encais..) à partir du bouton Encaisser situé sur F_Opération

[adamou85]

ok ça a fonctionner quand quand j'ai ramené l'impression de l'état sur le bouton Ticket du formulaire F_Operation et du coup je réalise un peu la bêtise: si j'ai bien compris le code que tu m'a fourni est censé fonctionner si l'edition de l'état venait d'une commande directement rattachée au F_Opération. Or, l'édition de mon état venait d'une commande située sur un autre formulaire (F_Encaissement) et peut être voilà pourquoi c'était introuvable....

[tee_grandbois]

J'ai essayé de poster la base, mais impossible, un peu trop volumineuse

j'ai juste demandé la structure de la base, c'est à dire, les objets formulaires, états et tables sans les données, tout cela compacté puis compressé devrait largement être inférieur aux 2 Mo permis.
Mais puisque j'ai enfin le renseignement qui manquait, l'édition etant appelé depuis un formulaire et l'argument se trouve sur un autre formulaire, il faut donc préciser quel formulaire contient l'argument, donc Me. est à remplacer par Forms!F_Operation:

Code :

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

DoCmd.OpenReport "E_Ticket", acViewPreview, , "IdOperation=" & Nz(Me!IdOperation, 0),OpenArgs:=Forms!F_Operation!Numtable.Caption

[adamou85]

Tout est bien qui fini bien alors. Merci pour ton aide
Cordialement