اظهار حدث عند ادخال قيمة في مربع نص تظهر النتيجة في مربع النص الآخر

السلام عليكم

اخي الكريم مرحبا بك فى منتدي الفريق العربي

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

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

اما اذا كنت تريد ان تكتب الرقم يدويا فهذا قابل للخطأ للاختلاف فى التنسيق او اي شئ غير متوقع ولكن اذا كنت تضمن استحالة الخطأ فى الكتابة يدويا فممكن استخدام الوظيفة DLookup

اخوك فى الله

asd.rar

والمرفق ده كمان فيه كيفية استخدام DlookUp العبقرية

وبما انها اول مشاركة ليك حاول دائمة ان ترفق ملف يوضح المطلوب اكثر ويفضل ان يكون اسماء الجداول وباقي الكائنات بالانجليزي

اخوك فى الله

asd1.rar

شكرا جزيلا أخي الفاضل على سرعة الرد جاري التحميل ورؤية المحتوى وسأقوم بالرد عليك في أسرع وقت

تم رفع الملف المراد التعديل عليه وشرح ما أحتاج اليه موجود داخل الفورم

وشكرا

wael.rar

الى الاخوة بانتظار الرد

تفضل اخي وائل

ملفك بعد التعديل

ستجد الكود الخاص بهذه العملية في حدث بعد التحديث لمربع النص " ادخل عدد دقائق التأخير " بهذه الطريقة

Private Sub Text7_AfterUpdate()
Select Case Me.Text7.Value
Case 100 To 350
Me.Text9 = "ربع يوم"

Case 351 To 600
Me.Text9 = "نصف يوم"

Case Else
Me.Text9 = ""
End Select
Me.Text9.Requery
End Sub

بعد ان تدخل الرقم المطلوب من 100 الى 350 وتخرج من مربع النص سيظهر التعبير " ربع يوم " في مربع النص الآخر

وعند ادخال الرقم من 351 الى 600 وتخرج من مربع النص سيظهر التعبير " نصف يوم " في مربع النص الأخر

استمر في اضافة بقية الأرقام بهذه الطريقة في الكود لقاعدة Select اي بعد الإختيار 600

ستجد في اخر الكود انه اذا كان مربع النص الأول لا يحتوي على رقم مدخل او اكبر من المطلوب فإن مربع النص الأخر سيكون فارغ

za_wael_up.rar

شكرا أخت زهرة هذا هو المطلوب جزاك الله خير الجزاء

وشكرا الى كل من قدم المساعده