عمر ضاحى

النسخه 32 لا تعمل على 64 بت

الشكر لله واشكر اساتذتى الكرام حفظهم الله لهم الفضل بعد الله فى تعليمي لهم جزيل الشكر

الملف يعمل جيدا معي لكن جرب هذا التعديل Documents.rar

هل هذا المطلوب ؟ ملاحظه : قمت بتغير نوع البيانات (القرار) من مرفق الى نعم/لا Documents.rar

حبيت اراجع الكود واشوف حل له قمت بتعديل الكود فى بعض النقاط من .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

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

الف الف مبروك ومن تقدم الى تقدم

هل هذا ما تريد ؟ Database1.accdb

كان نفسي اقدم لك المساعده اذا كان فى امكاني لكن انا لسه قدامي الكثير والكثير لاتعلمه ومن بعد ما شوفت المجهود الكبير فى شجرة الحساب (مازلت احاول ان اتعلمها حتى الان لكن بسبب ظروف كثيره معي معطلانى عن التعلم)\ ومن ثم اريد ان اطلب منك اذا كان ممكن هذا ان تعمل مواضيع تشرح فيها شجرة الحساب (كيف برمجتها ... الخ) حتى يمكن لمثلى ان يتعلم وهتلاقى الكثير الذى يبحث عن مثل هذه المواضيع ولك كل الشكر

انت عندك مشكلة فى الجداول وبسببها هتعملك مشكلة فى اي استعلام انت عاوزه اول مشكله انك مش معرف المفاتيح الاساسية للجدول مثل رقم الطالب (هذا الرقم لا يمكن ان يتكرر وهى الركيزه التى تبنى عليها باقى البيانات) انا ملاحظ فى جدول الدرجات هناك صف sub1 sub2 ..... ما فائده هذا الصف ؟ وانت محتاج تبنى علاقه بين الجدول الاول والثاني (علاقة رأس باطراف) انا حاسس ان فى حاجه غلط فى تركيبة الدرجات وشكل البيانات هذه محاوله (فاشله) مش متأكد لكن اترك الموضوع لاهل الخبره فى توجيهك New Microsoft Access Database.accdb

متابع فى صمت (يفضل ارفاق مثال حتى يستطيع الاساتذه هنا مساعدتك)

اذا كان ملفات ال PDF داخل مجلد اسمه PDF كل ما عليك هتضيف اسم المجلد فى مسار الملف pdfPath = CurrentProject.Path & "\" & "PDF" & "\" & List1.Column(1) & ".pdf"

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

اذا كان ما تقصده ربط الاكسيس بجهاز الكاميرا هو ما تريده فللاسف ليس لدي خبره فى هذه النقطه فممكن تنتظر المساعده من اساتذتى الكرام ( حفظهم الله ) اذا كان هذا ممكنا وكيف الوسيله @jjafferr @ابو جودي@Moosak او من يكن عنده خبره

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

ممكن توضح لى ايه علاقة الجداول الاربعه ببعض؟ وايضا انت عاوز تعمل ايه بالظبط

اعذرني مش قادر افهم طلبك تعديل ايه انت عاوزه ؟

بالنسبه لهذه الجذئية هل هذا ما تريده مرفق ملف بالنسبه لهذا يمكنك البحث فى المنتدي ستجد الكثير منها الطلبة الخريجين.rar

هل هذا ما تريد مرفق الشكل النهائى try1.rar

فى حاجه اسمها استعلام جدولى ممكن تجرب تعمله وتضع فى الصف او العمود الذى تريد منع التكرار فيه معيار (مع انى اعتقد انه مش هيكرر لان الاسماء المتشابهه بيتم جمعها معا والله اعلم (انا لم اجرب عمل هذا الاستعلام حتى افيدك اكثر من كده) لكن يمكنك البحث فى المنتدي وهتلاقي الكثير ان شاء الله

ارفق مثال للعمل عليه

حسب ما فهمت منك ان هناك جدول باسم ( جدول11 ) هذا الجدول مصدر المستويات ولاحظت ان فى الجدول الرئيسي ( Eleve ) يوجد به حقلين مشتركين فى نفس الاسم بين الجدولين وهم ( القسم والمستوي ) اذا المشكله معك ما هى غير تنظيم وبناء علاقه بين الجولين وتتحل المشكله والحل 1- حذف حقل المستوي من الجدول الرئيسي لانه ليه فائده بعد بناء العلاقه 2- اعادة تسمية حقل القسم فى (جدول11) حتى لا يتعارضه اسمه مع الجدول الاخر (واى حقل فيه تشابه بالاسماء) وايضا لتمييز الاسم بين الجداول 3- بناء علاقه بين الفوج فى جدول11 و السنه فى Eleve 4- عمل استعلام وهذه النتيجه اخبرني اذا كانت هناك مشكله 30.rar

اعتذرنى يعنى انت عاوز رقم المستوي يظهر فين ؟ اين مصدر هذا المستوي ؟

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

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