Vraag : Som als van toegangsdatabase

Hello zou iedereen,

I de som van al lijn willen hebben die deze criteriablaasbalg hebben:
oRST2.Filter = „Période = „“ & ComDateDisponible.Text & „“ & Description_du_produit = „„& Des_prod.Text &““ „

If deze 2 criteria bestaan, zal het de som rijen nemen en zal het resultaat in mijn textbox zetten: txtQtedejaassigne.text.

How kan ik dit alstublieft doen?

Thanks again
" codeBody " 
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 <> "" toen
Schemerige sSQL2 als Koord
 Schemerige oRST2 als ADODB.Recordset
  Vastgesteld oRST2 = Nieuwe ADODB.Recordset
    Schemerige oConnect2 als ADODB.Connection
  Vastgesteld oConnect2 = Nieuwe ADODB.Connection

sSQL2 = „SELECTEER [Période], [Description_du_produit], [Quantité_assignée] VAN [Distributie employé]“
oConnect2.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _
„Gegevens Source=“ & Form4.txt BaseDe.Text &“; „

oRST2.Open sSQL2, oConnect2

Als Des_prod > "" toen
oRST2.Filter = „Période = „“ & ComDateDisponible.Text & „“ & Description_du_produit = „„& Des_prod.Text &““ „
     
        
 
        
    Eind als
    
 Eind als

Antwoord : Som als van toegangsdatabase

“ Ik zal proberen om een andere weg te vinden.

Het fragment wordt hieronder geïnspireerda door uw eigen code in het vraaglichaam. Misschien is dit de soort van het coderen u zocht?

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

    Schemerige sSQL2 als Koord
    Schemerige oRST2 als ADODB.Recordset
    Schemerige oConnect2 als ADODB.Connection
    
    Vastgesteld oRST2 = Nieuwe ADODB.Recordset
    Vastgesteld oConnect2 = Nieuwe ADODB.Connection

    sSQL2 _
        = „UITGEZOCHTE Som ([Quantité_assignée])“ _
        & „VAN [Distributie employé]“ _
        & „WAAR Période = „“ & ComDateDisponible.Text & „“ „_
        & „   EN Description_du_produit = „“ & Des_prod.Text & „“ „

    oConnect2.Open „Provider=Microsoft.ACE.OLEDB.12.0; “ & _
        „Gegevens Source=“ & Form4.txt BaseDe.Text &“; „

    oRST2.Open sSQL2, oConnect2

    MsgBox oRST2.Fields (0). Waarde
Andere oplossingen  
 
programming4us programming4us