كود يحتوي علي حلقة لتعبيت المعلومات في فلكست جريد شغال مية الميه مع الاكسس ورفض يعمل مع الاسكويل نهائيا مع الرغم اني جربت نفس الكود مع الداتا جريد شغال
SQLs = ("SELECT inisell.sname,inisell.snum,min(inisell.princsell)as pr1,sum (inisell.scont) as totaly1, sum (inisell.bcont) as esf1,sum (inisell.scont)-sum (inisell.bcont) as too,(sum (inisell.scont)-sum (inisell.bcont))* min(inisell.princsell) as tee FROM [inisell] where inisell.date between " & TXTFROM & " and " & txtto & " group by inisell.sname,snum order by inisell.snum")
If rs.State = adStateOpen Then rs.Close
rs.Open SQLs, DB, adOpenKeyset, adLockPessimistic
Dim n
Dim i
If rs.RecordCount < 1 Then Exit Sub
rs.MoveLast
rs.MoveFirst
n = rs.RecordCount
MSFlexGrid1.Rows = n + 1
''===========================
For i = 1 To n
MSFlexGrid1.Row = i
'+++++++++++++++++++++++
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rs!snum
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rs!sname
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rs!totaly1
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = rs!esf1
rs.MoveNext
Next i
ارجو المساعدة مشروعي واقف علي هذا الكود ويبقي بقاعدة اسكويل سيرفس ........