تقرير فرعي لتقرير اساسي

[محمدفتاح]

السلام عليكم جعلكم الله بخير جميعا

قمت بعمل تقرير فرعي من خلال الكود ثم انشأت تقرير اساسي بنفس الطريقة وقمت برط التقرير الفرعي بالاساسي من خلال حقلين  عند عرض التقرير لا يظهر غير سجل واحد وعند فتح التقرير الاساسي في وضع التصميم وحذف التقرير الفرعي وأعادة لصقه بدون اي تغييرات واقوم بعرض التقرير الاساسي مرة اخرى تظهر جميع السجلات ولا اعرف السبب وقمت بتكرار هذه العملية اكثر من مرة ولكن دون جدوي  افيدونا افادكم الله ما حل هذه المشكلة  

[عمر ضاحى]

المفترض ترفع نسخه للنظر فيها

لكن اعتقد المشكله فى العلاقه بين الجدولين 

حيث ما قمت انت به هو عرض السجلات التى يتساوي فيها الجدولين حسب نوع البيانات 

[محمدفتاح]

للاسف حاولت اعمل نموذج صغير وحاولت ارفعه ظهرت رسالة ان الحجم اكبر من المسموح احاول اوضح المشكلة مرة اخرى هذه الطريقة في انشاء التقرير بالكود استخدمتها من قبل وكانت فعالة جدا ولم تظهر هذه المشكلة من قبل في هذه المرة تم انشاء التقرير فعلا ولكن يظهر سجل واحد فقط وبعد فتح التقرير في وضع التصميم وحذف التقارير الفرعية ولصقها مرة اخرى تظهر جميع السجلات وسوف ارسل لكم صورة لشكل التقرير لعلها توضح المشكلة للاسف ظهرت نفس الرسالة ان الحجم كبير

[محمدفتاح]

Database1.rarللاسف حاولت اعمل نموذج صغير وحاولت ارفعه ظهرت رسالة ان الحجم اكبر من المسموح احاول اوضح المشكلة مرة اخرى هذه الطريقة في انشاء التقرير بالكود استخدمتها من قبل وكانت فعالة جدا ولم تظهر هذه المشكلة من قبل في هذه المرة تم انشاء التقرير فعلا ولكن يظهر سجل واحد فقط وبعد فتح التقرير في وضع التصميم وحذف التقارير الفرعية ولصقها مرة اخرى تظهر جميع السجلات وسوف ارسل لكم صورة لشكل التقرير لعلها توضح المشكلة للاسف ظهرت نفس الرسالة ان الحجم كبير

سامحوني لم يخطر على بالي ان اقوم بضغطها فهذا هو النموذج الصغير بعد اذنكم قوموا بفتح النموذج ثم انشاء التقرير ولاحظوا النتيجة ثم فتح التقرير في وضع التصميم وحذف التقارير الفرعية واعادة لصقها واعرض التقرير مرة اخرى ستظهر جميع السجلات هذه هى مشكلتي جعلكم الله عونا لي والاخرين آمين

Database1.rar

[عمر ضاحى]

في 9‏/9‏/2022 at 14:21, محمدفتاح said:

Database1.rarللاسف حاولت اعمل نموذج صغير وحاولت ارفعه ظهرت رسالة ان الحجم اكبر من المسموح احاول اوضح المشكلة مرة اخرى هذه الطريقة في انشاء التقرير بالكود استخدمتها من قبل وكانت فعالة جدا ولم تظهر هذه المشكلة من قبل في هذه المرة تم انشاء التقرير فعلا ولكن يظهر سجل واحد فقط وبعد فتح التقرير في وضع التصميم وحذف التقارير الفرعية ولصقها مرة اخرى تظهر جميع السجلات وسوف ارسل لكم صورة لشكل التقرير لعلها توضح المشكلة للاسف ظهرت نفس الرسالة ان الحجم كبير

سامحوني لم يخطر على بالي ان اقوم بضغطها فهذا هو النموذج الصغير بعد اذنكم قوموا بفتح النموذج ثم انشاء التقرير ولاحظوا النتيجة ثم فتح التقرير في وضع التصميم وحذف التقارير الفرعية واعادة لصقها واعرض التقرير مرة اخرى ستظهر جميع السجلات هذه هى مشكلتي جعلكم الله عونا لي والاخرين آمين

Database1.rar 83.83 kB · 6 downloads

