Discussion :

[lolothom]

Code :

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

1
2
SELECT Sum(R_devis_total.PrixVENTE) AS SommeDePrixVENTE
FROM R_devis_total;

je voudrai recuperer ce resultat dans mon formulaire quelle methode ?

[LedZeppII]

Bonsoir,

Dans la source du contrôle tu mets cette expression

Code :

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

=SomDom("PrixVENTE"; "R_devis_total")

A+

[lolothom]

bonjour

je ne voudrai pas de fonctions de domaine...

[Invité]

Bonjour

Si tu ne veux pas utiliser les fonctions de domaines, il va falloir passer par un recordest DAO, et récupérer la valeur du champ SommeDePrixVENTE pour pouvoir ensuite l'affecter à la zone de texte de ton formulaire.

Starec

[lolothom]

via le code http://starec.developpez.com/tuto/fo...maines/#LIII-B

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
21
22
23
24
25
26
27
28
29
30
 
Public Function CalculSumSQL(strChamp As String, strTable As String) As Variant
 
    On Error GoTo GestError
    ' ===== déclaration des variables =====
    Dim strSql As String
    Dim rst As DAO.Recordset
 
    ' ===== affectation =====
    strSql = "SELECT Sum(" & strChamp & ") AS Somme " & _
             "FROM " & strTable & ";"
    Set rst = CurrentDb.OpenRecordset(strSql)
    If rst.RecordCount = 0 Then
        CalculSumSQL = "Pas de Données"
    Else
        CalculSumSQL = rst("Somme")
    End If
 
    ' ===== libération =====
    rst.Close
    Set rst = Nothing
    Exit Function
 
GestError:
 
    If Err.Number = 3061 Then
        MsgBox "Une des donnée entrée en paramètre est erronée", vbOKOnly + vbExclamation
    End If
 
End Function

j'essaie un truc avec çà et je tiens au courant