انا مسوي زر يقوم بتشغيل استعلام حذف يظهر لي رسالة تقول
انت على وشك تشغيل استعلام حذف ..............الخ
اريد ان احذف هذه الرسالة او ان اعدل فيها هل استطيع
اعرف ان من خلال خيارات هناك خيار اسمه
الاستعلامات الاجرائية اذا شلت الصح منه لا تظهر الرسائل جميعها واذا رجعت الصح تعود الرسائل وهذا لا اريده
اريد فقط اشيل الرسائل التي انا احددها فقط
ارجو التوجيه هل يمكن عمل هذا ام لا وشكرا
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
صديقي في هذه الحالة عليك استخدام Module والتعامل مع قاعدة البيانات من خلا ال ADO
أضف Module الى مشروعك
Dim cn As New ADODB.Connection Dim std As String Public Sub DeleteTr() std = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\database.mdb" cn.Open std cn.Execute "delete * from cpbdet" cn.Close End Sub
ثم استعدي هذه ال Procedure من خلال Button في From
Call DeleteTr
تفضل هذا قد ينفع ،
يلغي الرسالة التي تخرج عند إلغاء الأمر أو حصول خطأ في الأمر.. توضع قبل الحدث
On Error Resume Next
بسم الله الرحمن الرحيم
قبل انطلاق الكود تكتب الكود التالي :
SET WARNING FALSE
وبعد الانتهاء من تنفيذ الكود تكتب الكود التالي :
SET WARNING TRUE
فقط .
===
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
جرب الاكواد السايقة هل كانت صحيحة
ارجو الرد
ريح من الزفرات تعصف في الحشى &&& و ورائها مطر من العبرات
ابو حسن
اخي الفاضل قوم بانشاء ماكرو يقوم بتشغيل الاستعلام وضع في نفس الماكرو الرسالة التي انت تريدها اتمنى ان هذا يكون ناجحا تحياتي
تم تعديل هذه المشاركة بواسطة ابوشاهر في 2 أكتوبر 2004 في 12:53
أخي المبرمج2003
جزاك الله خير ونتقابل جميعاً إن شاء الله في جنات النعيم
واشكرك على اهتمامك بي
وجرب هذا الكوك
DoCmd.SetWarnings False
DoCmd.OpenQuery "اسم الاستعلام"
أخوك : الطاير
أخي المبرمج2003
لوسمحت بس عاوز اعرف عملت النموذج STARTUP2 الذاي (دمجت الصورة في خلفية النموذج)
وشكراً
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
