Gérer les nulls

Commenter

Contenu du snippet

Petite fonction qui permet de retourner une valeur en cas de null.

Source / Exemple : 


Public Type Knulled
    Str As String
    Lng As Long
    Sng As Single
    Bool As Boolean
End Type

Function KnullU(IsNull) As Knulled
    Dim TStr As String, TLng As Long, TSng As Single, TBool As Boolean
    On Error Resume Next
    KnullU.Bool = False
    KnullU.Lng = 0
    KnullU.Sng = 0
    KnullU.Str = ""
    KnullU.Str = IsNull
    KnullU.Lng = IsNull
    KnullU.Sng = IsNull
    KnullU.Bool = IsNull
    On Error GoTo 0
End Function

Conclusion :


Un type est créer renvoyant quatre valeur.
Un string, Un booleen, Un Entierlong, Un Single
KnullU(Valeur).Str renverra donc
Valeur si celui ci n'est pas null
"" si il l'est
etc.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (LeWolf)