عمر ضاحى

عند مفتاح للأسفل وتخلى مفتاح المعاينه نعم

بص انا معنديش حل لكن عندي فكره وعليك انت تجرب خلينا نتفق ان Ctrl+A بيحدد النص داخل الحقل (وغالبا لا يعمل ايضا) فانت ممكن تعمل ايه اول هتعمل حدث عن الضغط على المفتاح لاسفل وهتستخدم دالة Select Case وبداخلها هتعمل لوب او اى دالة مشابهه علشان تعمل تحديد للسجلات طبعا التحديد هيكون عن طريق اضافة حقل جديد قيمته نعم/لا علشان نحدد عن طريقه وهذا لتقريب المثل Select Case KeyCode & vbKeyControl Case 65 & 17 MsgBox "111111111" End Select طبعا انت هتستبدل كود الرساله باللوب او باى كود انت عاوزه ملاحظه رقم 65 تدل على حرف A رقم 17 تدل على مفتاح Ctrl واترك الباقى لك او لاساتذتى الكرام اذا كان هناك حل اخر افضل

طيب ما تجرب تعيد تسمية جداول احد القاعدتين ( باضافة حرف او رقم ) وتعمل ربط للقاعدتين معا وتشتغل عليهم دائما

اما بخصوص النقطه الثانيه ( لا اعرف لها حل ولم اجربها لكن اقدم لك اقتراح قد ينفع او يفشل) ممكن تستخدم دالة Select Case و دالة Replace اذا كان الحرف ى يقوم باستبداله بالحرف ي وهذا اقتراح لا اعرف اذا كان هينفع ام لا

بالنسبه للنقطه رقم 1 ممكن تعدل كود البحث باستخدام دالة len If IsNull(Me.searchtext) Or Me.searchtext = "*" Then MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub ElseIf Len(searchtext) < 3 Then MsgBox "عدد الاحرف المكتوبة اقل من 3 احرف": Exit Sub ElseIf Len(searchtext) >= 3 Then a1.Visible = True a2.Visible = True a3.Visible = True a4.Visible = True sq1 = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area] FROM [On air 4G info sites] WHERE ((([On air 4G info sites].[Coverage Area]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));" Me.RecordSource = sq1 End If

هذا الخطأ طبيعي لان فى الاصل لازم تدخل بيانات فى النموذج الرئيسي (الجدول الرئيسي) ثم تقوم بادخال البيانات فى النموذج الفرعي لان النموذج الفرعي مرتبط بسجل فى النموذج الرئيسي واذا لم يتواجد هذا السجل كيف سيتم ارتباط السجلات ؟ لذا ممكن تعمل حدث قبل الادراج وتدخل هذا الكود If IsNull([Forms]![Cashers]![Custom]) Or [Forms]![Cashers]![Custom] = "" Then MsgBox "برجاء ادخل اولا اسم الزبون", 0, "" DoCmd.CancelEvent End If مرفق Resturant Pro.rar

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

هذا هو المطلوب بارك الله فيك

هذا ملف للتجربه عليه For Test.rar هناك ايضا ملاحظه انه اذا توافق التاريخ (اى كان هناك تاريخ موجود لا يحدث خطأ لكن اذا كان لا يحدث الخطأ

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

السلام عليكم ورحمة الله وبركاته معي كود استعلام المطلوب انه بعد اضافة التاريخ الخاص بالفاتورة يبحث اذا كان قد سبق اضافة هذه الفاتورة (رقم الفاتورة وتاريخ الفاتورة متطابقين) يظهر لى رساله جربت اعملها بهذا الشكل Dim invNoCh As String Dim invDateCh As Date invNoCh = DLookup("[InvNo]", "[TblBPCash]", "[InvNo] ='" & [Forms]![frmAddPatyCash]![SubfrmPatyCash]![txtInvNo] & "'") invDateCh = DLookup("[InvDate]", "[TblBPCash]", "[InvDate] =#" & [Forms]![frmAddPatyCash]![SubfrmPatyCash]![txtInvDate] & "# And [InvNo] ='" & [Forms]![frmAddPatyCash]![SubfrmPatyCash]![txtInvNo] & "' ") Debug.Print invNoCh Debug.Print invDateCh If txtInvNo = invNoCh And txtInvDate = invDateCh Then MsgBox "هذه الفاتورة موجوده قبل سابق", 0, "" txtInvNo = "" End If لكن بيظهر لى خطأ فى دالة التاريخ invDateCh ومش عارف فين الغلط

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

بعد ما فتحت الملف الان وشوفت الجداول بص التعديل ده اول شئ جدول الاصناف هنسجل الاصناف عادي فيه ولما تعمل فاتورة بيع او شراء انت بتاخد كود الصنف مش اسم الصنف انظر المرفق بعد التعديل Database1.accdb

ارفق ملف كمثال حتى يتمكن الاساتذه الكرام من اجابتك بشكل صحيح

النسخه 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