[AC-2010] Requête et paramètre d'un sous-formulaire [Résolu]

[curt]

Bonsoir à tous,

j'ai la requête ci-dessous qui ne fonctionne pas :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub SalleLongueur_AfterUpdate()
 
Dim oRst As DAO.Recordset
Dim db As DAO.Database
Dim sSql As String
 
    sSql = "SELECT Sum(Tbl_LiaisonSalle.SalleLongueur) AS SommeDeSalleLongueur FROM Tbl_LiaisonSalle GROUP BY Tbl_LiaisonSalle.Num_Liaison HAVING ((Tbl_LiaisonSalle.Num_Liaison)=[Forms]![Frm_Liaison]![ID_Liaison]);"
 
    Set oRst = CurrentDb.OpenRecordset(sSql, dbOpenDynaset, dbReadOnly)
 
    With oRst
        LongueurCalculee = .Fields("SommeDeSalleLongueur")
    End With
 
End Sub

A l'exécution, j'ai le message "trop peu de paramètre - 1 attendu"

Le problème doit venir de là :

Code :

=[Forms]![Frm_Liaison]![ID_Liaison]);"

La syntaxe pour aller sur le sous-formulaire doit être incorrecte, mais .... je sèche

En effet, sans la clause HAVING, ça fonctionne. Je n'ai plus le message d'erreur mais le résultat est erronné (mais c'est normal)...

Bon week-end à tous.

Curt

[Philippe JOCHMANS]

Bonjour

Je serais toi je sortirais l'appel au champ du formulaire de la requête pour le rajouter ensuite par concaténation.

Ce genre de syntaxe fonctionne avec le QBE, mais pas en VBA.

De plus pour la syntaxe du sous-formulaire : Les appels formulaires/états.

Philippe

[Richard_35]

Bonjour Curt et Philippe,

Juste une remarque : tu devrais transférer ta clause HAVING dans une clause WHERE. En effet, d'un point de vue conceptuel, il vaut mieux éliminer les Tbl_LiaisonSalle.Num_Liaison qui ne t'intéressent pas avant le groupage qu'après le groupage : en quelque sorte, tu fais travailler Access pour rien (somme puis élimination) ...

La clause HAVING ne doit servir qu'à tester des fonctions de groupage.

Mais bon, ce n'est pas le fond du problème que tu exposes.

[curt]

Bonsoir à tous et merci pour les pistes.

N'y a t'il pas un moyen plus direct de mettre une valeur (somme d'un champ issue d'une requête) directement dans une variable (ValeurVarTOTO) ?

(Désolé mais côté SQL je sèche !!)

Bonne soirée.

Curt

[LedZeppII]

Bonsoir,

Pour une somme simple DSum devrait faire l'affaire.

Si Num_Liaison est un champ de type nombre entier :

Code :

UneVariable = DSum("SalleLongueur", "Tbl_LiaisonSalle", "Num_Liaison = " & [Forms]![Frm_Liaison]![ID_Liaison])

A+

[curt]

Bonsoir LedZeppII,

Pour une somme simple DSum devrait faire l'affaire

et ben pour faire simple, c'est exactement ça !!!

Facile, simple et efficace.

Merci

Curt