بخصوص استعلام حذف

نعم يا أخ / ha98 ،،، بإمكانك تشغيل إستعلام حذف بواسطة ( زر أمر )

والطريقة هي :

قم بعمل استعلام الحذف ،،،، ثم قم بتحوليه إلى جملة ( sql ) و طريقة التحويل ،،، بعد عمل الاستعلام وتحويله إلى استعلام حذف يوجد في شريط الأدوات من الناحية اليسرى

زر على هيئة جدول يسبقه سهم ،،، إضغط على السهم سوف تظهر لك قائمة اختر من هذه القائمة ( عرض sql )

عملت مثالاً بذلك : افرض أن عندك جدول اسمه ( w ) تريد أن تحذف جميع ما بداخل هذا الجدول من بيانات ،،،، عندما تعمل الطريقة التي شرحتها لك سوف يظهر لك من قائمة

( عرض sql ) هكذا :

DELETE w.* FROM w;

كي تضع هذا الآن في زر أمر قم بعمل زر أمر فارغاً وضع فيه هذا الكود :

Dim msg, style, title, result
msg = "سيتم الآن حذف بيانات الملف المحدد  كاملة ولن تستطيع استعادتها مرة اخرى !!! هل ترغب في الاستمرار ؟؟"
style = vbYesNo
title = " تحذير - حذف بيانات"
result = MsgBox(msg, style, title)
If result = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE w.* FROM w;"
DoCmd.SetWarnings True
 MsgBox "تم حذف جميع بيانات الملف المحدد بنجاح والحمد لله", vbInformation, "حذف بيانات"
If result = vbNo Then
DoCmd.CancelEvent
End If
End If

شرح هذا الكود ،،، سوف تظهر لك رسالة تحذيرية قبل أن تحذف البيانات في حال رغبتك بالاستمرار ،،، اضغط ( نعم ) ،،،، وفي حال رغبتك في التراجع عن الحذف ( اضغط ) ( لا )

شاكر

شكرا لك ياغالي

قاعد تثبت يوم بعد يوم انك من المبدعين

تحياتي لك وأجرك على الله

أخي الكريم / على الرحب والسعة

شاكر

بعد اذن الاخ العزيز شاكر الزين وجميع الاخوه الاعزاء

هناك طريقة اخرى بطريقة الماكرو

بعد عمل الاستعلام حذف يمكن انشاء ماكرو يحتوى على التالى

set warning وتظبط على (لا) فى سطر ثاني اختار msgbox وكتب فيها سيتم حذف السجلات المحددة هل انت متاكد

سطر ثالث اختار الامر open query واختار الاستعلام الحذف الذى انشأته واحفظ الماكرو باسم معين

وفى النموذج انشى ذر امر مبنى على الماكرو السابق

ولكم جميعا تحياتى

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

ولان الترحيل يلحق فى معظم الاحيان بالحذف فانا رايت عرض سؤالي هنا بدلا من موضوع منفصل حتى نستفيد جميعا

عندي 3 جداول جدول اسمه STUDENT يحتوى على بيانات خاصة بالطلاب

يتكون من الحقول رقم الطالب و اسم الطالب و التخصص و المعدل الرغبه الاولى و الرغه الثانية و الرغبة الثالثة

وجدول اخر اسمه COMPANIES يحتوى على رقم الشركة و اسم الشركة والتليفون وباقي بيانات الشركات وجدول ثالث اسمه CHANCES يحتوى على رقم الشركة و اسم المادة و عدد الفرص المتاحة بحيث ان الجدول الثانى والثالث بينهما علاقة راس باطراف وعملت نموذج للشركات وبه نموذج فرعي للفرص التى تتيحها كل شركة من المواد المختلفة (التخصصات)

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

وبناء على البيانات المسجلة يكون عندى الطلاب ورغباتهم فى جدول STUDENT

وبيانات الشركات فى جدول COMPANIES

وعدد الفرص التى تطلبها كل شركة من كل مادة او تخصص فى جدول CHANCES

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

1- ان يكون الترحيل حسب اعلى معدل للطالب

2- ان يكون الترحيل حسب الرغبة الاولى للطالب ومن ثم حسب الرغبة الثانية ثم الثالثة

3- ان لا يزيد عدد الطلاب المرحلين عن عدد الفرص المتاحة من هذه المادة لكل الشركات

4- ان يرحل الطلاب بحيث لا يزيد عدد الطلاب المرحلين عن المطلوب لكل شركة

بمعنى (خاصة برقم 4) اذا كان الطلاب الراغبين للتدريب فى شركة الاتصالات مثلا 10 فى تخصص الحاسب الالى وهى تعرض فرص قدرها 8 فيتم الترحيل حسب الشروط السابقة ولكن يقف عند 8 طلاب لهذه الشركة ومن ثم يوذع الباقى للشركات الاخرى

حيث لا يمكن ان تحتوى الشركة على عدد من الطلاب المتدربين فى تخصص ما ويكون زيادة عن الفرص التى اتاحتها لهذا التخصص

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

ارجو ان يكون طلبى واضع ولكم منى كل الشكر