Foksh

نعم تستطيع ذلك اخي @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 ، تفضل أستاذي @الحلبي

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

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

هذه مساهمة اخي الكريم ، تفضل 🤗 HAA.accdb

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