Discussion :

[Alain7751]

Bonjour,

Je ne parviens pas à conserver la valeur de la variable "edition" lorsque je passe d'un formulaire à l'autre (Fm_Choix et Fm_essai)
Sur le formulaire Fm_Choix , le bouton Btn est censé transmettre la valeur 8 :

Code :

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

1
2
3
4
5
6
7
 
Public Sub Btn_Click()
    Static Edition As Integer
    Edition = 8
    MsgBox Edition
    DoCmd.OpenForm "Fm_essai"
End Sub

Sur le formulaire Fm_essai :

Code :

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

1
2
3
4
 
Private Sub Form_Load()
    MsgBox Edition
End Sub

A l'ouverture du formulaire le msgbox est vide ...

Merci pour votre aide

[nico84]

Bonjour,
3 solutions :
- déclarer edition comme variable globale (dans un module)
- passer sa valeur en parametre dans le openform
- appeler forms("fm_choix").edition

[Alain7751]

Merci pour ton aide ...
la solution 1 je l'ai tenté en déclarant edition dans un module 1 mais ça n'a pas fonctionné.
la solution 2 je l'ai tenté mais je n'ai certainement pas adopté la bonne syntaxe , certainement que je ne sais pas écrire ainsi (chaque tentative a échoué)
la solution 3, en fait je pense qu'elle n'est pas adapté car je cherche à conserver la valeur de edition pour un traitement ultérieur.
Je ne comprends pas pourquoi ça ne marche pas car il me semble que sur ''le papier'' au moins tout ça est correct : j'ai déclaré la variable en static ; la procédure est public ... ??!!
j'ai testé plusieurs solutions dont la 2 que tu as proposé ... je ne vois pas pourquoi cette perte de mémoire !!
Merci de me sortir de l'ornière ....

[zoom61]

Salut,

Tu devrais aller voir la proposition que j'ai fait dans la FAQ :
Utilisation de variables

@+.

[Shanur]

Dans FM_Choix :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim inEdition as integer
 
Public Sub Btn_Click()
    inEdition = 8
    MsgBox inEdition
    DoCmd.OpenForm "Fm_essai"
End Sub
 
Property Let Edition(extEdition As integer)
  inEdition = extEdition
End Property
 
Property Get Edition() As integer
  Edition  = inEdition
End Property

Dans Fm_Essai :

Code :

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

1
2
3
Private Sub Form_Load()
    MsgBox Forms("Fm_Choix").Edition
End Sub

[Alain7751]

Merci Zoom61 pour ton aide.
Comme tu l'as constaté la proposition de Shanur est très simple à mettre en oeuvre. Je l'ai testé et ça fonctionne parfaitement.
Merci à tous pour votre collaboration et votre rapidité !

[zoom61]

Salut,

La solution que je te propose te permet d'utiliser la variable en VBA mais aussi dans une requête...
C'est à toi de voir...

@+.