Moosak

جرب هذه أخي : رساله للمتسخدم (Moosa).accdb

أضفت لك المطلوب بطريقة مختلفة .. وضعت لك زر إضافة فترة جديدة : وبعدها تظهر لك بيانات آخر إشتراك .. وخانة لإضافة فترة جديدة .. هكذا : AMAN (2).accdb

السلام عليكم ورحمة الله وبركاته .. أواصل معكم دروس مهارات في برنامج أكسس . ومع فكرة جديدة ومتميزة .. 😉 كيفية عمل رسائل إرشادية متحركة .. متابعة ممتعة أتمناها لكم 🌹 ولتحميل ملف التطبيق من هنا : درس رسائل إرشادية.accdb

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

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

تفضل أخي العزيز .. وضعت الحالة في مربع نص غير منظم .. عند التحديث أو الإنتقال من سجل إلى آخر تتحدث الحالة على طول .. تحديث قيمة بناء على تاريخين.accdb

تفضل أخي محمود : طباعة تقرير بشرط.rar

1 - بيانات الدفع كلها تتخزن في الجدول Details 2- نعم بالضبط .. فورم خاص بالبحث عن الفترات التي تحددها ( من تاريخ ) ( إلى تاريخ ) .. أو تضيف حقل [نعم/لا] في جدول Details لكي تختار الفترات المراد دفعها .. 3 - الفاتورة تكون مستندة على الاستعلام الذي يفرز لك السجلات في رقم 2 .

نعم ممكن أخي العزيز عمل استعلام من خلاله أنت تختار الفترة التي تريدها أن تظهر ..

حسب علمي المتواضع .. هناك أكثر من طريقة يمكنك حفظ بها المسميات والمتغيرات .. 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

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

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