ابوخليل

بسم الله الرحمن الرحيم الاستعلام الإجرائي هو استعلام يُجري تغييرات على العديد من السجلات أو ينقلها في عملية واحدة فقط . توجد أربعة أنواع من الاستعلامات الإجرائية: حذف وتحديث وإلحاقي وتكوين جداول. نقوم بتحويل الاستعلام الاجرائي الى جملة vba كنوع من الحماية ولتقليل واختصار الكائنات داخل القاعدة وإليكم الطريقة حيث سنطبق الدرس على استعلام حذف : 1- بفرضية ان لدينا جدول باسم tbl1 يحتوي على العديد من الحقول وكثير من البيانات ثم قمنا بانشاء استعلام حذف واخترنا الكل أي اننا نفتح استعلام حذف جديد ثم نختار الجدول ثم نختار الحقل الاول من الجدول والذي هو عبارة عن نجمة الآن لو تم تشغيل الاستعلام لقام بحذف كافة البيانات داخل الجدول . 2- في عرض تصميم الاستعلام ننقر بالزر الايمن تم نختار عرضSQL ثم ننسخ الجملة البرمجية التي تظهر لنا وستظهر على الهذا النحو : DELETE Tbl1.* FROM Tbl1; ولكنها هكذا مادة خام تحتاج الى اضافات حتى نتمكن من تشغيلها داخل الكود وتتمثل الاضافات بالتالي : - جعل الجملة على سطر واحد ، او اضافة ( _ ) في نهاية كل سطر لتقسيم الجملة الى اسطر (في المرفقات برنامج يقوم بذلك ) - جعل الجملة بين علامتي تنصيص مزدوجتين - اضافة امر تشغيل جملة سكول docmd.RunSQL في بداية الجملة وهناك اضافات خارج الجملة وهي لمنع رسائل التحذير عند بدء تشغيل الكود واعادتها في نهاية التشغيل وتتمثل في السطرين التاليين DoCmd.SetWarnings False قبل بداية الجملة DoCmd.SetWarnings True بعد انتهاء الجملة لتظهر الجملة في النهاية داخل الكود هكذا : DoCmd.SetWarnings False Docmd.RunSQL"DELETE Tbl1.* FROM Tbl1" DoCmd.SetWarnings True هذا كل شيء ،، في المرفقات برنامج من مكتبتي يقوم بتحويل الاستعلام الى جمل sql وتنسيقها .. ادعوا لصاحبه جزاه الله خيرا تحويل SQL إلى VBA.rar

لا فرق .. حيث ستستغني عنها لا حقا .. تفضل من هنا http://www.officena.net/ib/index.php?showtopic=58494

سأكتب موضوع او درس جديد انشاء الله عن كيفية تحويل الاستعلامات الاجرائية الى جملة SQL داخل الكود او الوحدة النمطية اما النسخة الاحتياطية فالمنتدى مليء بموضوعات حول هذا الخصوص ( ابحث لتحترف ) واما تصفير القاعدة فهي عبارة عن استعلامات حذف لجداول يتم اختيارها وهي الجداول التي تحتوي على البيانات المتغيرة للطالب بمعنى اننا نستثني من الحذف جدول الااسماء وما يتبعه من جداول فرعية ثابته او شبه ثابتة كجدول الحالات الخاصة

نعم .. هذه طريقة وايضا : اخذ نسخة قبل تصفير قاعدة البيانات للسنة الجديدة من البيانات المتغيرة والطلاب المتخرجين بحيث يمكن الرجوع الى نسخ الاعوام السابقة عند الحاجة نعم .. شكرا استاذ سمير

لتطبيق شرط ما داخل النموذج المستمر لسجل معين يجب : 1- ان يكون الحدث منبثق من السجل نفسه 2- او يكون عليه التركيز عند الحدث في مثالك الذي تم التعديل عليه اكتب رقما داخل حقل dh ثم انقرعلى خانة الاختيار ان لم يكن هو ما تبحث عنه يجب زيادة الشرح HDo6.rar

تهنئة للاستاذ عبدالرحمن هاشم على التميز الف مبروك

