اريد اخفاء رسالة الغاء الحدث

[مصطفى القمّاش]

 

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

اولا انا قد وضعت هذا الكود لكى يظهر رسالة عندما لا يوجد بيانات فى التقرير ....... وضعتها فى حدث On No Data
هذا هو الكود

Ok = "موافق"
MessageBoxH Me.hwnd
 MsgBox "لا توجد بيانات متاحة", , "عفواً"

Cancel = -1

لاحظ المثال بعد فتح نموذج "presence" ثم استعلام عن عام 2003 لاتظهر بيانات وبعد الضغط على "تقرير استعلام"  شاهد ماذا يحدث

 المشكلة الاولى هى عند الضغط على زر موافق فى "رسالة لا توجد بيانات" تظهر الرسالة مرة اخرى واضطر الى ان اضغط موافق مرة ثانية 

 

والمشكلة الثانية اريد ان اضيف امر عدم عرض التقرير ولكن برسالة غير الناتجة عن الكود (Cancel = -1 ) حيث تظهر الرسالة بالانجليزية وهى رسالة الاكسس
واريد ان تظهر الرسالة باللغة العربية كحالة الكود السابق بعبارة مثلا "عدم فتح التقرير لعدم وجود بيانات" بحيث تظهر محل رسالة ال camcel الناتجة من الاكسس

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

salary2015.rar

تم تعديل مايو 17, 2013 بواسطه أبـوخليل
يفضل عدم تحديد شخص بعينه عند طلب الاجابة

[ابوخليل]

 المشكلة الاولى هى عند الضغط على زر موافق فى "رسالة لا توجد بيانات" تظهر الرسالة مرة اخرى واضطر الى ان اضغط موافق مرة ثانية 

 

 

 

 

لا تظهر عندي الا مرة واحدة !

 

والمشكلة الثانية اريد ان اضيف امر عدم عرض التقرير ولكن برسالة غير الناتجة عن الكود (Cancel = -1 ) حيث تظهر الرسالة بالانجليزية وهى رسالة الاكسس

واريد ان تظهر الرسالة باللغة العربية كحالة الكود السابق بعبارة مثلا "عدم فتح التقرير لعدم وجود بيانات" بحيث تظهر محل رسالة ال camcel الناتجة من الاكسس

 

الرسالة الانجليزية  هذه صادرة من حدث الزر بعد الغاء الاجراء

يمكنك قفل الرسالة من حدث الزر

انظر المرفق

 

 

salary2016.rar

[مصطفى القمّاش]

شكرا استاذ / ابو خليل ........ وبفضل الله تم حل المشكلة
وفعلا الرسالة اختفت

ولكن اين الحدث الذى الغيت منه عدم ظهور الرسالة ......... هل ممكن ان توضح كيف الغيت الرسالة ومنعت ظهورها
حيث بحثت فى زر "تقرير الاستعلام" لم اجد اى تغير حدث على احداث الزر

واعتذر عن الاطالة فى السؤال

ولكم جزيل الشكر

[ابوخليل]

Private Sub Command19_Click()
On Error GoTo Err_Command19_Click
    Dim stDocName As String
    stDocName = "cc"
    DoCmd.OpenReport stDocName, acPreview
Exit_Command19_Click:
    Exit Sub
Err_Command19_Click:
    'MsgBox Err.Description
    Resume Exit_Command19_Click
  End Sub

انظر الى السطر

 

'MsgBox Err.Description

 

حدث الرسالة مقفل لا حظ لونه الاخضر في صفحة المحرر 

لقفل سطر برمجي عن العمل نضع في اول السطر علامة التنصيص المفردة ( حرف الطاء)

[مصطفى القمّاش]

شكرا استاذ/ أبو خليل ........

 

فهمتها الان وسوف استفيد بها فى برنامجى إن شاء الله

 

جزاك الله خيرا على المعلومة والشرح

تحياتى

[mccaao]

هل ممكن يعتبر هذا حل كمان ؟؟

 

salary2015_1.rar

تم تعديل مايو 17, 2013 بواسطه mccaao