أبو أحمد

السلام عليكم ورحمة الله وبركاته جزاكم الله على اهتمامكم وتلبية طلبي بارك الله في علمكم وزادكم علما وجعاه فبي ميزان حسناتكم ولكن الملحوظة التي وجدتها هي زر Clear_Search لا يقوم بمهمته بمعنى لا يقوم بإلغاء الفلترة واظهار جميع العناصر ولا تظهر هذه العناصر الا بحذف ما تم تسجيله في خانة البحث فهل يمكن عند الضغط على هذا الزر يقوم بحذف ما تم تسجيله في خانة البحث والغاء الفترة واظهار جميع العناصر من جديد مرسل لكم القاعدة مع الاعتذار لكم وجزاكم الله خيرا BoAhmed_db3.rar

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

السلام عليكم ورحمة الله الأخوه أعضاء المنتدى الكريم مرسل لكم قاعدة بيانات على اكسس 2003 برجاء التعديل عليه بحيث يمكن البحث عن موضوع من هذه الموضوعات ولو بجزء من عنوان الموضوع وجزاكم الله خيرا db1.rar

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

السلام عليكم ورحمة الله وبركاته سؤالي أستاذي الكريم هل يمكن اضافة معيار جديد بعد تحديث الحالة من موجود إلى فاقد ومن رقم الجرد الحالي إلى أحدث رقم جرد أضيف إليه كما نفضلت بعمله أن أضيف معيار أن يكون ذلك التحديث للرقم العام للكتب من رقم 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) والله أنا أسف لفشلي في توصيل ما كنت أصبو إليه