Discussion :

[ALAMARQU]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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

[ALAMARQU]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joséhoule]

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??
J'ai tout essayé, je sais pu quoi faire.