عمر ضاحى

بالنسبه للنقطه رقم 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

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

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

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

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