اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

محمدفتاح

بواسطه محمدفتاح
في قسم الأكسيس Access

 مشاركة

الردود الموصى بها

محمدفتاح

محمدفتاح

قام بنشر
قام بنشر

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

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

رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
قام بنشر

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

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

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

رابط هذا التعليق
شارك
محمدفتاح

محمدفتاح

قام بنشر
  • الكاتب
قام بنشر

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

رابط هذا التعليق
شارك
محمدفتاح

محمدفتاح

قام بنشر
  • الكاتب
قام بنشر

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

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

Database1.rar

رابط هذا التعليق
شارك
عمر ضاحى

عمر ضاحى

قام بنشر
قام بنشر
في 9‏/9‏/2022 at 14:21, محمدفتاح said:

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

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

Database1.rar 83.83 kB · 6 downloads

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

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

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

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

 

MrMe4bq.png

 

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

  

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

jjafferr

قام بنشر
قام بنشر

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

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

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

 

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

image.png.77eabc85a0e2dcd0667f09dbc20fe0b5.png

.

والنتيجة:

image.png.3967c9b92cb385b37032ed9b77f99fc3.png

.

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

 

جعفر

1524.SubReports.accdb.zip

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept