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

[رامي]

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

ويعطي رسالة(فشل التنفيذ)في حال فشل الاستعلام

ملاحظة الاستعلام من نوع استعلام إلحاقي

[التقني]

السلام عليكم ورحمة الله

من خلال نموذج به زر ضع هذا الكود عند حدث عند النقر:

Private Sub cmdQ_Click()
On Error GoTo ff:
DoCmd.OpenQuery "MyQry"
MsgBox "تم تشغيل الاستعلام بنجاح", vbOKOnly, "رسالة"
GoTo ee:
ff:
MsgBox "فشل تشغيل الاستعلام", vbOKOnly, "رسالة"
ee:
End Sub

حيث MyQry هو الاستعلام المراد تشغيله

أرجو أن يكون هذا الكود ينجح في حل تساؤلك

وبالتوفيق

تم تعديل سبتمبر 10, 2005 بواسطه التقني

[رامي]

الاخ الكريم التقني

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

كيف يمكن حل هذه الاشكالية

[التقني]

أرجو المعذرة أخي العزيز

كنت أظن أن الكود سيحل مشكلتك

[رامي]

شكر اخي العزيز التقني على محاولتك ولكن هل يمكنك حلها بالتعديل على الكود

[رامي]

للرفع

ارجو المساعدة من الجميع

[امير عاطف]

لماذا يفشل استعلام الإلحاقAppend Query

[رامي]

اخ العزيز امير ارجو ان اصل الى الحل

عالعموم :

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

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

[امير عاطف]

يتم ذلك عن طريق تعليم السجلات المرحله

وتجد ذلك بالمشاركه التاليه

http://www.officena.net/ib/index.php?showtopic=306&st=0

[رامي]

ارجو التوضيح اكتر ... ووضع مثال ان امكن

[امير عاطف]

هذا مثال لتعليم على السجلات المرحله وعدم ترحيلها مره اخرى

CheckQuery.rar

[رامي]

اشكر اخي العزيز امير وبارك الله فيك