بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'sql vba استعلام'.
تم العثور علي 1 نتيجه
-
بسم الله الرحمن الرحيم الاستعلام الإجرائي هو استعلام يُجري تغييرات على العديد من السجلات أو ينقلها في عملية واحدة فقط . توجد أربعة أنواع من الاستعلامات الإجرائية: حذف وتحديث وإلحاقي وتكوين جداول. نقوم بتحويل الاستعلام الاجرائي الى جملة 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
