Discussion :

[microman]

Bonjour, je ne suis pas familier avec le SQL sous Access et j'aurai besoin d'un coup de pouce :

Un formulaire contient une zone de texte dont la source est issue d'une requête.

Mon objectif : Indiquer à la zone de texte quelle est sa source et où elle se situe.

Ceci sachant que la valeur qui doit apparaitre dans la zone de texte est la SOMME des valeurs d'une des colonnes de résultat de la requête.

Plus simplement la requête s'appelle comme ça :

Code :

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

Requête_Prix_Sous_Nom

Le champs a sommer s'appelle comme ça :

Code :

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

Prix_T_Sous_Nom

J'ai donc pensé à un truc du genre : Source =

Code :

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

= SOMME([Requête_Prix_Sous_Nom]![Prix_T_Sous_Nom]) FROM [Requête_Prix_Sous_Nom]

Mais ça ne fonctionne pas.

Merci d'avance pour toutes suggestions.

[loufab]

Bonjour,

Il est impossible d'attribuer le résultat d'une requete à une zone de texte.

faire simplement :

Code :

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

1
2
 
=somme([Nomduchamp])

Cordialement,

[microman]

Merci pour la réponse.
Pour l'instant le problème persiste.
Si il existe une solution en passant par VBA et en copiant le résultat dans la zone de texte ça m'aiderai tout autant...
Jusqu'à présent, ça ne fonctionne que si j'indique où se situe le champ de la requête dans la source du formulaire.
Je continue de chercher et reste ouvert à tout conseil.

[loufab]

Bonjour,

mets le champ servant au calcul dans un controle caché. cela devrait resoudre ce problème.

Cordialement,

[microman]

Merci pour la suggestion mais je ne sais pas faire ça. Je suis débutant en Access et VB(A).
Si tu as le temps de me détailler la chose ce serait très aimable à toi.

[loufab]

Tu ajoute le champ servant au calcul dans la zone détail via la liste des champs.
Tu ouvre ses propriétés et met Visible à Non.

[microman]

Merci pour l'info ! Entre temps je m'en suis à peu près tiré en VBA Access avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Requete_Prix_T()
'On Error GoTo Err
Dim oDb As DAO.Database
Dim strCodeSql As String
                'Instancie l'objet database
    Set oDb = CurrentDb
                'Stocke le code SQL dans une variable
    strCodeSql = "SELECT SUM([Requête_Prix]![Prix_T]) FROM [Requête_Prix]"
                'Crée la requête
    oDb.CreateQueryDef "Requete_Prix_T", strCodeSql
oDb.Close
Set oDb = Nothing
 
Err:
            'Gére les erreurs
Select Case Err.Number
  Case 3012: MsgBox "La requête existe déjà"
  Case Else: MsgBox "Une erreur inconue est survenue"
End Select
End Sub

je dis "à peu près" parce que maintenant je voudrai récupérer le résultat de la requête et l'afficher dans mon étiquette !
Si quelqu'un a une idée...!? Je suis aussi ouvert à toute suggestion : Je n'avais peu être pas besoin de "créer" une requête et aurai pu me contenter du code SQL ?
Merci pour tout conseil !