07-02-17, 01:11 AM
السلام عليكم اخوتي الاعزاء
ارجو المساعدة
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
عند تنفيذ الاستعلام لا يقوم بعملية الجمع
ارجو المساعدة
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
عند تنفيذ الاستعلام لا يقوم بعملية الجمع