• 0
lose_till_now

برنامج المكتية بالاكسس 2003

سؤال

السلام عليكم

انا بعمل برنامج مكتبة و عندى مشكلة فى جزء الاستعارة

الفكرة ان عايز لما المستخدم يختار كتا يكون استعار قبل كدة

يظهر له مسج ان الكتاب ده غير متاح

ارجو المساعدة و شكرا...

و دى البيانات

borrow_id
user_id
book_id
borrow_date
return_date

 

 مرتبط بجدول ال uder  user_id
book_id
مرتبط بجدول ال book

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

السلام عليكم 

قمت بعمل الأتي 

1. اربعة نماذج 

الأول. الفورم الرئيسي وبه ثلاثة ازرار للتحكم بباقي النماذج

النموذج الثاني: لإدخال كتاب جديد (يعتبر الترقيم التلقائي هو رقم الكتاب)

النموذج الثالث : للكتب التي تم ارجاعها (بها خانة تاريخ ارجاع الكتاب التي تستطيع تعديلها وسيتم حساب الكتاب ضمن عدد الكتب أي بمعني لو عندي 4 نسخ من كتاب ما وقام المستعير بإعادة الكتاب ستصبح لدي النسخ 5 وهكذا

النموذج الرابع : لتسجيل استعارة جديدة لكتاب ما وسيتم خصم الكتاب من عدد النسخ بمعنل لو عندي 4 نسخ من كتاب ما وقام المستعير بأخذ نسخة سيصبح المتبقي 3 نسخ وهكذا

 

======

في نموذج الاعادة ستظهر الكتب التي لم يتم ارجاعها فقط كلما عليك فعله هو البحث عن اسم المستعير وبعد ذلك تسجل تاريخ ارجاعه للكتاب وسيتم عمل اللازم

 

===========

اذا لم يتبقى كتب من أحد الكتب ستظهر لديك رسالة تنبيهية بذلك

 

جرب واعلمني بالنتيجة

 

 

 

db11.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

شكرا جدا جدا جدا

ربنا يكرمك يا رب

بجد مش عارفة اقول لحضرتك ايه

 

عندى سؤال اخير

ممكن موقع اقدر اتعلم منه اكون محترف access و كل ما يخص الاكسس و ماكروا و كل شئ لان للاسف اكتشفت ان ضعيف جدا فى البرمجة و ابسط شئ فى البرامج مش بقدر اعمله

و شكرا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

 

شكرا جدا جدا جدا

ربنا يكرمك يا رب

بجد مش عارفة اقول لحضرتك ايه

 

 

العفو 

 

 

عندى سؤال اخير

ممكن موقع اقدر اتعلم منه اكون محترف access و كل ما يخص الاكسس و ماكروا و كل شئ لان للاسف اكتشفت ان ضعيف جدا فى البرمجة و ابسط شئ فى البرامج مش بقدر اعمله

و شكرا

 

الممارسة ثم الممارسة

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

طيب لو سمحت هو الكود

DoCmd.OpenQuery "QryUpdate"

 

t = DLookup("[count]", "Books", "[bookID] = " & Me.book & "  ")
 

t و

QryUpdate دى جت منين

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .