نجوم المشاركات

وعليكم السلام ورحمة الله 🙂 باستخدام هذه الأداة : Private Sub cmdPrint_Click() On Error GoTo Err_cmdPrint_Click Dim Index3 As Variant Dim repName As String Dim ftrName As String ' Declare ftrName, assuming it's a String for the filter argument. ' Check if any items are selected from the listbox. If L3.ItemsSelected.Count = 0 Then MsgBox "لا يوجد مطبوغات قد تم اختيارها", vbInformation + vbMsgBoxRight, "تنبيه " Exit Sub End If ' Loop through each selected item and open the corresponding report. For Each Index3 In L3.ItemsSelected repName = L3.ItemData(Index3) repName = "تقرير_" & repName DoCmd.OpenReport repName, acViewNormal, , ftrName Next Index3 Exit_cmdPrint_Click: Exit Sub Err_cmdPrint_Click: MsgBox Err.Description Resume Exit_cmdPrint_Click End Sub مع اختيار : والتعليمات نفس رسالتك مع تغيير بسيط : الكود التالى يعمل بدون مشاكل ولكن هناك سطور مكررة متداخلة به يرجى ضبط بناء الكود لاختصاره وتحسينه

كلام صحيح 100%

طالما وهذا الحل يناسبك خلاص مافي مشكلة بس تعمل حسابك إن الرابط هيضل ثابت ماراح يتغير لو حصل أي تغيير في موقع الهدف

السلام عليكم بارك الله فيك أستاذنا الفاضل

Foksh اخوي جزاك الله خير الحمد الله انحلت وهي عن طريق الماوس واختار الرابط

تمام فعلا لدي القاعدة الاصلية سؤالي هل يمكن اضافة هذه الاكواد للقاعدة الاصلية حاليا وجزاكم الله خيرا

اليك التعديل Plateform (1).xlsb

الشرح غير موجود

تم تعريفه كـ String فارغ مما يعني فتح التقرير بدون أي فلتر (كل البيانات) وظيفته: DoCmd.OpenReport repName, acViewNormal, , ftrName WhereCondition — شرط SQL لتصفية البيانات أمثلة عملية: فتح التقرير بدون فلتر (كل البيانات) ftrName = "" فلترة بمدينة معينة ftrName = "City = 'Cairo'" فلترة بتاريخ ftrName = "OrderDate = #" & Date & "#" فلترة بـ ID من النموذج ftrName = "CustomerID = " & Me.txtCustomerID في هذا الكود تحديدا ftrName معرف لكنه فارغ >>--> يعني التقرير يفتح بكل البيانات بدون تصفية إذا كنت تريد تصفية التقارير قم بوضعه باسناد البيانات التى تريدها الى المتغير حسب نوع البيانات قبل الحلقة: استخدم احد الفلاتر التى قمت بشرحها لك سابقا كأمثلة عملية قبل الحلقة مباشرة

سؤالك جميل وفي محله 👏🏻

انا عملت حسب طلب السائل ... ولكن هل تقصد .... كما بالشرح التالي :-

جميل جداً .. شكراً لك على هذه المعلومة انا فعلاً وجدت في جوجل الموقع ده ، والرابط للخدمة :- https://www.everythingaccess.com/mdeconversion.asp أما موضوع اثبات الملكية ، يعني لازم أحلف لهم يمين مثلاً هههههههه ولا إيه بالضبط

معلومة جديدة علي .. هل لك أن توضحها لي اكثر أستاذي الفاضل * ما معنى "النمط"؟ النمط هو شكل عام (Template) تضعه لتصف نوع النص الذي تبحث عنه. بدل ما تقول "أريد كلمة اسمها بالضبط Ali"، تقول: "أريد أي كلمة تبدأ بـ A وتنتهي بـ i". هنا تدخل الرموز الخاصة (Wildcards) لتسمح بالمرونة. * الرموز (Wildcards) بالتفصيل *: أي عدد من الأحرف (حتى لو صفر). "A*" يطابق "Ali", "Ahmed", "A". ?: حرف واحد فقط. "A?i" يطابق "Ali" و"Ami" لكن لا يطابق "Azii". #: رقم واحد فقط (0–9). "##" يطابق "12" أو "45". [ ]: مجموعة أحرف مسموحة. "A[bc]d" يطابق "Abd" أو "Acd". [! ]: نفي المجموعة. "A[!0-9]*" يطابق أي نص يبدأ بـ A ولا يليه رقم. * مثال عملي في Access SQL SELECT * FROM Employees WHERE Name LIKE "M*"; هذا يسترجع كل الموظفين الذين تبدأ أسماؤهم بحرف M. * مثال عملي في VBA Dim txt As String txt = "Mahdi" If txt Like "M*" Then MsgBox "النص يبدأ بحرف M" End If If txt Like "*di" Then MsgBox "النص ينتهي بـ di" End If If txt Like "?????" Then MsgBox "النص مكون من 5 أحرف بالضبط" End If * الفكرة الجوهرية أنت لا تبحث عن تطابق كامل، بل عن تطابق مع شكل عام. النمط هو "قالب" يصف ما تريده، والـ Wildcards هي الأدوات التي تجعل القالب مرنًا واليك خريطة ذهنية

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

