Moosak

حسب علمي المتواضع .. هناك أكثر من طريقة يمكنك حفظ بها المسميات والمتغيرات .. 1- يمكنك حفظ المسمى في جدول بحيث تضع له مربع إدخال للمستخدم ، ومن ثم تستدعيه بدالة Dlookup مثلا .. 2- يمكنك حجز متغير له في موديول منفصل ومن ثم تستدعيه في أي وقت شئت .. 3- ويمكنك استخدام ال TempVars كما أشرت لك سابقا .. ولجعل المستخدم هو من يدخل هذه القيمة أسند قيمة التمب فار إلى مربع نص مثلا هكذا : TempVars.Add "Title", [Forms]![LoginF]![Titletxt].Value ومن ثم تنحفظ القيمة بعد الضغط على زر الدخول مثلا . أما عن سؤالك عن أيها أخف على قاعدة البيانات فلا علم لي بذلك .. والله أعلم

وعليكم السلام ورحمة الله وبركاته .. يمكنك استخدام التمب فار Tempvars بهذه الطريقة لحجز الاسم والقيمة ، وتضعه في أول نموذج يفتح معك مثلا : TempVars.Add "title", "HR_SE" وتستدعيه في أي مكان في البرنامج بهذه الطريقة : TempVars (title)

تفضل التعديل أخي .. يجب أن تدخل جميع البيانات لكي يعمل البحث عندك .. 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 &