calcul de valeurs présentes dans une liste de résultat

**Makaveli33** · 12/05/2006, 12h15

Bonjour,

J'ai créé un formulaire de recherche multi-critère sur le modèle du tuto de Caféine et cela fonctionne correctement (MERCI CAFEINE!!!)

Ma liste de résultat fait apparaitre l'historique des mouvements d'échange de palettes entre une société et mon entreprise de transport.
Dans cette liste, il y à un champ SOLDE qui calcule le solde entre le nombre de palette ENTREE et le nombre de palette SORTIE du camion pour chaque enregistrement.

Après avoir fait ma recherche pour un entreprise , j'aimerais afficher dans une zone de texte, le total du Solde (somme des valeurs présentes dans la colonne SOLDE).

Merci pour votre aide!

**Papy Turbo** · 12/05/2006, 12h31

Essaye avec la fonction DSum (voir aide VBA), à laquelle tu passeras le même string SQL (=critères de sélection) que tu as passé à la liste.

Exemple :

Code :

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

txtTotalSolde = DSum("NomDuChampSolde", "NomTableOuRequeteSource", strSqlCriteres)

où, bien sûr, tu mettras les vrais noms de champ, de table ou de requête et de la variable qui contient les critères de sélection.

**Makaveli33** · 12/05/2006, 13h43

Merci pour ta réponse,

Le calcul fonctionne correctement mais

un message d'erreur ai apparu lorsque je clique sur un controle de mon formulaire:
Erreur d'execution '3075':
Erreur de syntaxe dans la date dans l'expression 'CompteMouvements!N°MOUVEMENT <>0 And CompteMouvements!NOM = " And CompteMouvements!DATE <= ##'.

Mon code:

Private Sub RefreshQuery()

Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT N°MOUVEMENT, NOM, DATE, TYPE_MOUVEMENT, ENTREE, SORTIE, SOLDE, NOM_SOCIETE, N°LETTRE_VOITURE FROM CompteMouvements Where CompteMouvements!N°MOUVEMENT <> 0 "
If Not Me!chkSociété Then
SQL = SQL & "And CompteMouvements!NOM = '" & Me.CmbRechSociété & "' "
End If
If Not Me!ChkTransporteur Then
SQL = SQL & "And CompteMouvements!NOM_SOCIETE = '" & Me.CmbRechTransporteur & "' "
End If
If Not Me!ChkFinPériode Then
SQL = SQL & "And CompteMouvements!DATE <= #" & Format(Me.TxtFinPériode, "mm/dd/yyyy") & "# "
End If

SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"

CurrentDb.QueryDefs("RequeteTest").SQL = SQL

TxtSoldeTotal = DSum("SOLDE", "CompteMouvements", SQLWhere)

Me.LstResultatRech.RowSource = SQL
Me.LstResultatRech.Requery

Et lorsque je met
TxtSoldeTotal = DSum("SOLDE", "CompteMouvements", "SQLWhere")

j'ai le message "erreur 2001: opération annulée" avec la meme ligne de surligné.

**Papy Turbo** · 13/05/2006, 15h53

Bon, dans l'ordre :

- faut absolument que tu modifies tes tables tout de suite (+ tu attends, + ça va te coûter cher de tout refaire).
Remplace tous les champs qui contiennent un "N°" par des "No", avec la lettre 'o' minuscule. Voir les conventions de nommage (article de Jean-Phil. Ambrosino, si ma mémoire est bonne). Sinon, gros bobo difficile à déboguer plus tard.

- ton bug paraît clair. Je cite :

Erreur de syntaxe dans la date [...]And CompteMouvements!DATE <= ##'.

Effectivement, si y a pas de date, SQL va faire une tête

Donc, si ton string SQL ne contient pas de date, c'est qu'elle est vide (valeur nulle).
Donc, à toi de choisir :
- si ChkFinPériode est vrai et que TxtFinPériode est null, qu'est-ce que tu veux faire :
1- engueuler l'utilisateur (MsgBox "Faut indiquer une date..." > Exit Sub)
2- ou bien, ignorer le critère sans rien dire
3- ou bien remplacer le critère par " AND CompteMouvements!DATE Is Null"

C'est toi le chef, c'est toi qui décide.

**Makaveli33** · 14/05/2006, 19h37

bonjour,

Merci pour tes réponses PapyTurbo,
-j'ai modifié mes tables comme tu me l'a conseillé.

-pour le bug, j'ai eu une idée, j'ai mis la date du jour par défaut dans la textBox de Fin de période.
J'ai plus de problème sauf si on efface la valeur...
ça te semble correct comme sollution?

**Papy Turbo** · 15/05/2006, 11h39

Non.

Ca ne répond pas à la question ci-dessus :

si [...] et TxtFinPériode est null, qu'est-ce que tu veux faire ?

La date du jour par défaut, c'est excellent, mais ça n'empêche pas l'utilisateur de la vider, puis cliquer sur ChkFinPériode et envoyer le bouzin (à la casse !)

Je pense que tu es toujours obligé de traiter le cas où la date est nulle.