[VBA]Test cellule vide base access

Version imprimable

Suite à des réponses de ce forum au sujet du test de cellule par code VBA sur des requêtes SQL, j'ai formulai ce code qui ne fonctionne pas pour le champ inventaire non renseigné (correspondant au paramètre de la fonction inventaire) qui donne un résultat #erreur.
Code:

1 2 3 4 Function calcul_stock_actuel(entrée As Integer, sortie As Integer, inventaire As Integer) As Integer If IsNull(inventaire) = True Then résultat = entrée - sortie Else: résultat = inventaire calcul_stock_actuel = résultat End Function
D'où peut provenir l'erreur?
Merci de vos réponses

02/03/2006, 00h55
faroukvazaha

Es-tu sur que la valeur d'inventaire doit être "null" et non pas "empty" ou 0.
Comment inventaire est initialisé dans to pgm ou ta table ?
Bon courage
02/03/2006, 09h09
ALAMARQU

Bonjour,

Le test doit vérifier que la cellule du champ inventaire est vide (si elle porte la valeur 0 le résultat=inventaire=0.
la programmation doit-elle alors se faire avec IsEmpty()?
Je viens de le tester mais résultat m'affiche toujours #erreur
Cordialement

J'ai le code qui marche si ça peut aider...

Code:

1
2
3
4
Function calcul_stock_actuel(entrée As Integer, sortie As Integer, inventaire As Variant) As Integer
If IsNull(inventaire) = True Then résultat = entrée - sortie Else: résultat = inventaire
calcul_stock_actuel = résultat
End Function

17/03/2006, 16h14
joséhoule

#Erreur; Passage de champs vides dans une fonction

Effectivement, l'utilisation du type "Variant" permet de bypasser ces erreurs.
Mais que fait-ons quand absolument besoin d'un type String?

Y a t'il un foutu moyen de passer une chaine vide ou nulle sans que ca génère une #Erreur au moment du passage des paramètres de la fonction?? 8O
J'ai tout essayé, je sais pu quoi faire.