منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

لدي جدول يسمى TBsalary

وبه حقول   Name   -   Salary  -  SalDate

كما بالصورة

المثال مرفق للتعديل عليه





أريد كود جمع العنصر Salary من الجدول  في الفترة بين تاريخين معينين  SalDate

أهلا بك أخي الكريم ، إستخدم هذه الطريقة :

(19-10-15, 11:41 PM)Ahmed_Mansoor كتب : [ -> ]أهلا بك أخي الكريم ، إستخدم هذه الطريقة :

كود :

RS.Open "Select SUM(Salary) As Total From TBsalary Where SalDat >=#" & Text1.Text & "# And SalDate <=#" & Text2.Text & "#"

IF RS.RecordCount > 0 Then
    Text3.Text = RS![Total]
Else
     Text3.Text = "0"
End IF

لك جزيل الشكر والتقدير

s=val(date)
z=val(date2)
if sal<s and sal>z then ado.sal=ado.sal+x

---

العفو

x=ado.sla+x

أهلا أخي الكريم , تم التعديل على المثال .