[Toutes versions] Utilisation de variables

[zoom61]

Voici comment créer des variables (qui peut être numérique ou pas) et les utiliser dans les différents éléments d'une base Access.

Créer un nouveau module, et dedans saisir ce code :

Code :

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Dim g_var1 As String
'Cette fonction permettra d'enregistrer une valeur dans une variable
Public Function set_var1(var1 As String)
   g_var1 = var1
End Function
'Cette fonction permettra de récupérer la valeur d'une variable
Public Function get_var1() As String
   get_var1 = g_var1
End Function

La variable peut être une valeur que l'on veut définir, le code sera donc :

Code :

1
2
3
Dim i as integer
i = set_var1(1)            'la valeur var1 sera égale à 1
i = set_var2(« Bonjour »)    'la valeur var2 sera du texte

Les valeurs variables peuvent être issues par exemple d'un formulaire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim i as integer
'si l'on veut récupérer la valeur d'un champ
i = set_var1(Forms!Formulaire1.champ1)
'peut aussi venir d'une requête
SQL = "SELECT nb, … FROM … "
Set oSQL = CurrentDb.OpenRecordset(SQL)
With oSQL
   Do While Not .EOF
      i = set_var1(oSQL![nb])
      'instruction a exécuté avec la variable
      oSQL.MoveNext
   End With
oSQL.Close

Ces variables peuvent être utilisées dans une requête :

Code :

1
2
3
4
5
6
SELECT 
   CHAMP1, CHAMP2 
FROM
   TABLE1 
WHERE 
   CHAMP3 = get_var1()

Dans un formulaire ou un état pour renseigner un champ :

Code :

1
2
'cette instruction met la valeur var1 dans le champ1
Forms!Formulaire1.champ1= get_var1()

[Philippe JOCHMANS]

Bonjour

Es-tu sur de ce que tu as écris :

Code :

set_var2(« Bonjour »)

Où est déclaré set_var2 ?

Sur cette ligne :

Code :

i = set_var1(1)            'la valeur var1 sera égale à 1

Faux tu affectes à i la valeur de set_var1(1) et non l'inverse.

Philippe

[zoom61]

Envoyé par Philippe JOCHMANS

Code :

set_var2(« Bonjour »)

Où est déclaré set_var2 ?

C'est un exemple pour montrer que l'on peut mettre au chose que des chiffres. Il suffit de créer autant de variable que l'on veut.

Envoyé par Philippe JOCHMANS

Sur cette ligne :

Code :

i = set_var1(1)            'la valeur var1 sera égale à 1

Faux tu affectes à i la valeur de set_var1(1) et non l'inverse.

La fonction :

Code :

i = set_var1(1)

permet d'affecter la variable, il suffit de voir la fonction set_var1(). Ensuite en rappelant la fonction get_var1() on récupère la variable.

J'espère que mes explications sont claires.

@+.