Pytanie : Suma jeżeli od dojazdowy baza danych

Cześć wszystko,

I polubić the suma wszystkie linia który mieć ten kryterium bellow:
oRST2.Filter = "Période = "" & ComDateDisponible.Text & "" & Description_du_produit = ""& Des_prod.Text &"" "

If te 2 kryterium istnieć, ono brać the suma the rząd i stawiać the rezultat w mój textbox: txtQtedejaassigne.text.

How móc i to zadawalać?

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 <> "" Wtedy
Ciemnawy sSQL2 Sznurek
 Ciemnawy oRST2 Jako ADODB.Recordset
  Set oRST2 = Nowy ADODB.Recordset
    Ciemnawy oConnect2 Jako ADODB.Connection
  Set oConnect2 = Nowy ADODB.Connection

sSQL2 = "WYBIÓRKA [Période], [Description_du_produit], [Quantité_assignée] OD [Dystrybucja employé]"
oConnect2.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Dane Source=" & Form4.txt BaseDe.Text &"; "

oRST2.Open sSQL2, oConnect2

Jeżeli Des_prod > "" Wtedy
oRST2.Filter = "Période = "" & ComDateDisponible.Text & "" & Description_du_produit = ""& Des_prod.Text &"" "
     
        
 
        
    Kończyć Jeżeli
    
 Kończyć Jeżeli

Odpowiedź : Suma jeżeli od dojazdowy baza danych

" I próbować inny sposób.

The odrzynek ciało inspirować twój swój kod w the pytanie ciało. Być może to być the poniekąd ty patrzeć dla?

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

    Ciemnawy sSQL2 Sznurek
    Ciemnawy oRST2 Jako ADODB.Recordset
    Ciemnawy oConnect2 Jako ADODB.Connection
    
    Set oRST2 = Nowy ADODB.Recordset
    Set oConnect2 = Nowy ADODB.Connection

    sSQL2 _
        = "WYBRANY Suma ([Quantité_assignée])" _
        & "OD [Dystrybucja employé]" _
        & "DOKĄD Période = "" & ComDateDisponible.Text & "" "_
        & "   I Description_du_produit = "" & Des_prod.Text & "" "

    oConnect2.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
        "Dane Source=" & Form4.txt BaseDe.Text &"; "

    oRST2.Open sSQL2, oConnect2

    MsgBox oRST2.Fields ((0)). Wartość
Inne rozwiązania  
 
programming4us programming4us