زر حذف سجلات جدول

[moham_q]

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

[Shivan Rekany]

25 دقائق مضت, moham_q said:

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

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

[moham_q]

نعم استاذ شفان المحترم اريد حذف السجلات دفعه واحده والابقاء فقط على الجدول

[Ahmed.IQ]

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

[Shivan Rekany]

منذ ساعه, moham_q said:

نعم استاذ شفان المحترم اريد حذف السجلات دفعه واحده والابقاء فقط على الجدول

فرضنا عندك جدول باسم tblMealomat

سنستخدم هذا الكود

Dim sql As String
sql = "DELETE tblMealomat.* FROM tblMealomat;"
If MsgBox("هل تريد الحذف كافة السجلات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunSQL (sql)
DoCmd.SetWarnings (warningson)
Me.Requery
MsgBox "تم حذف كافة السجلات"
Else
MsgBox "تم الغاء العملية الحذف"
End If

اولا سنعطينا رسالة تأكيدية

اذا ضغطنا على نعم سيحذف كافة السجلات ويعطينا رسالة تم حذف

واذا ضغطنا على لا سيعطينا رسالة تم الغاء العملية

تحياتي

[moham_q]

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

[Shivan Rekany]

في البداية الكود عملنا متغير نصس باسم ( sql )

Dim sql As String

بعدين بيننا ما هو ( sql ) وقلنا ( sql ) يساوي حذف كل البيانات من جدول (tblMealomat) .

sql = "DELETE tblMealomat.* FROM tblMealomat;"

بعدين كتبنا شرط ئيف مع رسالة بها زرين وهما ( yes ) و ( no ) و اضفنا ( vbMsgBoxRight ) لكي يبدأ الرسالة من اليمين وكتبنا (تنبيه) كعنوان الرسالة بعدين قلنا اذا الرسالة يساوي زر ( yes ) اي اذا ضغطنا على زر نعم شو بيعمل لنا ...

 If MsgBox("هل تريد الحذف كافة السجلات", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then

اولا : قلنا ايقاف تحذيرات اكسس

DoCmd.SetWarnings (warningsoff)

ثانيا : تشغيل جملة سكويليتي وهو حذف كافة سجلات من جدول (tblMealomat) وهو متغير باسم ( sql )

DoCmd.RunSQL (sql)

ثالثا : تشغيل تحذيرات اكسس

DoCmd.SetWarnings (warningson)

رابعا : اعادة استعلام لكي عند عمل حذف لا يعطيني في مربعات النصية كلمةم محذوف او بالانكليزية ديليت

Me.Requery

خامسا : اظهار رسالة اخرى و بيخبرنات ان تم الحذف كافة السجلات بنجاح

MsgBox "تم حذف كافة السجلات"

لكن اذا ما ضغطنا على زر ( yes ) وضغطنا على زر ( no ) شو بيعمل

Else

بيعظهر رسالة ويخبرنا ان تم الغاء العملية الحذف

MsgBox "تم الغاء العملية الحذف"

واخيرا انتهينا بشرطنا ئيف

End If

 

تحياتي

[moham_q]

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

[mzomry]

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

وجزاكم الله خيرا

[ابو جودي]

تم الرد فى الموضوع الاصلى

رجاء الاهتمام بالحفاظ على قوانين المنتدي 
لم يمكن من الضرورى وضع طلبكم فى موضوع لعضو اخر