زر حذف سجل من الفورم

[moham_q]

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

DoCmd.RunCommand acCmdDeleteRecord

 ... تحياتي وشكري لجميع الاخوة في المنتدى

[Shivan Rekany]

10 ساعات مضت, moham_q said:

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

DoCmd.RunCommand acCmdDeleteRecord

 ... تحياتي وشكري لجميع الاخوة في المنتدى

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

Forms!frmmaelomat!Frmsub.SetFocus
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
Forms!frmmaelomat!Combo1 = ""
Forms!frmmaelomat!Frmsub.Requery

 

حذف من نموذج فرعي.rar

[بحار الاكسس]

اتفضل التعديل.. بطريقة سهلة جدا وليست معقدة

تحيات للجميع

حذف من نموذج فرعي.rar

[Shivan Rekany]

19 دقائق مضت, بحار الاكسس said:

اتفضل التعديل.. بطريقة سهلة جدا وليست معقدة

شكرا على التعديل !!
لكن هل عملت التعديل ام عملت طريقة اخرى .. عملت زر داخل نموذج فرعي ؟
مع تقدير

تم تعديل يناير 29, 2017 بواسطه Shivan Rekany

[بحار الاكسس]

عملته بطريقة اخرى

عملت زر داخل نموذج فرعي

 

تم تعديل يناير 29, 2017 بواسطه بحار الاكسس

[moham_q]

اخواني الاعزاء سلمت اناملكم وسوف يتم تجريب ما قدمتوه من مشاركة معنا .. خالص الشكر والتقدير

[moham_q]

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

[Shivan Rekany]

انا حسب رأيي الاكواد احسن من الماكروات
كون معي للشرح الكود
هذا الكود بيحدد فرم داخلي اللي باسم فرم سور اللي داخل نموذج فرم معلومات
Forms!frmmaelomat!Frmsub.SetFocus
وهذا الكود بيحدد السجل اللي تم بحث عنه
DoCmd.RunCommand acCmdSelectRecord

وهذا الكود بيحذف اللي حدد من قبل
DoCmd.RunCommand acCmdDeleteRecord

وهذا الكود بيخلي الكومبوبوكس خالي من البيانات اللي من قبل دخلناه لكي نبحث لريكورد
Forms!frmmaelomat!Combo1 = ""
وهذا الكود بيعمل ريكويري لنموذج الداخلي لكي بيظهر كل بيانات من جديد
Forms!frmmaelomat!Frmsub.Requery
 لكن هناك اذا بتستخدم مربع نصي للبحث ما عليك الا ان تضع اسم مربع النصي بدل اسم كومبوبوكس
هذا والله اعلم 
مع تقدير

 

 

[moham_q]

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

[moham_q]

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

[Shivan Rekany]

 

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

في بداية الكود اكتب
 

DoCmd.SetWarnings (WARNINGSOFF)
أو
DoCmd.SetWarnings = False

وفي اخره
 

DoCmd.SetWarnings (WARNINGSOn)
او
DoCmd.SetWarnings = true

تحياتي

[moham_q]

الاخ شفان المحترم .. واذا كان في حالة الماكرو !!! امتناني وتحياتي لك

[Shivan Rekany]

 

الاخ شفان المحترم .. واذا كان في حالة الماكرو !!! امتناني وتحياتي لك

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