[hamada salah90]

(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

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