Foksh

هل لديك برنامج Acrobat Reader ؟؟

اخي الكريم ، المشكلة الأولى لم ألحظ وجودها ، فقط عليك ادراج البيانات في جميع الحقول في النماذج الفرعية. المشكلة الثانية حسب ما فهمت هو بسبب الربط بين النموذج الرئيسي والفرعي الأول. جرب هذا التعديل للمشكلة الثانية Database2 (1).accdb

تفضل اخي الكريم . 12345.accdb

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

Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull(Me.P_Odate) Then MsgBox "الرجاء إدخال تاريخ البدء", vbExclamation, "" Cancel = True ElseIf IsNull(Me.exbict) Then MsgBox "الرجاء إدخال تاريخ الانتهاء", vbExclamation, "" Cancel = True End If End Sub

يوجد جملة شرطية ليس لها نهاية بتوضيح أكثر ، عندك كود If ولم يتم إنهاء حدوده بالعبارة End If

تم تحديث ملفات الروابط وإصلاح بعض الأخطاء ، والتعديل لبعض الملاحظات ...... ما زلنا قيد التطوير

مشاركة مع أستاذي الكبير @ابوخليل ، تفضل أخي الكريم @moho58 ، مشاركتي المتواضعة baseF.accdb

لا اعتقد اني فهمتك بشكل صحيح ولكن جرب التعديل التالي . Datab.accdb

محاولة مني جرب هذا الكود تعديلا على مشاركتك الأولى . strSQL = "UPDATE Test SET crn = '" & cityCode & "' & LEFT(crn, LEN(crn)-2) & '00';" DoCmd.RunSQL strSQL

عندك شرط Is Null في الاستعلام مصدر بيانات التقرير . وعدي الجملة في الايتعلام ألى التالي :- <> "Approved" and <> "Closed"

🤗

قد يكون ردي متأخراً ، واعتذر عن عدم المتابعة مني ومن صاحب الموضوع ، ولكن أعتقد افضل طريقة ولضمان عدم تلف العلاقات بين الجداول هو استيراد البيانات من الجدول المحدد وليس استيراد الجدول كاملا استناداً وتأييداً لكلامي أستاذنا @kanory . هذه نقطة ، والثانية هي مجرد فكرة خطرت ببالي من فكرة النسخ الإحتياطي للجداول واستعادة النسخة ، قد نستطيع فيما بعد بتوظيف الفكرة هذه لعمل استيراد للجداول حتى لو كانت مرتبطة بعلاقة 😅 هذه الجداول شكلها بنت عالم وناس 😂🤪

تفضل أخي الكريم محاولتي ، New Microsoft Access Database (1).accdb

أخي الكريم إليك تجربتي الشخصية . اذهب إلى محرر أوامر الـ VBA ، واضغط Ctrl+G . اكتب هذه الأوامر واحداً تلو الآخر في الجزء السفلي الذي ظهر معك بعد النقطة السابقة . CommandBars("Property Sheet").Enabled = True ثم CommandBars("Property Sheet").Top = 0 ثم CommandBars("Property Sheet").Left = 0 وأعلمني بالنتيجة

هذا هو ما أبحث عنه يا أستاذ @Moosak نقاط الضعف من وجهة نظر مستخدمين آخرين غيري جزاك الله كل الخير ، جاري العمل على تغييرات وإضافات إن شاء الله أن ترقى للمستوى المطلوب .

😅

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

قم بإضافة هذا الجزء الى كود الفلترة ، طبعاً تنسيق التاريخ سيكون 00/00/0000 ، كما يتم تخزين القيم في الجدول لأنك تتعامل مع مربع نص وظيفته البحث عما يُكتب فيه من قيم . OR Format([State], 'Short Date') LIKE '*" & filterText & "*'" على سبيل الفرض من أحد الحقول لو اردت ازالة Like وتوابعها فخذ مثال على الحقل EmpName مع Like :- OR [EmpName] LIKE '*" & filterText & "*' بدون Like :- OR [EmpName] = '" & filterText & "'

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

ولا يهمك معلمي الفاضل ، قلتلك الخطأ في عدم إبراز الإزرار كأزرار 🤗

🤔 ، غريب ( وما غريب إلا الشيطان ) مع العلم انه تمت التجربة على أكثر من إصدار أوفيس 🥺 على العموم ستتم المتابعة والإصلاح إن كان هناك أخطاء في عدم التوافق مع إصدارات معينة. ولا يهمك 🥰

تم التحديث للنسخة 32 ، تفضل أستاذي @الحلبي

الخطأ مني أستاذي ومعلمي الجليل ، يمكن ذوقي بعدم ظهور الأزرار كأزرار هو المشكلة . رغم إني في تطبيقاتي أتعمد ان الأزرار يكون لها شكل اليد بدل سهم الماوس الإفتراضي 🤗 وسماع النغمة قبل التطبيق موجودة لحرية الاختيار 😅 يسعدني ملاحظاتك