برنامج مكتبة

[rafi100]

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

اريد ان يتم ذلك عند كتابة تاريخ الاستعارة وتاريخ الاسترجاع ، اي انه عند كتابة تاريخ الاستعارة فان الكتاب فان الكتاب قد استعير وبالتالي فان عدد الكتب المتبقي لنفس النسخة يقل بمقدار واحد.

 

[rafi100]

السلام عليكم

حاولت عمل ذلك باستخدام جملة SQL التالية:

Dim sql As String
sql = "update books " & _
    "set books.no_of_book ='books.no_of_book-1 '" & _
      "where lending.lend_date <> null"
        DoCmd.RunSQL sql

ولكن المشكلة ان البرنامج لايقوم بخصم الكتاب المستعار

ارجو في

1. تعديل الكود اذا وجد به اخطاء

2. طرح كتاب واحد فقط للسجل الحالي بعد كتابة تاريخ الاستعارة

[امير عاطف]

Dim sql As String
sql = "update books " & _
"set books.no_of_book =books.no_of_book-1 " & _
"where lending.lend_date <> null"
DoCmd.RunSQL sql