Frage : Summe wenn von der Zugangsdatenbank

Hallo möchten alle,

I die Summe aller Linie haben, die dieses Kriteriumsgebrüll haben:
oRST2.Filter = „Période = „“ u. ComDateDisponible.Text u. „“ u. Description_du_produit = „„u. Des_prod.Text u.““ „

If diese 2 Kriterien existieren, nimmt es die Summe der Reihen und setzt das Resultat in meine area per informazioni ein: txtQtedejaassigne.text.

How kann ich dies tun zu gefallen?

Thanks again 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

If Des_prod.Text <> "" dann
Schwaches sSQL2 als Schnur
 Schwaches oRST2 als ADODB.Recordset
  Einstellen oRST2 = neues ADODB.Recordset
    oConnect2 als ADODB.Connection verdunkeln
  Einstellen oConnect2 = neues ADODB.Connection

sSQL2 = „WÄHLEN [Période], [Description_du_produit], [Quantité_assignée] VON vor [Verteilung employé]“
oConnect2.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
„Datenquelle =“ u. Form4.txt BaseDe.Text u.“; „

oRST2.Open sSQL2, oConnect2

Wenn Des_prod > "" dann
oRST2.Filter = „Période = „“ u. ComDateDisponible.Text u. „“ u. Description_du_produit = „„u. Des_prod.Text u.““ „
     
        
 
        
    Beenden wenn
    
 Beenden wenn

Antwort : Summe wenn von der Zugangsdatenbank

“ Ich versuche, eine andere Weise zu finden.

Das folgende Stückchen angespornt durch Ihren eigenen Code im Fragenkörper. Möglicherweise ist dieses die Art nach der Kodierung, die Sie suchten?

(°v°)
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

    Schwaches sSQL2 als Schnur
    Schwaches oRST2 als ADODB.Recordset
    Schwaches oConnect2 als ADODB.Connection
    
    Einstellen oRST2 = neues ADODB.Recordset
    Einstellen oConnect2 = neues ADODB.Connection

    sSQL2 _
        = „AUSERWÄHLTE Summe ([Quantité_assignée])“ _
        u. „[Verteilung employé]“ vom _
        u. „, WO Période = „“ u. ComDateDisponible.Text u. „“ „_
        u. „   UND Description_du_produit = „“ u. Des_prod.Text u. „“ „

    oConnect2.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ u. _
        „Datenquelle =“ u. Form4.txt BaseDe.Text u.“; „

    oRST2.Open sSQL2, oConnect2

    MsgBox oRST2.Fields (0). Wert
Weitere Lösungen  
 
programming4us programming4us