رسالة تنبيه عند عدم وجود القيمة المكتوبة ضمن القائمة

[النهر العطشان]

السلام عليكم

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

وشكرا

test.rar

[محمدنجار]

2 hours ago, النهر العطشان said:

السلام عليكم

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

وشكرا

test.rar

:: تفضل هل هذا مطلبك ؟

test_UP.rar

[ابوخليل]

مشاركة مع الاستاذ محمد جزاه الله خيرا

هنا يلغي رسالة أكسس 

Private Sub المهنة_NotInList(NewData As String, Response As Integer)
Undo
Response = 0
MsgBox "(لاتوجد هذه المهنه ضمن الاختيارات)"
End Sub

 

[النهر العطشان]

السلام عليكم 

شكرا استاذ محمدنجار على سرعة الاجابة

لقد تمت التجربة وهنالك مشكله اخيره وهي كيف التخلص من هذه الرسالة في الصورة الثانية

وشكرا

السلام عليكم

شكر وتقدير الى الاساتذه الكرام محمدنجار و ابوخليل المحترمون

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

جعلها الله في ميزان حسناتكم

 

[محمدنجار]

36 minutes ago, ابوخليل said:

مشاركة مع الاستاذ محمد جزاه الله خيرا

:: شكرا لاستاذنا الغالي ابو خليل ... جزاك الله خير الدنيا والاخرة