طريقه تحديث قيمة مربع نص بناء على قيمة حقلين اخرين

[safaa salem5]

عايزه اثناء  الكتابه فى حقل اسمه 

result

لو القيمه اللى هكتبها اقل من القيمه الموجوده فى حقل اسمه

low

او اكبر من القيمه الموجوده فى حقل اسمه

High

يحصل حاجتين

لون القيمه الموجوده فى حقل -

RESULT 

تبقى باللون الاحمر

وخلفية الفيلد تبقى اصفر

stateالحاجه التانيه حقل -

ياخد قيمه اسمها

L

فى حالة لو قيمة

RESULT

اقل من

low

 

------------------------

ياخد قيمه اسمها

H

فى حالة لو اكثر من

high

زى الصوره بالظبط

high or low.accdb

تم تعديل يناير 2 بواسطه safaa salem5

[safaa salem5]

up

[Foksh]

متابع ..

تم تعديل يناير 2 بواسطه Foksh
الكود لا يؤدي المهمة

[ابو جودي]

وليه كل ده

التسيق الشرطى اسرع اسهل 

[Foksh]

قيمة low و high موجودين في النموذج ؟؟

لم أقم بفتح المرفق للإطلاع عليه 😊

[ابو جودي]

ولا انا انا جاوبت نظريا بناء على السؤال

انا  لا استطيع الان رفع او تنزيل اى مرفقات 

[safaa salem5]

48 minutes ago, Foksh said:

مشاركة جانبية..

Private Sub Foksh_AfterUpdate()
    ' قيمة المربع النصي "Foksh"
    Dim fokshValue As String
    fokshValue = Me.Foksh.Value
    
    ' مربع النص "Result"
    Dim resultBox As TextBox
    Set resultBox = Me.Result
    
    ' مربع النص "State"
    Dim tesBox As TextBox
    Set tesBox = Me.state
    
    ' قيم Xx و Yy من القيمة "Xx-Yy"
    Dim valuesArray() As String
    valuesArray = Split(fokshValue, "-")
    
    ' التحقق من الشروط وتحديث النص
    If UBound(valuesArray) = 1 Then
        Dim Xx As Double
        Dim Yy As Double
        Xx = Val(valuesArray(0))
        Yy = Val(valuesArray(1))
        
        If Xx > 0 And Yy > 0 Then
            If fokshValue < Xx Then
                ' أقل من Xx
                resultBox.Value = "(" & Xx & "-" & Yy & ")" ' تحديث الصيغة
                resultBox.ForeColor = RGB(255, 0, 0) ' اللون الأحمر
                resultBox.BackColor = RGB(255, 255, 0) ' اللون الأصفر
                tesBox.Value = "L" ' حرف L
            ElseIf fokshValue <= Yy Then
                ' بين Xx و Yy
                resultBox.Value = "(" & Xx & "-" & Yy & ")" ' تحديث الصيغة
            Else
                ' أكبر من Yy
                resultBox.Value = "(" & Xx & "-" & Yy & ")" ' تحديث الصيغة
                resultBox.ForeColor = RGB(255, 0, 0) ' اللون الأحمر
                resultBox.BackColor = RGB(255, 255, 0) ' اللون الأصفر
                tesBox.Value = "H" ' حرف H
            End If
 
     End If
 
 End If
End Sub

جربي هذا الكود .. مشتق من مشاركة سابقة لنفس الغرض تقريباً مع الإضافات البسيطة.

 

* اعطيني النتيجة

مش شغال معايا

39 minutes ago, Foksh said:

قيمة low و high موجودين في النموذج ؟؟

لم أقم بفتح المرفق للإطلاع عليه 😊

اه موجودين

[ابوخليل]

مشاركة مع احبتي

يوجد بعض المعوقات لا تتضح الا بعد تصفح المثال

تفضلي

 

high or low.rar

[safaa salem5]

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

مشاركة مع احبتي

يوجد بعض المعوقات لا تتضح الا بعد تصفح المثال

تفضلي

 

high or low.rar 27.52 kB · 0 downloads

حابه اشكر حضرتك فى البدايه

هو تمام بس انا 

عايزه التغيير يحصل اثناء الكتابه زى الصوره بالظبط

مش بعد ما اخرج من الحقل

تم تعديل يناير 2 بواسطه safaa salem5

[ابوخليل]

اذا مدخل البيانات معاه وسادة ويريد يرقد داخل الحقل فأنا مضطر ابحث عن طريقة لتحقيق رغبته 

لما يتم ادخال البيانات لا بد من احد امرين .. الانتقال لسجل جديد او الانتقال لزر الطباعة

