web-dev-qa-db-fra.com

VBA vérifie si l'objet est défini

J'ai une variable globale qui est une instance de ma classe personnalisée.

Comment vérifier si l'objet est défini ou si j'ai besoin de l'initialiser?

ms-accessvba
69
Icode4food
If obj Is Nothing Then
    ' need to initialize obj: '
    Set obj = ...
Else
    ' obj already set / initialized. '
End If

Ou, si vous préférez l'inverse:

If Not obj Is Nothing Then
    ' obj already set / initialized. '
Else
    ' need to initialize obj: '
    Set obj = ...
End If
117
stakx

Le moyen (non) sûr de le faire - si vous êtes d'accord avec le fait de ne pas utiliser l'option explicite - est ...

Not TypeName(myObj) = "Empty"

Cela gère également le cas si l'objet n'a pas été déclaré. Ceci est utile si vous voulez simplement commenter une déclaration pour désactiver certains comportements ...

Dim myObj as Object
Not TypeName(myObj) = "Empty"  '/ true, the object exists - TypeName is Object

'Dim myObj as Object
Not TypeName(myObj) = "Empty"  '/ false, the object has not been declared

Cela fonctionne car VBA instanciera automatiquement une variable non déclarée en tant que type Variant vide. Cela élimine le besoin d'un booléen auxiliaire pour gérer le comportement.

1
Cool Blue