Discussion :

[priest69]

Hello,

J'ai un petit probléme avec ma fonction DSum() qui me renvoye 0 (et en message d'erreur "Opération annulée".

Voici le contenu de ma fonction :

Code :

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

1
2
3
4
Dim Sortie As Integer
Dim Entree As Integer
 
Sortie = DSum("QteArticle", "EST_SORTIE", "IDArticle=" & Forms!EST_SORTIE_Form.Modifiable8 & "")

Mon objectif est de calculer la somme des QteArticles.

Y a t'il une explication ?

Merci !!!

[Trini]

Bonjour,

Peut-être que
- Si QteArticle est de type long, à ce moment fait plutôt un Dim comme cela

Code :

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

1
2
 
Dim Sortie As long

En tout cas il vaut mieux avoir le même type de données.

- IDArticle est bien numérique, sinon mettre les quotes autour.

- Forms!EST_SORTIE_Form.Modifiable8 retourne bien l'IdARticle ?

Sinon je vois pas autre chose.

Salut,

[medkarim]

essay sans le critère id article pour voir si l'erreur ne vient pas de ca

[priest69]

A encore mes Espions, les types de champs sont compatibles (numérique et entier) j'ai tout de même essayer avec Double au cas ou.
Mais sortie me renvoye tjrs 0 (en numérique bien sûr).

Code :

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

1
2
3
'sortie = DSum("QteArticle", "EST_SORTIE", "IDArticle=" & Forms!EST_SORTIE_Form.Modifiable8 & "")
MsgBox (Forms!EST_SORTIE_Form.Modifiable8)
MsgBox (QteArticle)

Mes deux msgbox me renvoyent bien les éléments souhaités ! Veux tu que je te mette un lien pour télécharger ma base et voir ce qui peut y avoir de faux ????

[cafeine]

par pur formalisme j'aurais essayé :

Code :

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

1
2
3
 
Dim sortie As Long
sortie = DSum("[QteArticle]", "EST_SORTIE", "[IDArticle] = " & Forms!EST_SORTIE_Form.Modifiable8)

[priest69]

Ok... Merci Access pour tes messages trés trés explicite !!!
Opération annulée car en fait :

"Forms!EST_SORTIE_Form.Modifiable8"

Devait être entre "" car l'élément IDarticle est un type texte


pourquoi n'a t il pas simplement, renvoyer une erreur de compatibilité ?

En tout cas merci à vous tous

Gloire au forum access