[محمد ئوزبك]

السلام عليكم اخوتي الاعزاء
ارجو المساعدة

Private Sub Command2_Click()

Dim rr As Double
'rr = 0
datPrimaryRS.RecordSource = "SELECT SUM(mu) as rr FROM IO WHERE LOCATION like '%" & Text6.Text & "%' AND [SDATE] Between #" & Format(V.Value, "yyyy/MM/dd") & "# AND #" & Format(W.Value, "yyyy/MM/dd") & "# ORDER BY sdate "

datPrimaryRS.Refresh
If datPrimaryRS.Recordset.RecordCount = 0 Then
   MsgBox "áÇíæÌÏ ÞíæÏ"
Else
Set DataGrid1.DataSource = datPrimaryRS

End If
Text2.Text = rr


End Sub


عند تنفيذ الاستعلام لا يقوم بعملية الجمع