سؤال:- كيفية تصميم تقرير فيه خاصية grouping من جدول واحد فقط

السلام عليكم شباب

انا حصلت مثال في هذا المنتدى الاكثر من رائع

وليت احد منك يشرح هذي الكود

MousePointer = 11

db.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\db1.mdb"

With cm

.ActiveConnection = db

.CommandType = adCmdText

.CommandText = "SHAPE {SELECT Dep FROM TBL1 Group by Dep Order by Dep} AS T1 APPEND ({SELECT * FROM Tbl1 Order by Dep,M_Name} AS T2 RELATE Dep TO Dep) AS T2"

.Execute

End With

'

With rs

.ActiveConnection = db

.CursorLocation = adUseClient

.Open cm

End With

ملاحظة المثال في المرفقات

DataReportGrouping.zip

اخي الكريم

'لتغغير شكل الماوس الى الساعة الرملية
MousePointer = 11 
'الاتصال بقاعدة البيانات
db.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db1.mdb"
'تم حجز متغغير مسبقا في الجنرال باسم cm وهو من نوع  Command
وهنا اعدادات الكوماند 

With cm
تحديد قاعدة البيانات 
.ActiveConnection = db
نوع الكوماند تكست ليقبل جمل السكيوال 
.CommandType = adCmdText
.هنا تحدد جملة الاسكيوال  وايضا استخدام تقنية الشاب لتجميع البيانات علما بان التقنية توفرها ميكروسوفت في ADO
.CommandText = "SHAPE {SELECT Dep FROM TBL1 Group by Dep Order by Dep} AS T1 APPEND ({SELECT * FROM Tbl1 Order by Dep,M_Name} AS T2 RELATE Dep TO Dep) AS T2"
هنا تنفيذ الاستعلام
.Execute

End With

هذا المتغيير تم تسجيله مسبقا من نوع ريكوردست'
With rs
تحديد نوع الاتصال 
.ActiveConnection = db
هنا جعل الريكورد ست من نوع كلاينت يووز
.CursorLocation = adUseClient
فتح الريكوردست وتنفيذ الاستعلام المسبق انشاءه 
.Open cm
End With

ولكن اخي الكريم لا تنسى ايضا تصميم التقرير يجب ان يحتوي على خانة جروب

تحياتي