IdentifiantMot de passe
Mot de passe oublié ?Je m'inscris ! (gratuit)

FAQ access 2007

logo
Sommaire > Divers > Variables temporaires
        Comment ajouter une variable temporaire ?
        Comment détruire une variable temporaire ?
        Comment lire la valeur d'une variable temporaire en VBA ?
        Comment modifier une variable temporaire ?
        Comment utiliser une variable temporaire dans une requête ?
        Qu'est ce que sont les variables temporaires ?
rechercher
precedent    sommaire       telecharger

Comment ajouter une variable temporaire ?
auteur : Christophe Warin
Pour créer une variable temporaire, utiliser la méthode Add de la collection Application.TempVars

Si la variable existe déjà, son contenu est remplacé. Pour éviter cet écrasement, testez son existence avant insertion.

Exemple : 

Sub temp()

    If Not ExistTempVar("Essai") Then
        Application.TempVars.Add "Essai", 15
    Else
        MsgBox "Existe déjà"
    End If
End Sub



Function ExistTempVar(strNom) As Boolean
    ExistTempVar = Not IsNull(TempVars(strNom))
End Function
Dans cet exemple, la variable est nommée Essai et possède la valeur 15.


Comment détruire une variable temporaire ?
auteur : Christophe Warin
La méthode Remove de la collection TempVars permet de supprimer la variable spécifiée.

Exemple : 

Sub detruireUne()
    Application.TempVars.Remove "essai"
End Sub
La méthode RemoveAll permet de les détruire toutes.

Exemple : 

Sub detruireTous()
    Application.TempVars.RemoveAll
End Sub

Comment lire la valeur d'une variable temporaire en VBA ?
auteur : Christophe Warin
La valeur d'une variable temporaire est disponible en spécifiant le nom de celle-ci à la collection TempVars.

Si elle n'existe pas, la valeur Null est retournée.

Exemple : 

Sub lire()
    MsgBox Application.TempVars("Essai")
End Sub

Comment modifier une variable temporaire ?
auteur : Christophe Warin
La méthode la plus simple est d'utiliser la méthode TempVars.Add pour écraser la valeur précédente.

L'autre solution consiste à accéder à la variable par son nom :

Exemple : 

'Crée la variable MaVariable
TempVars.Add "MaVariable", 15
'Affiche 15
MsgBox TempVars("MaVariable")

TempVars("MaVariable").Value = 16
'Affiche 16

Comment utiliser une variable temporaire dans une requête ?
auteur : Christophe Warin
Il n'existe pas de fonction pour effectuer cette opération. Par contre, vous pouvez ajouter une fonction dans un module VBA chargée de retourner la valeur de la variable passée en paramètre : 

Function getTempVar(strNom As String) As Variant
    getTempVar = TempVars(strNom)
End Function
Vous pouvez maintenant utiliser la variable temporaire Essai dans vos requêtes : 

SELECT getTempVar("Essai") FROM MaTable

Qu'est ce que sont les variables temporaires ?
auteur : Christophe Warin
Les variables temporaires sont des variables disponibles pendant l'exécution de l'application et détruites à sa fermeture.

Elles sont accessibles en VBA via la collection Application.TempVars et sont destinées à remplacer l'utilisation de variables publiques utilisées lors d'échange d'information entre formulaires, états, etc..

Vous pouvez ajouter, supprimer, modifier ces variables en VBA ou à l'aide de macros.

rechercher
precedent    sommaire       telecharger

Consultez les autres F.A.Q's

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2009 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site ni de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.