وعلى كل حال سأنظر في تنفيذ الفكرة

للعلم نوع حقل resulte يجب ان يكون رقميا .. وأتوقع  هذا السبب الذي امتنع عن اظهار النتيجة .. والمثال يبين انك حاولت كثيرا

[ابوخليل]

توضيح :

الكود المسؤول عن المقارنة داخل الاستعلام  .. ويعمل فقط عند تحديث الحقل

فانا وضعت الحدث بعد التحديث وليس بعد الخروج

ووضعته في الاستعلام لتخصيص السجل المطلوب

لو وضعنا الكود داخل النموذج ويستقي بياناته من النموذج هنا عند التنفيذ يتم تحديد جميع الحقول وتلوينها

فكرة تنفيذ الفكرة عند التغيير  ممكنة فقط لو كنا نتعامل مع سجل واحد داخل النموذج لا يظهر الا هو فقط

اما في نموذج مستمر  فسوف يتم التطبيق على الجميع

التنسيق الشرطي للتطبيق على الخصائص فقط وليس البيانات

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

اذا كانت الحاجة تستدعي مثل هذه الخصيصة الرجاء توضيح الغاية من الفكرة

[safaa salem5]

10 hours ago, ابوخليل said:

توضيح :

الكود المسؤول عن المقارنة داخل الاستعلام  .. ويعمل فقط عند تحديث الحقل

فانا وضعت الحدث بعد التحديث وليس بعد الخروج

ووضعته في الاستعلام لتخصيص السجل المطلوب

لو وضعنا الكود داخل النموذج ويستقي بياناته من النموذج هنا عند التنفيذ يتم تحديد جميع الحقول وتلوينها

فكرة تنفيذ الفكرة عند التغيير  ممكنة فقط لو كنا نتعامل مع سجل واحد داخل النموذج لا يظهر الا هو فقط

اما في نموذج مستمر  فسوف يتم التطبيق على الجميع

التنسيق الشرطي للتطبيق على الخصائص فقط وليس البيانات

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

اذا كانت الحاجة تستدعي مثل هذه الخصيصة الرجاء توضيح الغاية من الفكرة

للاسف مش هى دى النتيجه المطلوبه☹️

[ابوخليل]

12 ساعات مضت, safaa salem5 said:

هو تمام بس انا 

عايزه التغيير يحصل اثناء الكتابه زى الصوره بالظبط

مش بعد ما اخرج من الحقل

ما الحكمة ؟؟؟

منذ ساعه, safaa salem5 said:

للاسف مش هى دى النتيجه المطلوبه☹️

الاخوة الخبراء الموجودين فيهم الخير والبركة

 

لكنك يابنتي ما جاوبتني على تساؤلي :

اقتباس

اذا كانت الحاجة تستدعي مثل هذه الخصيصة الرجاء توضيح الغاية من الفكرة

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

اي موضوع يطرح سيستفيد منه كل من يمر من هنا لهذا نحرص ونوصي دوما باختيار العنوان المناسب الذي يصف الموضوع

[safaa salem5]

1 hour ago, ابوخليل said:

 

 

تم تعديل يناير 3 بواسطه safaa salem5

[safaa salem5]

28 minutes ago, safaa salem5 said:

 

ياريت حد من الزملاء يقدر يساعدني للوصول للمطلوب

[safaa salem5]

؟

تم تعديل يناير 3 بواسطه safaa salem5

[safaa salem5]

3 hours ago, safaa salem5 said:

؟

توصلت للحل الحمد لله

 

تم تعديل يناير 3 بواسطه safaa salem5

[ابوخليل]

منذ ساعه, safaa salem5 said:

توصلت للحل الحمد لله

 

جميل جدا

بكذا قريبا نطالب بضمك الى مجموعة خبراء المنتدى

ياليت تضعين الحل هنا .. من اجل نستفيد 

[safaa salem5]

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

جميل جدا

بكذا قريبا نطالب بضمك الى مجموعة خبراء المنتدى

ياليت تضعين الحل هنا .. من اجل نستفيد 

تفضل 

high or low.accdb

[ابوخليل]

 يا سلام .. ما فيه اجمل من كذا

وانا جالس اقدم  محاضرات عن النماذج وتحديثها

شكرا لك .. لن نستغني عن ابداعاتك 

[safaa salem5]

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

 يا سلام .. ما فيه اجمل من كذا

وانا جالس اقدم  محاضرات عن النماذج وتحديثها

شكرا لك .. لن نستغني عن ابداعاتك 

تلميذتك يامنبع الابداع🌷