حبيت اراجع الكود واشوف حل له 

قمت بتعديل الكود فى بعض النقاط 

من .Section("Detail")  الى .Section(acDetail)

حل بعض الاخطأ  لكن ظهر لى خطأ اخر لا اعرف له حل صراحتا

 

 

وهذا الكود كامل للنظر فيه من جانب اساتذتى الكرام 

 

Option Compare Database

Function CreateNewReport1()
Dim rptCustomers As Access.Report
Dim strReportName As String
Dim aoAccessObj As AccessObject
Dim txtTextBox As Access.TextBox
Dim lblLabel As Access.Label
Dim strSql As String
Dim intPosition As Integer
Dim rec As Access.Rectangle
Dim ctrl As Variant
Dim ff As Document
Dim gl As GroupLevel
Dim pag As Printer
'ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
If rptcod = 1 Then
Set db = CurrentDb
If DCount("[Name]", "MSysObjects", "[Name] = 'basicdata'") = 1 Then
DoCmd.DeleteObject acQuery, "basicdata"
End If
Set sqry = db.CreateQueryDef("basicdata")
sqry.SQL = "SELECT student_name, kind, religion, case as cass, class as clss, classroom as clssr, 'مسيحي' as t_ch,'مسلم' as t_moslm,([clss]&[clssr]&[religion]) as count FROM students  WHERE ((transaction.class='" & x & "'));"
sqry.Close
db.Close
Set sqry = Nothing
Set db = Nothing
Application.RefreshDatabaseWindow
strSql = "SELECT student_name, religion, kind,classroom as clssr, class as clss, case as cass FROM students  WHERE ((kind='بنــات') and (class='" & x & "')) ORDER BY student_name;"
If DCount("[Name]", "MSysObjects", "[Name] = 'rpt1'") = 1 Then
DoCmd.DeleteObject acReport, "rpt1"
End If
Set rptCustomers = CreateReport
strReportName = "rpt1"
With rptCustomers
.RecordSource = strSql
.Section(acDetail).Height = 0.6 * 567
.Section("PageHeadersection").Height = 0
.Section("Pagefootersection").Height = 0
.Report.Width = 8 * 567
.Report.DefaultView = 0
.Report.Orientation = 1
End With
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "cass", 0, 0, 9.5 * 567, 0.6 * 567): txtTextBox.FontSize = 1: txtTextBox.FormatConditions.Add(acFieldValue, acEqual, Chr(34) & "باق" & Chr(34)).BackColor = RGB(169, 169, 169)
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "religion", 0, 0, 1.75 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.BackStyle = 0
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "cass", 1.75 * 567, 0, 1.75 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.BackStyle = 0
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "student_name", 3.5 * 567, 0, 5 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.BackStyle = 0
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "=1", 8.5 * 567, 0, 1 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.RunningSum = 1: txtTextBox.BackStyle = 0
DoCmd.Save , strReportName
DoCmd.Close
strSql = "SELECT student_name, religion, kind,classroom as clssr, class as clss, case as cass FROM students WHERE ((kind='بنــون') and (class='" & x & "')) ORDER BY student_name;"
If DCount("[Name]", "MSysObjects", "[Name] = 'rpt2'") = 1 Then
DoCmd.DeleteObject acReport, "rpt2"
End If
Set rptCustomers = CreateReport
strReportName = "rpt2"
With rptCustomers
.RecordSource = strSql
.Section("Detail").Height = 0.6 * 567
.Section("PageHeadersection").Height = 0
.Section("Pagefootersection").Height = 0
.Report.Width = 8 * 567
.Report.DefaultView = 0
.Report.Orientation = 1
End With
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "cass", 0, 0, 9.5 * 567, 0.6 * 567): txtTextBox.FontSize = 1: txtTextBox.FormatConditions.Add(acFieldValue, acEqual, Chr(34) & "باق" & Chr(34)).BackColor = RGB(169, 169, 169)
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "religion", 0, 0, 1.75 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.BackStyle = 0
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "cass", 1.75 * 567, 0, 1.75 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.BackStyle = 0
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "student_name", 3.5 * 567, 0, 5 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.BackStyle = 0
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acDetail, , "=1", 8.5 * 567, 0, 1 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2: txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.RunningSum = 1: txtTextBox.BackStyle = 0
DoCmd.Save , strReportName
DoCmd.Close
strSql = "SELECT classroom as clssr1, gover, directorate,year, school, headschool, headschools, wakelshtalaba,clasroom.class as clss1  FROM clasroom INNER JOIN tblbasicdata ON clasroom.class = tblbasicdata.class WHERE ((clasroom.class='" & x & "') and (conseq=1));"
If DCount("[Name]", "MSysObjects", "[Name] = 'rpt'") = 1 Then
DoCmd.DeleteObject acReport, "rpt"
End If
Set rptCustomers = CreateReport
    Set mode = rptCustomers.Module
