Foksh

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

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

اخي @أمير ادم قبل المتابعة معك ، لي مناقشة وعدة نقاط للإتفاق عليها . 1. حاول اختصار مسميات الجداول والنماذج والاستعلامات لتسهيل الأمور عليك. 2. لاحظت انك اعتمدت على الترقيم التلقائي لربط العلاقات بين الجداول في مشروعك وبالنسبة لي لا أعتقد أنها فكرة جيدة في المستقبل ، حاول اعتماد ترقيم خاص بالحركة و تكويد الاصناف .... إلخ والربط بينها بشكل صحيح في العلاقات . الآن بعد اجراء بعض التعديلات على ملفك ، إن كان ما قمت به صحيح سنتابع بناءً عليه في هذا المرفق ( TESTBOM.accdb ) . قم باختيار كود المنتج عصير مانجو مثلاً ، ثم قم بالتغيير لأي منتج آخر لنرى صحة العمل. وحاول أعانك الله إدراج تركيبة لمنتجات أخرى لتتوسع الفكرة وتتضح أكثر

في الجدول Tastudent3 في وضع التصميم ، من خصائص الجدول ، في الخانة Order By ستجد ان الحدول يحتوي اكثر من طريقة للفرز ، فقط احذف الموجود واترك [Tastudent3].[ID] أيضاً تم الفرز في الاستعلام في الحقل ID محمد.accdb وجهة نظري 😊

جميلة الفكرة ، شكراً على الهدية 🤗

هل جميع الحقول تم تعبئتها ؟ والأهم من ذلك هو تثبيت الاعدادات ( تصنيف الموظفين )

أعتقد عليك التأكد من الاستعلام واسم الجدول بدايةً اذا الاستعلام غير موجود .. جرب التعديل على الجزء التالي لإنشاء استعلام جديد من خلال الكود Private Sub runQueryBtn_Click() Dim dbObj As DAO.Database Dim qdObj As DAO.QueryDef If Me.tablenamecombo.ListIndex = -1 Then MsgBox "Table Name needs to be selected, before continuing.", vbCritical Exit Sub End If Set dbObj = CurrentDb() Set qdObj = dbObj.CreateQueryDef("", "") qdObj.SQL = "SELECT * FROM [" & Me.tablenamecombo & "];" qdObj.Execute dbFailOnError qdObj.Close Set qdObj = Nothing Set dbObj = Nothing End Sub وفي كل الأحوال ، حاول ارفاق مرفق للتطبيق عليه 😊

أخي @moustafa2004 هل هذا الاستعلام موجود فعلاً ، أم أنك تحاول إنشاء استعلام جديد ؟ 😊

جزاك الله كل الخير 🤗 ولك من الدعاء نصيب أكبر 🤲

احمد الله اني لا ولم ولن استخدم استعلامات التوحيد في مشاريعي 😅

كتوضيح للأخوة والأساتذة :- أعتقد أن الأستاذ @عبد اللطيف سلوم بنا موضوعه هذا بناءً على هذه المشاركة في موضوع آخر 🤔

كلامك سليم 10000% ، لأني استخدمتها في مشروعي حضور وانصراف الموظفين في كومبوبوكس عند حدث ليس في القائمة Response = acDataErrContinue

لكني الآن خرجت من العمل أخي @SAROOK ، إن كان في العمر بقية إن شاء الله ليوم غد

هذا لأنه مكون من أكثر من استعلام ، وفي طريقة عرض التصميم كيف تستطيع عرض أكثر من استعلام بنفس الوقت ؟؟ لكن أعتقد أنك تستطيع نسخ أي كود SQL لأستعلام والذهاب إلى انشاء استعلام جديد وفي وضع الـ SQL الصق الاستعلام الذي تريده ومن ثم اعرضه في وضع عرض التصميم اختلف معك اخي @kkhalifa1960 . هذا استعلام توحيد في هذه المشاركة غير مبني على وجود استعلامات أخرى موجودة في هذه المشاركة .

أخي الكريم moustafa2004 هذا الموضوع آخر مشاركة له قبل سنتين . أرجو أن تقوم بفتح موضوع جديد لطلبك .

هل هذا طلبك ؟ افتح التقرير Foksh وإن كان طلبك أخبرني قبل خروجي من العمل . Stu (1).accdb

أخي الكريم @SAROOK ، أين التكرار الذي تتحدث عنه ، راجع الفيديو في المرفقات لتتأكد . أما موضوع التقرير الواحد لكل سنة ، فتفضل ( Stu (1).zip ) 20240411_210938.zip

أخي @ازهر عبد العزيز ، لاحظ أن الموضوع قد تشعب لأكثر من سؤال . على العموم ضع هذا الكود في زر ، إذا كان المجلد فارغ سيتم حذفه بدون رسالة . أما اذا كان المجلد غير فارغ فسيتم التنبيه بأن المجلد غير فارغ قبل الاستمرار بالحذف . Dim FolderA As String Dim FolderPath As String FolderA = BookName.Value FolderPath = CurrentProject.Path & "\Library1\BOOKS\" & FolderA If Len(Dir(FolderPath, vbDirectory)) > 0 Then If Dir(FolderPath & "\", vbNormal) <> "" Then Dim Response As VbMsgBoxResult Response = MsgBox("هل ترغب في حذف المجلد ومحتوياته؟", vbQuestion + vbYesNo) If Response = vbYes Then Kill FolderPath & "\*.*" RmDir FolderPath End If Else RmDir FolderPath End If Else MsgBox "المجلد غير موجود", vbExclamation End If

إلا أن الفكرة هي بالرد العائد من آكسيس بأن القيمة موجودة في الجدول

بناء على استعلامات أخي @عبد اللطيف سلوم ، فكرتك كانت في 3 استعلامات منفصلة ، وخطر ببالي استعلام توحيدي واحد يجمعهم معاً لتحقيق الهدف . SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours1 AS cours_name, hol.yearcours1 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours1 Is Not Null UNION ALL SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours2 AS cours_name, hol.yearcours2 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours2 Is Not Null UNION ALL SELECT emp.[no], emp.[full-name], hol.[year-study], hol.namecours3 AS cours_name, hol.yearcours3 AS cours_year FROM emp INNER JOIN hol ON emp.[no] = hol.[no] WHERE hol.yearcours3 Is Not Null;

أخي لو لم تتم التجربة لما ارفقت الملف لك تفضل ، Dim FolderA As String FolderA = BookName.Value If Len(Dir(CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA, vbDirectory)) > 0 Then Shell "explorer.exe """ & CurrentProject.Path & "\Libraries\Library1\BOOKS\" & FolderA & """", vbNormalFocus Else MsgBox "المجلد غير موجود", vbExclamation End If ضع هذا الكود في أي زر أو حدث تريده

وهذه مشاركتي مع الأستاذ @عبد اللطيف سلوم . تم بناء استعلام توحيد وبناءً ، وتم بناء التقريرين عليه . الأول حسب المدرس ، والثاني حسب السنة Stu.accdb

متابعة الأستاذ @محمد احمد لطفى مشكورة 🥰 . الفرق انه مشاركة الأستاذ محمد للإستخدام داخل النموذج الحالي ، ومشاركتي قابلة للإستخدام في أي نموذج دون تكرار في أي نموذج للأكواد . واختر ما يناسبك .

في كلمة فيديو اخي الكريم 😁 و أيضاً تفضل https://www.mediafire.com/file/0wkox54o9b53q9e/ISO_Craft.mp4/file

😅 حاااضر ، تفضل هذا الملف مع التعديل بناءً على طلبك . CreateFolder.accdb