[Ahmed_Mansoor]

في البداية قم بتغيير نوع حقل الكمية الي رقم ثم استخدم هذه الدالة ، قم بتمرير اسم الجدول واسم الخامة للدالة :

كود :

Public Function Get_Qnty(zTableName As String,zItemName As String) As String

Dim DB As Database
Dim RS As Recordset

Set DB = OpenDatabase("union2.2.mdb")

Set RS = DB.OpenRecordset("SELECT SUM(quantity) As zquantity FROM " & Trim$( zTableName) & " Where material_name ='" & Trim$(zItemName) & "' quantity <> ''")

IF RS.RecordCount > 0 Then
     Get_Qnty = RS![zquantity]
Else
     Get_Qnty = "0"
End IF

End Function