واضح ولكن طريقتك في التصميم داخل النموذج ستتعبك ستكتشف ذلك لاحقا المهم : تم التطبيق حسب طلبك باستخدام وحدة نمطية عامة تجلب القيمة الجديدة في الحقل A1 ثم باستخدام استعلام التحديث طرحنا هذه القيمة من القيمة الاصلية في الجدول بناء على الرقم المعرف في المثال المرفق تم التطبيق على حقل combo205 فقط Text13.rar

تهنئة للأستاذ ramhan بالاحتراف الف مبروك وشكرا للاستاذ رضوان وللادارة الموقرة

سبحان الله بحثت لك داخل المنتدى فوجدت هذا : اخ ازهر هذا موضوع انت صاحبه وفي السؤال نفسه او يقاربه عام 2006 http://www.officena.net/ib/index.php?showtopic=13226#entry56920 يلزم زيادة ايضاح ان كان مطلوبك يختلف

اخي ابو آلاء يكفي للتطبيق ارفاق جدول الاسماء فقط تم التعديل وعمل المطلوب من خلال تشغيل 6 استعلامات بالترتيب ويمكن تحويل هذه الاستعلامات الى جمل sql وتضمينها داخل الكود student7.rar

تفضل هذا مثال وجدته لك يظهر الارقام الناقصة في جدول علما انه يمكنك اظهارها في قائمة داخل النموذج ارقام التسلسل المفقودة.rar

تفضل UpdateField2.rar

المطلوب غير واضح اشرح مطلوبك داخل المثال

تصميم جميل ورائع وواضح المجهود الذي بذلته حتى خرج على هذه الصورة الملاحظات : المرفق كبير جدا 52 م فقط انزع الصور من النماذج ( ثلاث نماذج ) وقم بضغط واصلاح القاعدة وسترى الفرق المهول في الحجم سيصل الحجم الى اقل من ميجا واحد ومع الضغط سيكون كيلوات قليلة يمكنك عرض الصور داخل البرنامج بجعلها مرتبطة بدلا من التضمين وتضع الصور داخل مجلد البرنامج تم تجريب النسخة 2003 1- لا يتم عمل نسخة mde 2- بالنسبة الى اليوزر الخارجي تصور ما ذا سيحدث لو تم تسريب الباسوورد وفقك الله اخي محمد والى الامام

بكل احاسيس الغبطة والفرح اهنئكم وابارك لكم مرتبة الشرف تستاهل اكثر يابوعبدالله

اخونا سليم اطلالاتك جميلة بين الحين والآخر ... جزاك الله خيرا الاخ هاني : يمكن تطبيق الحل باكثر من طريقة فقط ارفق مثالك على صيغة mdb

سننقل هذا الموضوع الى قسم اعلانات الاعضاء ومن لديه الاستعداد والقدرة التواصل مع السائل على الخاص علما ان المنتدى لا يتحمل اي مسؤلية

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

تفضل تم التعديل officena2.rar

افتح صفحة محرر الفيجوال / ومن الشريط العلوي Tools/References سيفتح لك مربع حوار انظر الى المكتبات في القائمة يوجد مكتبة اول كلمة فيها mssing امامها نقطتين (:) ازل العلامة من المربع الذي امامها ثم OK

او هاتف ولي الأمر مع ان الهاتف قابل للتغيير

حسب قوانين المنتدى سيحول الموضوع الى قسم الاعلان يمكن لم عنده القدرة مراسلتك على الخاص تذكير : الموقع لا يتحمل أي مسئولية

الاسماء عادة تتشابه خلاف للسجل المدني او الرقم القومي الحل هو الكود السابق مع تغير طفيف ليتناسب مع الحقول النصية اكتب الكود التالي في حدث بعد التحديث لحقل الاسم if DCount("*","tbl1","txtname='" & txtname & "'")>0 then msgbox"الاسم موجود" undo exit sub end if باعتبار txtname هو حقل الاسم

بعد التجربة : الملف الصوتي يعمل 100% في اي مكان تضع المجلد

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