Foksh

يوجد جملة شرطية ليس لها نهاية بتوضيح أكثر ، عندك كود 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 ، سأعمل على تصحيح هذه الجزئية بحيث عند اختيار ملف صوتي خارج المجلد ان يتم نقله اليه واعتماده . أشكرك للفت انتباهي لهذه النقطة 🤗

حتى يستفيد من المشاركات أكبر عدد من الأخوة المنتسبين و زوار المنتدى ، قم بفتح موضوع جديد لهذا الطلب. وإن شاء الله متابعين معك ، رغم أنني قمت تقريباً بتأسيس الفكرة لفاتورة البيع انظر سهولة تتبع العلاقات عندما يكون لديك جدول حركة واحد :- وعندما يكون لديك جدولين حركة ( واحد لحركة الصنف ، و آخر للحركة المالية إن صح التعبير ) ونصيحة لك أخي العزيز ، حاول استخدام مسميات داخل الجداول والنماذج باللغة الإنجليزية

بناءً على الأفكار اللامعة للأستاذ @Moosak :- تم إضافة تشغيل البرنامج عند تشغيل الويندوز ( تمت التجربة على الإصدارات Windows 10 & Windows 7 & Windows XP ) . تم إضافة زر التصغير Minimize . تم تحديث شكل بعض الأزرار . تحديث بعض الأخطاء البرمجية . ⏱️ ملاحظة ، عند تشغيل البرنامج لأول مرة ، يجب اختيار الثيم ، ونغمة التنبيه من مجلد Notification من خلال الضغط على صورة الجرس . جاري العمل على إضافة عرض درجة الحرارة لواجهة المنبه حسب البلد أو المدينة ( يلزم إتصال إنترنت )