تغيير قيمة ليبل بناءاً علي قيمة 3 مربعات نص

[elghoultk]

Database1.7zكيف يمكن تغيير قيمة الليبل المشار اليه بناءاً علي قيمة ال 3 مربعات نص الموجودين

 

بحيث تصبح قيمة الليبل ( 17- 13) اذا كان age قيمته من13 الي 150 و كان ال age2 هو  YEARS وكان ال gender  هو male

وتصبح قيمة الليبل ( 16- 12) اذا كان age قيمته من13 الي 150 و كان ال age2 هو  YEARS وكان ال gender  هو female

وتصبح قيمة الليبل ( 15- 11.5) اذا كان age قيمته من2 الي 12و كان ال age2 هو  YEARS وكان ال gender  هو    male او female

male

تم تعديل فبراير 19, 2022 بواسطه elghoultk

[Moosak]

تفضل أخي ..

تضع هذه المعادلة في محرر الأكواد :

Private Function LableValue() As String

If Me.age >= 13 And Me.age <= 150 And Me.Age2 = "YEARS" And Me.gender = "male" Then
LableValue = "( 17- 13)"
End If

If Me.age >= 13 And Me.age <= 150 And Me.Age2 = "YEARS" And Me.gender = "female" Then
LableValue = "( 16- 12)"
End If

If Me.age >= 2 And Me.age <= 12 And Me.Age2 = "YEARS" Then
LableValue = "( 15- 11.5)"
End If

End Function

ثم تضع جملة النداء لها بعد تحديث الحقول الثلاثة وكذلك في حدث الحالي لنموذج بهذه الطريقة :

Private Sub age_AfterUpdate()
Me.Label3.Caption = LableValue
End Sub

Private Sub Form_Current()
Me.Label3.Caption = LableValue
End Sub

Private Sub gender_AfterUpdate()
Me.Label3.Caption = LableValue
End Sub

Private Sub Text6_AfterUpdate()
Me.Label3.Caption = LableValue
End Sub

وهذا هو المرفق بعد التطبيق :

تحديث الليبل.accdb

[elghoultk]

الغالي @Moosak

الكود يعمل بكفاءه
ولكن ماذا لو كان فى الفورم اكثر من ليبل ونريد من كل ليبل منهم ان ياخذ قيم مختلفة مع تغير قيمة مربعات النص الثلاث
وشكراً جزيلاً

 

[Moosak]

3 ساعات مضت, elghoultk said:

الغالي @Moosak

الكود يعمل بكفاءه
ولكن ماذا لو كان فى الفورم اكثر من ليبل ونريد من كل ليبل منهم ان ياخذ قيم مختلفة مع تغير قيمة مربعات النص الثلاث
وشكراً جزيلاً

 

ببساطة يا عزيزنا @elghoultk .. تنسخ الدالة ( لكل ليبل الدالة الخاصة به ) .. 

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

وتحط نداء كل دالة في حدث عند التغيير للعناصر الثلاثة وفي الحالي للنموذج ..

أو للخطوة الأخيرة تعمل دالة ثانية أو روتين عام تحط فيها النداءات كلها وبعدين تنادي الروتين مرة وحدة في حدث عند التغيير .

إن شاء الله يكون واضح 😁

وبالمثال يتضح المقال 🙂 

[elghoultk]

الغالي @Moosak

كل شئ تمام

شكراً جزيلاً