اظهار تعليق تلقائى comment

[DR WALID SALAH]

 السلام عليكم

اسعد الله صباحكم 

فى جدول form  هناك  comment  ارغب باظهاره   تعليق عند ظهور رقم معين 

الجدول ب  Triglycerides  عند كتابه الرقم اعلى من 500 

يظهر فى الكومنت  

increase the risk of heart disease please check for ECG 

تلقائى بدون كتابه 

واذا فى اكثر من تعليق اضيف  نفس الشى والا احتاج اعمل خانه ليها ايضا 

شكرا 

 

test comment.accdb

[amir_adam83]

35 دقائق مضت, DR WALID SALAH said:

 السلام عليكم

اسعد الله صباحكم 

فى جدول form  هناك  comment  ارغب باظهاره   تعليق عند ظهور رقم معين 

الجدول ب  Triglycerides  عند كتابه الرقم اعلى من 500 

يظهر فى الكومنت  

increase the risk of heart disease please check for ECG 

تلقائى بدون كتابه 

واذا فى اكثر من تعليق اضيف  نفس الشى والا احتاج اعمل خانه ليها ايضا 

شكرا 

 

test comment.accdb 640 kB · 0 downloads

 هل هذا ماتريده

test comment.accdb

[Moosak]

تفضل أخي العزيز ..

test comment 2.accdb

Private Sub Triglycerides_AfterUpdate()

If Me.Triglycerides.Value > 500 Then
    Me.comment = Me.comment & "increase the risk of heart disease please check for ECG" & vbNewLine
    
    Else
    Me.comment = ""
    
End If

End Sub

 

تم تعديل أكتوبر 18, 2021 بواسطه Moosak

[ابو جودي]

ومشاركة مع اساتذتى الافاضل واحبائى الكرام واثراء للموضوع

ممكن الحل باستخدام الكود الاتى عن طريق استخدام دالة SELECT CASE

Private Sub Triglycerides_AfterUpdate()
    Select Case Nz(Triglycerides.Value, "")
        Case ""
            Me.comment = ""
        Case Is <= 500
            Me.comment = ""
        Case Is > 500
            Me.comment = "increase the risk of heart disease please check for ECG"
    End Select
End Sub

انا عن نقسى افضل الدالة SELECT CASE لان دالة  IF احيانا تكون لدى البعض صعبة القراءة و نسبة الخطأ قد تكون كبيرة في كتابتها 

test comment.accdb

[DR WALID SALAH]

جزاكم الله خيرا 

 

[DR WALID SALAH]

 

 

تم تعديل أكتوبر 19, 2021 بواسطه DR WALID SALAH

[DR WALID SALAH]

استاذتى الافاضل  

كتب الكود التالى بس امرين فقط اللى ظهر  ممكن تصحيح 

النتايج بين 5.2 - 6.2 كيف  تظهر 

والا اقل من 5.2 مضبوط اللى كتبه انه  يبقى فاضى 

الاصل فى النتيجه تظهر حسب الترتيب التالى CHOLESTEROL

Desirable : < 5.2  
Borderline : 5.2 - 6.2
High : >= 6.2

انا كتبت

() Private Sub Total_Cholesterol_AfterUpdate
    Select Case Nz(Total_Cholesterol.Value, "")
   ""     Case
       

  "" = Me.Text15

 Case Is  > 5.2             
           ""  = Me.Text15
              
             Case Is = 5.2 ,IS =6.2
              "Me.Text15 = "Borderline

        Case Is < 5.2
         "  Me.Text15 = "Desirable
        Case Is >= 6.2
           " Me.Text15 = "High  risk of heart disease 
    End Select

End Sub

 

جزاكم الله خيرا 

 

 

 

test comment.accdb

تم تعديل أكتوبر 19, 2021 بواسطه DR WALID SALAH

[د.كاف يار]

استبدل الكود بالتالي

    Select Case Nz([Total Cholesterol], "")
        Case "": Me.Text15 = ""
        Case 5.2 To 6.2: Me.Text15 = "Borderline"
        Case Is < 5.2: Me.Text15 = "Desirable"
        Case Is > 6.2: Me.Text15 = "High  risk of heart disease "
    End Select

 

[DR WALID SALAH]

الف شكر الكلمات تعجز عن الثناء عليكم 

