مرفق مثال لجمع اصناف معينة لكود معين في قاعدة البيانات ارجوا التعديل عليه

Private Sub Command1_Click()
Set RS = New Recordset
       RS.Open "SELECT sum(net) FROM all_inv_stat WHERE kind='" & "Invoice" & _
       "' and cust_code='" & Trim(Text1.Text) & "' or kind='" & "Statement" & _
       "' and cust_code='" & Trim(Text1.Text) & "' or left(kind,11)='" & "Collections" & _
       "' and cust_code='" & Trim(Text1.Text) & "'", DB, adOpenStatic, adLockOptimistic

    If IsNull(RS(0)) = False Then
        Text2.Text = RS(0)
    Else
        Text2.Text = "0.00"
    End If
    RS.Close
    Set RS = Nothing
End Sub

شكرا لك اخي codenew

جزاك الله كل خير وجعله في ميزان حسناتك

العفو اخوي