السلام عليكم
انا بعمل برنامج مكتبة و عندى مشكلة فى جزء الاستعارة
الفكرة ان عايز لما المستخدم يختار كتا يكون استعار قبل كدة
يظهر له مسج ان الكتاب ده غير متاح
ارجو المساعدة و شكرا...
و دى البيانات
borrow_id
user_id
book_id
borrow_date
return_date
مرتبط بجدول ال uder user_id
book_id مرتبط بجدول ال book
السلام عليكم
قمت بعمل الأتي
1. اربعة نماذج
الأول. الفورم الرئيسي وبه ثلاثة ازرار للتحكم بباقي النماذج
النموذج الثاني: لإدخال كتاب جديد (يعتبر الترقيم التلقائي هو رقم الكتاب)
النموذج الثالث : للكتب التي تم ارجاعها (بها خانة تاريخ ارجاع الكتاب التي تستطيع تعديلها وسيتم حساب الكتاب ضمن عدد الكتب أي بمعني لو عندي 4 نسخ من كتاب ما وقام المستعير بإعادة الكتاب ستصبح لدي النسخ 5 وهكذا
النموذج الرابع : لتسجيل استعارة جديدة لكتاب ما وسيتم خصم الكتاب من عدد النسخ بمعنل لو عندي 4 نسخ من كتاب ما وقام المستعير بأخذ نسخة سيصبح المتبقي 3 نسخ وهكذا
======
في نموذج الاعادة ستظهر الكتب التي لم يتم ارجاعها فقط كلما عليك فعله هو البحث عن اسم المستعير وبعد ذلك تسجل تاريخ ارجاعه للكتاب وسيتم عمل اللازم
===========
اذا لم يتبقى كتب من أحد الكتب ستظهر لديك رسالة تنبيهية بذلك
جرب واعلمني بالنتيجة
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
شكرا جدا جدا جدا
ربنا يكرمك يا رب
بجد مش عارفة اقول لحضرتك ايه
عندى سؤال اخير
ممكن موقع اقدر اتعلم منه اكون محترف access و كل ما يخص الاكسس و ماكروا و كل شئ لان للاسف اكتشفت ان ضعيف جدا فى البرمجة و ابسط شئ فى البرامج مش بقدر اعمله
و شكرا
اقتباس
شكرا جدا جدا جدا
ربنا يكرمك يا رب
بجد مش عارفة اقول لحضرتك ايه
العفو
اقتباس
عندى سؤال اخير
ممكن موقع اقدر اتعلم منه اكون محترف access و كل ما يخص الاكسس و ماكروا و كل شئ لان للاسف اكتشفت ان ضعيف جدا فى البرمجة و ابسط شئ فى البرامج مش بقدر اعمله
و شكرا
الممارسة ثم الممارسة
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
طيب لو سمحت هو الكود
DoCmd.OpenQuery "QryUpdate"
t = DLookup("[count]", "Books", "[bookID] = " & Me.book & " ")
t و
QryUpdate دى جت منين