هل ينفع اطلع التعليقين total cholesterol and Triglycerides  بكود واحد وفى نفس المبربع  تحت بغض  

للمثالين السابق

 Triglycerides =600 

total cholesterol= 7.2

increase the risk of heart disease please check for ECG 

High  risk of heart disease

 

 

[ابو جودي]

اتفضل 

 

test comment (1).accdb

[DR WALID SALAH]

الف شكر استاذنا هذا ليس مستغرب على كرمك وعلمكم 

بس ممكن تشرح لى الكود علشان افهم .

 

 

[ابو جودي]

هذا فضل الله وكرمه سحبانه وتعالى 
الشرح كالاتى

الكود الاول والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي)  - Total Cholesterol

  Select Case Nz([Total Cholesterol].Value & vbNullString, vbNullString)
    Case "": ValTotalCholesterol = vbNullString
    Case 5.2 To 6.2: ValTotalCholesterol = "Borderline"
    Case Is < 5.2: ValTotalCholesterol = "Desirable"
    Case Is > 6.2: ValTotalCholesterol = "High  risk of heart disease "
  End Select

تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTotalCholesterol لهذا الروتين ويتم استدعاءه من خلال هذا الاسم

وكذلك الكود الثانى والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية)  - Triglycerides
 

  Select Case Nz([Triglycerides].Value & vbNullString, vbNullString)
    Case "": ValTriglycerides = vbNullString
    Case Is <= 500: ValTriglycerides = vbNullString
    Case Is > 500: ValTriglycerides = "increase the risk of heart disease please check for ECG"
  End Select

تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTriglycerides لهذا الروتين ويتم استدعاءه من خلال هذا الاسم

 

الجزء الثانى وهو دمج القيم تبعا لبيانات التحاليل فى كل مربع نص تم وضعه كذلك فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم StrResult لهذا الروتين ويتم استدعاءه من خلال هذا الاسم
 

  If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 Then _
  Me.txtcomment = ValTriglycerides Else: Me.txtcomment = ValTotalCholesterol & vbNewLine & ValTriglycerides

وشرح الكود كالاتى .. تم استخدام دالة If الشرطية

لو مربع النص Total Cholesterol فارغ وطول السلسة النصيه بداخله يساوى 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTriglycerides
وان كان مربع النص Total Cholesterol غير فارغ ويحتوى على قيم وطول السلسلة النصيه بداخله اكبر من 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTotalCholesterol + سطر جديد + قيمة الروتين ValTriglycerides

بعد ذلك يتم استدعاء هذا الروتين StrResult   فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي)  - Total Cholesterol 
وكذلك  فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية)  - Triglycerides 

---------

-الدالة  Len.........  طول السلسلة النصية

-الدالة Nz ..........مفيدة للتعبيرات التي قد تتضمن قيم Null. لإجبار تعبير على التقييم إلى قيمة غير خالية حتى عندما يحتوي على قيمة Null
لذلك يتم استخدم الدالة Nz لإرجاع صفر أو سلسلة فارغة أو قيمة مرجع مخصصة

If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0

هذا الجزء يعنى التأكد من طول السلسة النصية داخل مربع النص وان كانت تساوى 0 ان كان مربع النص خالى 

Then ...... عند تحقق الشرط السابق نفذ الامر اللاحق
مربع النص Me.txtcomment  = قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به

Else: ...... تعنى --- إن لم يتحقق الشرط السابق وكان مربع النص طول السلسة به اكبر من صفر نفر الامر التالى بدلا من الامر السابق 
Me.txtcomment =  قيمة المتغير العام  ValTotalCholesterol  الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به

- & vbNewLine & اضافة سطر جديد قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به

تم تعديل أكتوبر 20, 2021 بواسطه ابا جودى

[DR WALID SALAH]

رائع الف لا تليون شكر  وعظمه على عظمه 

ايه الجمال ده اسلوب بيسط وراقى 

استاذنا يشرفى ان اكون تلميذ وليس طالب 

تحباتى اليكم والى منتدنا الرائع

 

 

[ابو جودي]

العفو يا دكتور تحت امرك

انا طويلب صغير اقوم بالتعلم من اساتذتى العظماء فى هذا الصرح الرائع