كود لجعل البيانات الحالية فى النموذج كما هى (تثبيت البيانات ) لرسالة تاكيديه عند الحذف

[اسلام سيد]

السلام عليكم

 

انا اريد عند الضغط على زر cancel يظهر رسالة تاكيديه

 

1- لو اخترت "yes" يتم الحذف ( تم الوصول الى هذا المطلوب )

2- لو تم اختيار "No" لا يحدث شئ لا تختفى ولا تحذف ولا ترحل ( فقط تظل كما هى ) ... ( هذا المطلوب الان ، عجزت عن الوصول اليه )
 

 

ملفات مرفقه

---------------

مشروع11ورسالة تاكيد.rar

[Shivan Rekany]

عفوا هسه انا عم بستخدم موبايل

ان شاء الله غدا ساعمل لك كما تريد

اذا ما سبقني احد

مع تحيات

شفان ريكاني

[محمد ايمن]

تحية طيبة اخي اسلام

اكتب هذا الكود فقط بعد كلمة Else

Exit Sub

[husamwahab]

او اجعل كل الكود داخل if  و end if اي بدون Else

Private Sub ÃãÑ23_Click()
On Error Resume Next
If MsgBox("åá ÊÑíÏ ÝÇÊæÑÉ ÌÏíÏÉ", vbYesNo, "ÊäÈíå") = vbYes Then
DoCmd.SetWarnings (warningsoff)
DoCmd.RunCommand acCmdDeleteRecord
[Forms]![ÝÇÊæÑÉ ÇáÔÑÇÁ]![ÊÇÈÚ15].Locked = True
[Forms]![ÝÇÊæÑÉ ÇáÔÑÇÁ]![ÊÇÈÚ15].Enabled = False
DoCmd.Requery
End If
End Sub

 

[اسلام سيد]

السلام عليكم

ما شاء الله لا قوة الا بالله

حلول روووووووووووعه

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

استاذ / محمد ايمن

استاذ / حسام

استاذ / شفان

بارك الله فيكم جميعا

-----------------------------------------------

استاذ / محمد ايمن

رجاءا لا تنسى موضوع

 

[Shivan Rekany]

اسف على التأخير الرد

اتفضل

مع تحياتي

شفان ريكاني

 

مشروع11ورسالة تاكيد.rar

تم تعديل أكتوبر 26, 2016 بواسطه Shivan Rekany

[اسلام سيد]

9 ساعات مضت, Shivan Rekany said:

اسف على التأخير الرد

اتفضل

مع تحياتي

شفان ريكاني

 

مشروع11ورسالة تاكيد.rar

 

ما شاء الله 

حل جديد كمان

ربنا يبارك فيك اخى شفان

[Shivan Rekany]

40 دقائق مضت, اسلام سيد said:

ربنا يبارك فيك اخى شفان

فيك وفينا اجمعين