Moosak

تفضل التعديل أخي .. يجب أن تدخل جميع البيانات لكي يعمل البحث عندك .. user..date..date.accdb

أخي @tlayt kamal أعتقد أن طريقتك غير مناسبة لحفظ بيانات المنخرطين أو ( المشتركين) بالطريقة التي تريدها .. حيث أنها ستسبب لك مشكلة كبيرة في قاعدة البيانات في المستقبل عندما يصبح عدد المشتركين كبيرا .. ستمتلئ القاعدة بالجداول وستتوقف عن العمل بعد فترة .. الطريقة الصحيحة هي عمل جدول واحد به بيانات جميع المشتركين وربطه بجدول البيانات الأساسي .. بهذه الطريقة : وعمل فورم لإدخال المشتركين وإضافة بياناتهم بالمرة عن طريق نموذج فرعي هكذا : وهذا الملف المعدل : AMAN.accdb

العفو يا أبا الحسن

تفضل التعديل أبو الحسن Private Sub srch_All_AfterUpdate() If Me.srch_All = "All" Then Me.srch_Date_From = DateSerial(2020, 1, 1) Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1 ElseIf Me.srch_All = "positive" Then Me.srch_Date_From = DateSerial(Year(Date), Month(Date) - 1, 1) Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 0) Else Me.srch_Date_From = "" Me.srch_Date_To = "" End If Me.srch_All_PN = Me.srch_All End Sub DATA1041-5.mdb

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

ضع الفاصلة المنقوطة ( ; ) بدل الفاصلة ( , )

أهلا وسهلا بك أخي العزيز في المنتدى .. تفضل أخي .. إن شاء الله تجد فيه بغيتك .. test (1).rar

أخي @abouelhassan كود الأستاذ كنج 5 ستار يشترط كتابة ( التاريخ من ) لكي يعمل ..

تفضل يا أبو الحسن Private Sub srch_All_AfterUpdate() If Me.srch_All = "All" Then Me.srch_Date_From = DateSerial(2020, 1, 1) Me.srch_Date_To = DateSerial(Year(Date), Month(Date), 1) - 1 Else Me.srch_Date_From = "" Me.srch_Date_To = "" End If End Sub DATA1041-5.mdb

تأكدت منها الآن .. شغالة 100% 👌🏻

تفضل أخي .. إشراف (1).accdb

هذا الحل إن أردت الحصول على ترقيم مرتب للسجلات .. غير ذلك لا يمكنك صف (فرز) الأرقام No بطريقة تصاعدية متتابعة ... لأنها تتوزع على ال Group بطريقة غير منتظمة . test1.rar

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

وممكن تعملها باستعلام تحديث ..

تشكراتي لك باش مهندس محمد .. 🌹

شغل ولا أروع ما شاء الله تبارك الله .. لك جزيل الشكر على هذا المجهود المتميز أستاذنا .. ماذا تقصد بهذه العبارة أستاذي ممكن شرح مبسط ليفهم البسطاء مثلي 😁

الله الله الله .......... جميل جدا .. أشياء جديدة أول مرة أعرفها .. 🌹

وعليكم السلام ورحمة الله وبركاته .. إرجع لهذا الموضوع أخي العزيز :

أخي الحلبي لا يمكننا التنبؤ بمكونات قاعدة بياناتك الأصلية إن لم توضح جميع المعطيات عندك أو ترفقها كما هي .. مودتي 🙂

دائما مبدع يا أبا جودي 😉

تفضل أخي أحمد 3Dates.accdb

لله درك مهندس جعفر ... هذا الموضوع مهم جدا ومطلوب جدا 🙂🌹 ما شاء الله عليك بحر لا ينضب ..

تكتب بين كل سطر وآخر عبارة & vbNewline &

نعم أخي العزيز .. يمكنك ذلك والمواضيع المطروحة في هذا المجال كثيرة .. خذ على سبيل المثال :

للعلم ما يحتاج تدخل لمحرر الأكواد لربط العناصر بالكود .. فقط حدد العناصر كلها في نفس الوقت وألصق الكود في المكان الذي حددته لك بالمستطيل الأحمر 🙂