نجوم المشاركات

اخي @SAROOK السلام عليكم ورحمة الله وبركاته انظر التعديلات على الملف ..... - تم التعديل على طريقة احتساب التاخر على اساس سنوي - تم التعديل على طريقة اختيار السنة في نموذج الطباعة التقرير الشهري للغياب.accdb

بعد اختيار افضل اجابة من الافضل لو تقوم بفتح موضوع جديد كي يتسنى للجميع مساعدتك عموما تفضل صديقي test (2)w.accdb

انت تتعلم اللي يصعب عليك عمله اعرضه هنا

الأساتذة والأخوة الكرام أشكر لكم في البداية جهودكم المميزة في الرد على الاستفسارات، وأتعبناكم معانا من أسبوعين تقريباً وأنا أحاول بناء برنامج من البداية للنهاية عن درجات الطلاب، وبدعم مميز من ردوردكم ، وخاصة معلمنا أبو خليل، قمت ببناء البرنامج المرفق الذي يحتوي على بيانات بسيطة بقائمة بسيطة للفائدة التدريبية والتعليمية. أرجو منكم الاطلاع عليه ونصائحكم بخصوص المشروع. البرنامج يحتوي على قوائم رئيسية للطلاب، قوائم التقارير، وقوائم الشهادات. وبامكان المستخدم، اضافة الطلاب أو العلامات مباشرة من خلال نماذج الطلاب، والتقارير تحتوي على تقرير الطالب أو الامتحان حسب اسمه أو رقمه الوطني، وفي النهاية بإمكاننا طباعة شهادة مدرسية له 🙂 الأسماء التي وضعتها للتجريب هي (محمود، سعيد)مثلاً، وذلك عند البحث عن الطالب باسمه، أو إضافة شهادة له معتمداً على علاماته وتقديره المدخل مسبقاً في نموذج العلامات مع كل التقدير والاحترام لجهودكم معنا School8.rar

السلام عليكم ورحمة الله وبركاته مجهود مبارك وجميل اعجبني وكبداية بسم الله ماشاء الله

تفضل استاذ @Abdelaziz Osman Me.AA = Me.BB & "/" & Format(Date, "yyyy") ' AA=حقل الناتج 'BB=حقل الإدخال(5G)

من التبويب أدوات قاعدة البيانات Database Tools اضغط على مدير الجداول المرتبطة Linked Table Manager ستظهر لك قائمة بالجداول المرتبطة. حدد جميع الجداول المرتبطة التي ترغب في إلغاء التقسيم لها. انقر على زر موافق لإلغاء تقسيم الجداول. أو اضغط زر الماوس اليمين على احد الجداول المرتبطة واختر Linked Table Manager وقم بتحديد جميع الجداول ثم موافق لإستعادتها من قاعدة بيانات الجداول.

ادخال معلومات بالاختيار من ليست بوكس للجدول واصدار تقرير متعدد الاختيارات . المرفق متاح ومفتوح المصدر لكل مايريد استخدامه أو استخدا مابه ... DDChoseMulty Items to Report.rar

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

هل المسألة صعبة عليك ابا حسان ؟؟ اكسس غالبا هو يعملها .. استخدم معالج النماذج .. كل ما ستعمله هو التنسيق والترتيب

سنشرح الفكرة والأكواد .. بداية قمت بإنشاء متغيرين في أول الأكواد ، هما :- Private Const TimeoutMinutes As Integer = 1 قمت بإنشاء متغير ثابت ( Const ) يسمى ( TimeoutMinutes ) ، ويتم تعيين قيمته إلى 1 تعبيراً عن دقيقة واحدة. ( وطبعاً تستطيع تغييره كما تريد ) سنستخدم هذا المتغير لتحديد المدة الزمنية (بالدقائق) التي يجب أن يمر ولا توجد فيها حركة للماوس حتى يتم اعتبار النموذج في وضع الخمول . Private LastMouseMoveTime As Date هنا سنقوم بإنشاء متغير خاص (Private) يسمى ( LastMouseMoveTime ) ويتم تحديده كنوع ( Date ) لأنه سيتم تخزين قيمة بصيغة وقت . يُستخدم هذا المتغير لتخزين الوقت الأخير الذي حدثت فيه حركة الماوس على النموذج. الآن بدأت في حدث عند التحميل لتثبيت قيمتين ، هما :- أولاً المتغير الخاص لتكون قيمته كمتغير الوقت الذي تم فتح النموذج فيه LastMouseMoveTime = Now ثانياً قمت بتشغيل الأمر كل دقيقة بالسطر التالي Me.TimerInterval = 60000 وفي حدث تحريك الماوس ، قمت بجعله يأخذ قيمة الوقت الحالي مرة أخرى كحدث عند التحميل LastMouseMoveTime = Now وفي حدث الوقت سيتم التحقق من أن الماوس لم يتم تحريكه منذ آخر قيمة تم تسجيلها في المتغير آخر حركة للماوس سابقاً ، بالكود التالي تخطي الخطأ لأنه سيتقوم بمهمة تغيير في النموذج عند مرور الوقت ، فوجب تلافي الخطأ لأنه لن يؤثر على النموذج On Error Resume Next سيتم التحقق من آخر مدة زمنية لتحريك الماوس ما إذا تخطيناها أم لا. If Now - LastMouseMoveTime > TimeValue("00:00:" & TimeoutMinutes * 60) Then اذا تحقق الشرط وكان الوقت المسجل في المتغير أقل بدقيقة من الوقت الحالي فستظهر رسالة ولك حرية حذفها بالمهمة التي تريدها . MsgBox "تم تسجيل الخروج بسبب عدم تحريك الماوس", vbInformation بعد الرسالة سيتم اغلاق آكسيس . طبعاً تستطيع هنا أن تعدل الأحداث كما ترغب . DoCmd.Quit End If

وعليكم السلام 🙂 إجعل مصدر البيانات استعلام وقم بتصدير البيانات من الاستعلام ، ثم اطلع على هذا الموضوع :