Discussion :

[issam16]

bonjour tout le monde,

j'ai creer un module ou j'ai declaré une variable globale,j'affecte a cette variable une valeur dans un formulaire,et je veux afficher la valeur de cette variable dans un autre formulaire,ca marche pas?
pourriez vous m'aider?merci

[Lou Pitchoun]

Salut,
Tu as créé un module à partir de l'onglet module ??
Comment as tu déclaré ta variable ??
Comment essaies tu de l'utiliser ??

[issam16]

Salut,
Tu as créé un module à partir de l'onglet module ??
Comment as tu déclaré ta variable ??
Comment essaies tu de l'utiliser ??

oui j'ai creé la variable dans l'onglet module sur access,
je l'ai declaré commme suit:

Code :

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

dim NomVariable

et pour l'utiliser je lui affecte une valeur dans le formulaire1 et j'essaye de l'afficher ou de l'affecter a une autre variable dans le formulaire2

[Lou Pitchoun]

Ok, c'est ta déclaration qui n'est pas bonne.

Pour déclarer une variable publique, tu la déclares comme suit :

Code :

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

Public NomVariable As TypeVariable

[guigui5931]

Pour déclarer une varaible globale il faut faire

Code :

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

1
2
 
Global maVariable as Montype

Cela dit tu aurais trouvé ça dans l'aide d'ACCESS

[issam16]

Ok, c'est ta déclaration qui n'est pas bonne.

Pour déclarer une variable publique, tu la déclares comme suit :

Code :

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

Public NomVariable As TypeVariable

ca marche merci

[random]

transforme un peu ton code dans un module

Code :

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

1
2
3
4
5
6
7
8
9
10
 
public Function varglobalx(Optional x As Variant) As Variant
Static v As Variant
If IsMissing(x) Then
varglobalx = v
Else
v = x
varglobalx = v
End If
End Function

ou préfixe

[CAMIC]

Qui peut être simplifié encore en :

Code :

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

1
2
3
4
5
6
7
8
9
 
public Function varglobalx(Optional x As Variant) As Variant
    Static v As Variant
 
    If not IsMissing(x) Then
         v = x
    End If
    varglobalx = v
End Function

Personnellement, je préfère la philosophie des "get" et "set" et variable privée dans un formulaire ou dans un module suivant sont utilisation.

Voici ma proposition :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private strText As String
 
Public Sub setText(strValue As String)
    strText = strValue
End Sub
 
Public Function getText() As String
    getText = strText
End Function

CAMIC