الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط الرسالة بقيمة حقل فى النموذج

مغلقمُجاب
بدأه خالد العنود في 16 أكتوبر 2013 · 2 رد · 497 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخواني الأعزاء ...

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

أقوم بعمل برنامج كنترول بسيط و هذه رسالة Msgbox من المفترض أن تظهر عند ادخال قيمة أكبر من قيمة موجوده في مربع نص موجود في النموذج على سبيل المثال عند ادخال الدرجة 6 تظهر الرسالة :

Maximum Degree is 5 و ذلك اعنمادا على القيمة الموجوده في مربع النص و هى 5 فقمت بتصميم الرسالة على النحو التالي :

Eval ("MsgBox('Maximum Degree is ',10,'Standards Analysis Program')")

و قد حاولت الإشارة اى مربع النص الموجود في النموذج بأكثر من طريقه و كلها تفشل فمثلا :

Eval ("MsgBox('Maximum Degree is '& [MaxDegree]& ,10,'Standards Analysis Program')")

فالرجاء التكرم بتصحيح الكود بحيث ترتبط الرسالة بقيمة الحقل و جزاكم الله خيرا و كل عام و انتم بخير

#2 أفضل إجابة

اخي الفاضل : خالد

 

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

 

وكل عام وانتم بخير

 

 

استخدم هذه الطريقة في حدث قبل التحديث للحقل

 

Private Sub MaxDegree_BeforeUpdate(Cancel As Integer)
If Me.MaxDegree > 5 Then
MsgBox "Maximum Degree is 5 ", vbCritical, "Standards Analysis Program"
Cancel = True
Me.Undo
End If
End Sub

 

 

بالتوفيق

2

post-15367-087183200%201340344597.gif

بعض من المواضيــع الممـيزه

post-15367-027053900%201340345097.gif

#3
zahrah كتب:

اخي الفاضل : خالد

 

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

 

وكل عام وانتم بخير

 

 

استخدم هذه الطريقة في حدث قبل التحديث للحقل

 

Private Sub MaxDegree_BeforeUpdate(Cancel As Integer)
If Me.MaxDegree > 5 Then
MsgBox "Maximum Degree is 5 ", vbCritical, "Standards Analysis Program"
Cancel = True
Me.Undo
End If
End Sub

 

 

بالتوفيق

للامانه : ان في رقبتي دين للفاضلة الاخت زهرة على هذه المعلومات القيمه . اسأل الله ان يحعل جهدها في ميزان حسناتها وبارك الله لها في اسرتها

هذا الموضوع مغلق.

مواضيع مشابهة