conserver valeur d'une variable

Version imprimable

15/10/2012, 17h16
Alain7751

conserver valeur d'une variable
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:

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:

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
15/10/2012, 20h13
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
15/10/2012, 21h19
Alain7751

merci Nico84

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 ....
15/10/2012, 21h40
zoom61

Salut,

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

@+.

Dans FM_Choix :

Code:

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:

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

16/10/2012, 13h07
Alain7751

ça marche !!!

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é !
16/10/2012, 13h13
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...

@+.