* وظيفة LIKE تستخدم لمقارنة النصوص مع نمط (Pattern) معيّن. النمط يحتوي على رموز خاصة (Wildcards) تسمح بالبحث الجزئي أو المرن داخل النصوص. * أمثلة عملية في VBA Dim txt As String txt = "Mahdi" ' مثال 1: البحث عن نص يبدأ بـ "M" If txt Like "M*" Then MsgBox "يبدأ بحرف M" End If ' مثال 2: نص مكون من 5 أحرف بالضبط If txt Like "?????" Then MsgBox "النص يحتوي على 5 أحرف" End If ' مثال 3: نص ينتهي بـ "di" If txt Like "*di" Then MsgBox "ينتهي بـ di" End If ' مثال 4: نص يحتوي على رقمين متتاليين Dim code As String code = "AB12" If code Like "*##" Then MsgBox "ينتهي برقمين" End If

أعجز عن وصف شعوري بهذا الكلام من أستاذ كبير مثلك 🥰

بارك الله فيك وفي تعبك ومجهودك العظيم 🌹🌹🌹

اخي العزيز @محب العقيدة من خلال إطلاعي على ماجاء في المحادثة فإن الطريقة التي يعتمدها هي وهذا معناه شيئين اولاً الإعتماد على حقول نوع OLE أو Attachment لحفظ البيانات وهذا سيؤدي إلى تضخم حجم قاعدة البيانات بصورة كبيرة حتى ولو لم تحتوي إلا على بيانات قليلة ثانيا بهذه الطريقة سنفرغ قاعدة البيانات من مفهومها الرئيسي وهو الترميز والعلاقات لضمان تنظيم البيانات عدم تكرار البيانات الغير ضرورية فالذي يتم هنا هو أنه يتم أخذ بيانات السجل وتقسيمها إلى أجزاء وحفظها كـ xml دون مراعاة لقواعد التحقق من صحة البيانات وتكرارها بالإضافة إلى كل ماسبق فإن آلية العمل مشكوك فيها فإذا كنت قد شغلت الإجراء Test مرة وأفادني بالفعل أنه تم حفظ الكميات 8. المخزون الحالي: - أرز: 80 كيس - سكر: 50 كيس فيفترض أنه اصبح لدي بالفعل صنف بإسم أرز وصنف بإسم سكر الآن لو قمت بحذف أو تعليق الاسطر الخاصة بإنشاء الأصناف وهي ' 2. إضافة مواد Debug.Print "2. إضافة مواد جديدة..." itemID1 = itemsMgr.AddItem("أرز", "RICE001", "كيس", 10, 50, "أرز هندي") If itemID1 > 0 Then Debug.Print " ? تمت إضافة: أرز - ID: " & itemID1 End If itemID2 = itemsMgr.AddItem("سكر", "SUGAR001", "كيس", 5, 45, "سكر أبيض") If itemID2 > 0 Then Debug.Print " ? تمت إضافة: سكر - ID: " & itemID2 End If Debug.Print "" ' 3. حفظ المواد Debug.Print "3. حفظ المواد..." If itemsMgr.Save Then Debug.Print " ? تم حفظ المواد بنجاح" End If Debug.Print "" وقمت بتعديل الكميات في إجراءات الاضافة والتنزيل (او حتى بدون تعديلات) ستظهر لي الرسالة التالية وهذا معناه أنه قد نسي أنه تم حفظ الصنفين هذه هي ملاحظاتي السريعة على ماجاء في مشاركتك ان شاء الله تكون ملاحظات مفيدة تحياتي

الجملة التي كنت أود سماعها .. وبالتالي كما أخبرك أخي المهندس محمد بأنه لا يمكنك تعديل اكواد القاعدة الأصلية MDE ، وبالتالي عليك التعديل والتحديث على القاعدة المفتوحة المصدر ومن ثم إعادة إقفالها مرة أخرى وحماية مشروعك .