strReportName = "rpt"
varGroupLevel = CreateGroupLevel(rptCustomers.Name, "clssr1", True, True)
With rptCustomers
.RecordSource = strSql
.Section("Detail").Height = 0 * 567
.Report.Width = 19 * 567
.Report.Section(acGroupLevel1Header).Height = 3.6 * 567
.Report.Section(acGroupLevel1Footer).Height = 2.5 * 567
.Section("PageHeadersection").Height = 0 * 567
.Section("Pagefootersection").Height = 0 * 567
.Report.DefaultView = 0
.Report.Orientation = 1
.Report.PopUp = True
.Caption = "كشف بأسماء الطلاب"
End With
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "clss1", 0.5 * 567, 0.2 * 567, 3 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3: txtTextBox.Name = "cls"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 3.5 * 567, 0.2 * 567, 2 * 567, 0.6 * 567): lblLabel.Caption = "الصـــف :": lblLabel.TextAlign = 1: lblLabel.FontSize = 11
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "gover", 14 * 567, 0.2 * 567, 4 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 18 * 567, 0.2 * 567, 1.8 * 567, 0.6 * 567): lblLabel.Caption = "محافظة :": lblLabel.TextAlign = 1: lblLabel.FontSize = 11
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "year", 0.5 * 567, 0.8 * 567, 3 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 3.5 * 567, 0.8 * 567, 2 * 567, 0.6 * 567): lblLabel.Caption = "العام :": lblLabel.TextAlign = 1: lblLabel.FontSize = 11
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "directorate", 14 * 567, 0.8 * 567, 4 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 18 * 567, 0.8 * 567, 1.8 * 567, 0.6 * 567): lblLabel.Caption = "الإدارة :": lblLabel.TextAlign = 1: lblLabel.FontSize = 11
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "school", 14 * 567, 1.4 * 567, 4 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 3
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 18 * 567, 1.4 * 567, 1.8 * 567, 0.6 * 567): lblLabel.Caption = "المدرسـة :": lblLabel.TextAlign = 1: lblLabel.FontSize = 11
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "='صفحة' & [Page] & ' من ' & [Pages]", 9 * 567, 0, 3 * 567, 0.6 * 567): txtTextBox.FontSize = 11: txtTextBox.TextAlign = 2
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 7 * 567, 1.2 * 567, 6.5 * 567, 0.8 * 567)
lblLabel.Caption = "  قائمة بأسماء طلاب فصل : ": lblLabel.TextAlign = 3: lblLabel.FontSize = 14: lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.BackStyle = 1: lblLabel.BackColor = RGB(211, 211, 211): lblLabel.TopMargin = 0.1 * 567
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Header, , "clssr1", 7.5 * 567, 1.3 * 567, 1.5 * 567, 0.6 * 567):  txtTextBox.BackColor = RGB(211, 211, 211): txtTextBox.FontSize = 14: txtTextBox.TextAlign = 2: txtTextBox.Name = "clsr"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 0 * 567, 2.2 * 567, 1.75 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "الديانة"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 1.75 * 567, 2.2 * 567, 1.75 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "الحالة"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 3.5 * 567, 2.2 * 567, 5 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "الاســـــم"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 8.5 * 567, 2.2 * 567, 1 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "م"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 9.5 * 567, 2.2 * 567, 1.75 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "الديانة"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 11.25 * 567, 2.2 * 567, 1.75 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "الحالة"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 13 * 567, 2.2 * 567, 5 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "الاســـــم"
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Header, , , 18 * 567, 2.2 * 567, 1 * 567, 0.7 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 12: lblLabel.Caption = "م"
Set srpt = CreateReportControl(rptCustomers.Name, acSubform, acGroupLevel1Header, , "", 0, 2.9 * 567, 9.5 * 567, 0.7 * 567): srpt.LinkChildFields = "clss;clssr": srpt.LinkMasterFields = "clss1;clssr1"
srpt.SourceObject = "rpt1"
Set srpt = CreateReportControl(rptCustomers.Name, acSubform, acGroupLevel1Header, , "", 9.5 * 567, 2.9 * 567, 9.5 * 567, 0.7 * 567): srpt.LinkChildFields = "clss;clssr": srpt.LinkMasterFields = "clss1;clssr1"
srpt.SourceObject = "rpt2"
For ii = 4 To 6
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Footer, , , (7 * 567) + ((ii - 4) * 2 * 567), 0.2 * 567, 2 * 567, 0.5 * 567): lblLabel.BorderStyle = 1: lblLabel.BorderWidth = 1: lblLabel.TextAlign = 2: lblLabel.FontSize = 11
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Footer, , , (7 * 567) + ((ii - 4) * 2 * 567), 0.7 * 567, 2 * 567, 0.5 * 567): txtTextBox.BorderStyle = 1: txtTextBox.BorderWidth = 1: txtTextBox.TextAlign = 2: txtTextBox.FontSize = 11
If ii = 4 Then: lblLabel.Caption = "الجملة": txtTextBox.ControlSource = "=[rel_moslm]+[rel_ch]"
If ii = 5 Then: lblLabel.Caption = "مسيحي": txtTextBox.ControlSource = "=dcount('count','basicdata','count=[cls]&[clsr]&[t_ch]')": txtTextBox.Name = "rel_ch"
If ii = 6 Then: lblLabel.Caption = "مسلم": txtTextBox.ControlSource = "=dcount('count','basicdata','count=[cls]&[clsr]&[t_moslm]')": txtTextBox.Name = "rel_moslm"
Next
For ii = 0 To 1
Set lblLabel = CreateReportControl(rptCustomers.Name, acLabel, acGroupLevel1Footer, , , (4 * 567) + (ii * 9 * 567), 1.5 * 567, 3 * 567, 0.5 * 567)
Set txtTextBox = CreateReportControl(rptCustomers.Name, acTextBox, acGroupLevel1Footer, , , (4 * 567) + (ii * 9 * 567), 2 * 567, 3 * 567, 0.5 * 567)
If ii = 0 Then: lblLabel.Caption = "مدير إدارة المدارس": lblLabel.TextAlign = 2: lblLabel.FontSize = 11
If ii = 1 Then: lblLabel.Caption = "وكيل شئون الطلبة": lblLabel.TextAlign = 2: lblLabel.FontSize = 11
If ii = 0 Then: txtTextBox.ControlSource = "headschools": txtTextBox.TextAlign = 2: txtTextBox.FontSize = 11
If ii = 1 Then: txtTextBox.ControlSource = "wakelshtalaba": txtTextBox.TextAlign = 2: txtTextBox.FontSize = 11
Next
DoCmd.Save , strReportName
DoCmd.Close
DoCmd.OpenReport "rpt", acViewPreview
Reports("rpt").Printer.Orientation = acPRORPortrait
Reports("rpt").Printer.TopMargin = 0.5 * 567
Reports("rpt").Printer.LeftMargin = 0.5 * 567
Reports("rpt").Printer.RightMargin = 0.5 * 567
Reports("rpt").Printer.PaperSize = acPRPSA4
DoCmd.Maximize

End If
End Function

 

[محمدفتاح]

السلام عليكم اولا جزاكم الله خيرا

ثانيا حل هذه الرسالة هو فتح اي تقرير في وضع التصميم ومن شريط العناوين نقوم باغلاق التجميع والفرز واغلاق التقرير مع الحفظ في هذه الحالة عند استخدام الكود لا تظهر هذه الرسالة مرة اخري 

[jjafferr]

السلام عليكم 🙂

لماذا عملت التقرير بالكود ؟

احد المبرمجين كان يعمل بلغات البرمجة الاخرى ، والتي كان يجب عليه عمل اي شيء بالكود ، فكان يعمل نماذج الاكسس بالكود ، بينما الاكسس يعمل لك الكائنات بأسبط ما يكون ، فرجاء اترك الكود واعمل التقرير بطريقة الاكسس ، ونحن نساعدك 🙂

 

انت وضعت التقارير الفرعية في القسم الغلط ، يجب ان تكون في قسم "Detail" كما في الصورة :

.

والنتيجة:

.

في المرفق ، افتح التقرير rpt مباشرة 🙂

 

جعفر

1524.SubReports.accdb.zip