أبو أحمد

تمام أستاذي الكريم تم عمل المطلوب

السلام عليكم ورحمة الله وبركاته سؤالي أستاذي الكريم هل يمكن اضافة معيار جديد بعد تحديث الحالة من موجود إلى فاقد ومن رقم الجرد الحالي إلى أحدث رقم جرد أضيف إليه كما نفضلت بعمله أن أضيف معيار أن يكون ذلك التحديث للرقم العام للكتب من رقم 1 (ثابت في النص[ إلى رقم معين ]مختلف في نص[ يتم تحديده فيما بعد .. مثل ذلك Between [forms]![F_GardBooks1]![text] And [forms]![F_GardBooks1]![text2] موضح في الاستعلام الموجود بالقاعدة في زر أمر حدث بالنموذج عند الضغط عند النقر ... وكما هو على أكسس 2003 وجزاكم الله خيرا مرفق لكم القاعدة المطلوب العمل عليها القاعدة 3.rar

أستاذي الكريم جزاكم الله خيرا على سعة صدركم والرد علي طلبي ولكن عندما وضعت في أول الكود On Error Resume Next لم تظهر المشكلة وتم تحديث البيانات المطلوبة تماما ولكن الشي الغريب أنه لم تظهر رسالة "تم تحديث البيانات بنجاح عموما ليست ضرورية وجزاكم الله خيرا وزادكم علما وسعة صدر أقصد هكذا جعلتها Private Sub أمر136_Click() On Error Resume Next UpdateBooksToLost End Sub

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

أستاذي الكريم أنا لم أضع في زر الأمر إلا حدث واحد فقط وهو عند النقر Private Sub أمر136_Click() UpdateBooksToLost End Sub Public Sub UpdateBooksToLost() Dim db As DAO.Database Dim rs As DAO.Recordset Dim maxGard As Long Set db = CurrentDb maxGard = Nz(DMax("No_Gard", "T_Gard"), 0) Set rs = db.OpenRecordset("SELECT * FROM [جدول تسجيل الكتب] WHERE [CaseBook] = 'موجود'", dbOpenDynaset) If Not rs.EOF Then rs.MoveFirst Do While Not rs.EOF rs.Edit rs!CaseBook = "فاقد" rs![G N] = maxGard rs.Update rs.MoveNext Loop End If rs.Close Set rs = Nothing Set db = Nothing MsgBox "تم تحديث الكتب إلى الحالة 'فاقد' بنجاح", vbInformation + vbMsgBoxRight, "" End Sub

بالفعل عند الضغط مرتين تم تنفيذ المطلوب بدون اعطاء الرسالة ولكن السؤال الآن أن مش فاهم من أين التكرر حضرتك تقصد أنني كررت الكود مع زر أمر في نموذج آخر ؟ مثلا

وعليكم السلام ورحمة الله وبركاته أستاذي الكريم ِ Ahmos جزاكم الله خيرا على اهتمامكم وردكم ولكن للاسف أولا يطلب مني رقم الكتاب المطلوب وأنا كنت أريد بمجرد الضغط على زر الأمر يتم تحويل جميع الكتب تلقائيا إلى فاقد لجميع الكتب مع التحديث إلى آخر رقم للجرد مباشرة لجميع الكتب يعطيني أنه هناك خطأ كما هو بالرسالة المرفقة مرسل لكم القاعدة مرة ثانية وعليه تعديل حضرتك أرجو تعديل سبب الخطأ وجزاكم الله خيرا القاعدة 3.rar السلام عليكم ورحمة الله أستاذنا الكبير للأسف عندما قمت بتطبيق ذلك على القاعدة عندي ظهرت لي مشكلة لا أدري أيه السبب مرفق لكم الرسالة التي ظهرت لي

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

استاذنا الكريم هل في امكانيه عمل ذلك على القاعدة مباشرة يكون اوضح واسهل زادكم الله علما وجعل علمكم في ميزان حسناتكم وأعضاء المنتدى الكريم

أستاذي الكريم أشكركم على سعة صدركم معي ولكن للأسف فشلت باختصار مرسل لكم القاعدة والمطلوب تعديل المطلوب عند الضغط على زر الأمر بالنموذج يتم تحويل جميع الكتب التي حالتها موجود إلى الحالة فاقد مع تحويل رقم الجرد لهم (لهذه الكتب) الى أعلى رقم موجود في جدول الجرد وجزاكم الله خيرا القاعدة 2.rar

السلام عليكم ورحمة الله السؤال بصيغة أخرى كيف يمكنني عمل استعلام تحديث اجعل حالة الكتب من موجود إلى فاقد وأيضا وتحديث رقم الجرد الى أحدث رقم موجود مرفق مثال السابق

أستاذي الكريم ... واضح أنني لم استطع توصيل ما اريده كنت عاوز اضيف الى التعبير الموجود في زر الامر بالنموذج بعد أن يحول جميع حالة الكتب من موجود الى فاقد أضيف إليه أيضا وتحويل رقم الجرد (لهذه الكتب التي حالتها موجود) إلى أعلى قيمة جرد (أخر رقم جرد) بدلا من 1 مثلا في المثال إلى 3 حيث هو أعلى رقم جرد وذلك للكتب التي حالتها موجود فقط بمعنى آخر : يقوم بعمليتين للكتب التي حالتها موجود فقط 1. يحول الحالة من موجود إلى فاقد 2. ويحول رقم الجرد إلى أعلى رقم موجود (في المثال الذي ارسلته يكون 3) وكنت الطلب الثاني وهو عاوز أعرف كيفية تحويل هذا التعبير الموجود في زر الأمر إلى استعلام تحديث بحيث أعرف الفرق بين التعبير الموجود في زر الأمر وكيفية شكله في صورة استعلام (SQL) والله أنا أسف لفشلي في توصيل ما كنت أصبو إليه

أستاذي الكريم المطلوب اضافة لهذا التعبير عند تعديل حالة الكتب تحويلها الى فاقد وتعديل رقم الجرد هو أيضا أحدث رقم زلو في امكانية وعمل استعلام أيضا له (استعلام تحديث) علما بأنه موجود في زر أمر "تحويل حالة هذه الكتب الى فاقد" بالنموذج الذي بعنوان F_GardBooks DoCmd.RunSQL "UPDATE [جدول تسجيل الكتب] SET [جدول تسجيل الكتب].CaseBook = ""فاقد"" " & vbCrLf & _ "WHERE ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (Not ([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2])) OR ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2]));" وجزاكم الله خيرا

هذا الكود موجود في زر أمر "تحويل حالة هذه الكتب الى فاقد" بالنموذج DoCmd.RunSQL "UPDATE [جدول تسجيل الكتب] SET [جدول تسجيل الكتب].CaseBook = ""فاقد"" " & vbCrLf & _ "WHERE ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (Not ([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2])) OR ((([جدول تسجيل الكتب].CaseBook)=""موجود"") AND (([جدول تسجيل الكتب].title) Is Null) AND (([جدول تسجيل الكتب].searinumber) Between [forms]![F_GardBooks]![text] And [forms]![F_GardBooks]![text2]));" وهو يعني تحويل حالة الكتب بجدول تسجيل الكتب من موجود إلى فاقد في الكتب التي تقع بين الرقم الموجود "نص1" إلى الرقم الموجود في "نص2" في النموذج الذي بعنوان F_GardBooks المطلوب من حضرتك 1. اضافة اليه المعيار في أحدث جرد MAX([G N]) 2. تحويله إلى استعلام (في صورة تصميم) (عمل استعلام عليه) أرجو أن تكون الفكرة وصلت وجزاكم الله خيرا

في النموذج F_GardBooks عند الضغط على مفتاح "تحويل حالة هذه الكتب الى فاقد" يتم تحويل حالة الكتب من موجود الى فاقد كما هو الحال الان المطلوب اضافة في SQl معيار تحويل سنة الجرد لهذه الكتب إلى السنة الجرد الاخيرة فقط وفي حالة كانت حالة الرقم العام لهذا الكتاب فاقد من سنوات جرد سابقا تظهر العبارة التالية "هذا الكتاب كان فاقد في سنة الجرد / " أرجو أكون وصلت الفكرة وجزاكم الله خيرا