OVH Cloud OVH Cloud

Même texte = plusieurs formulaires

3 réponses
Avatar
A COSTA
Bonjour,
J’aimerais introduire dans plusieurs formulaires (Form1, Form2, etc) le
texte existant dans un autre form (FormTest).
J’ai utilisé ce command mais pour qu’il donne des bons résultats il faut que
le FormTest soit ouvert.

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = Forms!FormTest!Text1.Value
End Sub

Comment faire pour ne pas avoir besoin d’ouvrir le FormTest à chaque fois
que j’ouvre les autres forms ?
Merci d’avance
A Costa

3 réponses

Avatar
Eric
Bonjour,

Si je ne me trompe pas, le contenu de Text1 sur le FormTest est une
information constante ? Dans ce cas-là, j'opterai pour la définition
d'une constante publique dans un module global de la manière suivante :

Public Const constTexteAAfficher = "Ici, le texte qui doit être affiché"

Puis sur les évènements Open des formulaires Form1, Form2, ... y compris
FormTest :

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = constTexteAAfficher
End Sub

Bonjour,
J’aimerais introduire dans plusieurs formulaires (Form1, Form2, etc) le
texte existant dans un autre form (FormTest).
J’ai utilisé ce command mais pour qu’il donne des bons résultats il faut que
le FormTest soit ouvert.

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = Forms!FormTest!Text1.Value
End Sub

Comment faire pour ne pas avoir besoin d’ouvrir le FormTest à chaque fois
que j’ouvre les autres forms ?
Merci d’avance
A Costa



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
A COSTA
Merci et bonne journée
A C


Bonjour,

Si je ne me trompe pas, le contenu de Text1 sur le FormTest est une
information constante ? Dans ce cas-là, j'opterai pour la définition
d'une constante publique dans un module global de la manière suivante :

Public Const constTexteAAfficher = "Ici, le texte qui doit être affiché"

Puis sur les évènements Open des formulaires Form1, Form2, ... y compris
FormTest :

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = constTexteAAfficher
End Sub

Bonjour,
J’aimerais introduire dans plusieurs formulaires (Form1, Form2, etc) le
texte existant dans un autre form (FormTest).
J’ai utilisé ce command mais pour qu’il donne des bons résultats il faut que
le FormTest soit ouvert.

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = Forms!FormTest!Text1.Value
End Sub

Comment faire pour ne pas avoir besoin d’ouvrir le FormTest à chaque fois
que j’ouvre les autres forms ?
Merci d’avance
A Costa



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
A COSTA
Et si l'utilisateur change la valeur de Text1 dans FormTest ?
J'ai essaié
Public Const constTexteAAfficher = Forms!FormTest.Text1.Value
mais ça ne va pas.
Parce que ce que je voudrais c'est avoir dans les autres forms, le text
introduit dans FormTest.
Merci d'avance
A Costa

Bonjour,

Si je ne me trompe pas, le contenu de Text1 sur le FormTest est une
information constante ? Dans ce cas-là, j'opterai pour la définition
d'une constante publique dans un module global de la manière suivante :

Public Const constTexteAAfficher = "Ici, le texte qui doit être affiché"

Puis sur les évènements Open des formulaires Form1, Form2, ... y compris
FormTest :

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = constTexteAAfficher
End Sub

Bonjour,
J’aimerais introduire dans plusieurs formulaires (Form1, Form2, etc) le
texte existant dans un autre form (FormTest).
J’ai utilisé ce command mais pour qu’il donne des bons résultats il faut que
le FormTest soit ouvert.

Private Sub Form_Open(Cancel As Integer)
Label1.Caption = Forms!FormTest!Text1.Value
End Sub

Comment faire pour ne pas avoir besoin d’ouvrir le FormTest à chaque fois
que j’ouvre les autres forms ?
Merci d’avance
A Costa



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr