Foksh

هذا من طيب أصلك أخي @حامل المسك . تم اضافة اللازم والتعديل المطلوب حسب ما توضح لي في حدث النقر المزدوج لـ FileList ، تفضل باستبداله بالتعديل التالي :- On Error Resume Next Dim folderPath As String folderPath = CurrentProject.Path & "\All\" & Me.namefolderx.Value & "\" If Me.FileList.ListIndex >= 0 Then Dim selectedFileName As String selectedFileName = Me.FileList.Column(0, Me.FileList.ListIndex) Dim fullPath As String fullPath = folderPath & selectedFileName FollowHyperlink fullPath End If انت تدخل الموضوع عرض وتخمس كمان أستاذنا @Moosak . وتتحفنا أيضاً بما في جعبتك

أخي @حامل المسك ، أعتذر على التأخير ، تفضل المرفق بدون تحديد مسار المجلد الرئيسي بشكل يدوي ، على أن تكون المجلدات الفرعية داخل مجلد All مثال أكسس.zip

جزانا الله واياكم كل خير.. 🤗 هل تم حل المشكلة أخي العزيز @سامر محمود ؟

تفقد المكتبات أخي الكريم

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

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

أخي @HaniMoursi لضيق الوقت في العمل ، تأكد بداية من المجاميع ان كانت صحيحة وأخبرني ، للمتابعة بأقرب فرصة . قيمه (1).accdb

تفضل أخي @سامر محمود . أولا تم اضافة استعلام تحديث بسيط ، وتمت بعض التعديلات . Investi.accdb

في الواقع لم أقم بالتأكد من المجموع ، ولكني اكتشفت انني لم اقم بتعديل التاريخ في الاستعلام أثناء التجارب ، تم التعديل ، تفضل 🥰 وأتمنى ان تتأكد من النتيجة ، وأخبرنا إن كان هناك ملاحظات. قيمه.accdb

اخي @سامر محمود انشىء قاعدة بيانات جديدة وقم باستيراد المكونات الى القاعدة الجديدة ، مع اضافة المكتبات في محرر VBA وإن شاء الله ستعمل معك بشكل طبيعي 😊 متابع معك 😊

يسعدني كلامك 🤗 لا تنسَ إغلاق الموضوع باختيار أفضل إجابة 😀

ظنك في محله يا صديقي ، ولكن ما رأيك لو جعلنا المجلدات الفرعية التي تريد عرض محتوياتها ان تكون داخل مجلد واحد رئيسي بجانب قاعدة بيانات ؟؟ او حدد لي فكرتك وإن شاء الله بتتنفذ.

أخي الكريم غير المسار الرئيسي فقط . حيث أن هذا المسار "C:\Users\Golden\Desktop\مثال أكسس\" هو مسار المجلد في جهازي ، فقط استبدله بمسار المجلد في جهازك .,

تفضل أخي التعديل بسيط ، ولكن حسب طلبك مثال أكسس.zip

أخي الكريم @Bshar .. في الحالتين سيتم فتح سجل جديد عند Yes أو No ، لذا انقل مكان السطر المسؤول عن فتح سجل جديد لما قبل فتح MS4 On Error Resume Next If [Forms]![recept_a_q]![w1]![n3] <> 0 Then DoCmd.OpenForm "ms3" Me.Undo Else DoCmd.GoToRecord , , acNewRec DoCmd.OpenForm "ms4" Me.mtzn = 1 Me.save = 1 Msg = " ؟ هل تريد طباعة القيد" Style = vbYesNo Title = "رسالة تنبيه" result = MsgBox(Msg, Style, Title) If result = vbYes Then DoCmd.OpenReport "recept_qaid", acViewPreview Else Me.mtzn = 1 Me.save = 1 DoCmd.GoToRecord , , acNewRec End If End If End Sub

وهذه أيضاً مشاركة مع الأستاذ @محمد احمد لطفى Dim reportName As String Dim message As String Dim response As VbMsgBoxResult reportName = Application.CurrentObjectName message = "? " & reportName & " هل ترغب في طباعة ألتقرير " response = MsgBox(message, vbQuestion + vbYesNo, "سؤال") If response = vbYes Then MsgBox "سيتم طباعة التقرير" Else MsgBox "لم يتم طباعة التقرير" End If

تفضل اخي الكريم ، إذا كان الذي فهمته صحيح قيمه.accdb

تفضل أخي ، هذه طريقتين لعرض المحتوى مثال أكسس.zip

يسعدني مرورك الكريم أخونا @jo_2010

مرورك الاروع صديقي العزيز 🥰

صديقي العزيز أستاذ عمر ، 🥰 أجمعين يا رب العالمين 🤲 يسعدني ويشرفني مرورك 🤗

أشكرك مرورك وتعليقك اللطيف أخونا @gamal gamal

جرب هذا الإتجاه في الحل ، أعتقد أفضل من فكرة أن تجعل جميع القيم في التنسيق الشرطي ( من وجهة نظري ) tamer.accdb

زي كده !! New Microsoft Access Database (2).accdb

يسعدني ويشرفني مرورك العطر 🥰