اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حساب الوزن المثالي

ameer.iraq.93

بواسطه ameer.iraq.93
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

ameer.iraq.93

ameer.iraq.93

قام بنشر
قام بنشر

السلام عليكم اساتذتي الكرام 

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

قاعدة البيانات تحتوي على اسم الشخص وعمره ووزنه وطوله 

النتيجة اذا كان وزن الشخص غير مثالي يكتب ليس مثالي ومقدار الزيادة

وكما موضح في الجدول الموضح في لصورة

واكون ممنون منكم

images.jpg

TQTHAMI

TQTHAMI

قام بنشر
قام بنشر (معدل)

 

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

عزيزي المنتسب

عند وضع مثالك يجب ان يكون

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

لأن الشباب هنا لديهم أشغالهم اليومية

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

فيتوجب عليك بعد حل مسألتك التالي:

1 – الشكر لله أولا وثم الشكر لمن قام بمساعدتك ثانيا

2 – وضع أشاره أفضل إجابة على الإجابة التي تناسب طلبك

3 – وضع لأيك لمن حل طلبك أو شارك في الحل

(من لا يشكر الناس لا يشكر الله)

تم تعديل بواسطه TQTHAMI
  • Like 1
ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر
15 دقائق مضت, TQTHAMI said:

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

موضوعك انشاء الله سهل لكن ارفق مثال ليتم العمل عليه

تدلل استاذ هذا مثال

ودزيت صورة للقياسات الرسمية 

photo_2023-02-27_21-32-48.jpg

الوزن المثالي.accdb

Eng.Qassim

Eng.Qassim

قام بنشر
قام بنشر

سؤال جميل استاذ امير ..

الموضوع يحتاج  لموديول نمرر به العمر  والوزن عن طريق استعلام للمقارنة مع العمر والوزن للشخص 

مجرد فكرة راودتني ..بس مو هسة ...لان  قفلت 😄

  • Like 2
ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر
8 دقائق مضت, Eng.Qassim said:

سؤال جميل استاذ امير ..

الموضوع يحتاج  لموديول نمرر به العمر  والوزن عن طريق استعلام للمقارنة مع العمر والوزن للشخص 

مجرد فكرة راودتني ..بس مو هسة ...لان  قفلت 😄

الف رحمة على والديك 

نفس ما تفضلت به استاذ قاسم 

مقارنة بين العمر والوزن والطول وفق معايير ثابته 

اذا كانت النتيجة خارج المعايير المطلوبة يكتب وزن غير مثالي ومقدار الزيادة 

وهذه هي المعايير كما موض

الف رحمة على والديك 

نفس ما تفضلت به استاذ قاسم 

مقارنة بين العمر والوزن والطول وفق معايير ثابته 

اذا كانت النتيجة خارج المعايير المطلوبة يكتب وزن غير مثالي ومقدار الزيادة 

وهذه هي المعايير كما موضح في الصورة

photo_2023-02-27_21-32-48.jpg

Eng.Qassim

Eng.Qassim

قام بنشر
قام بنشر (معدل)

انا عيوني زغللت وانا اكتب الكود ...طبعا لم اجربه لحد الان وربما فيه خطأ...لكني احب مشاركة بقية الاخوة للتصحيح

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

Function GetIdealWeight(age As Integer, height As Integer) As Double
    Select Case True
        Case age <= 24
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 57
                Case Is <= 160
                    GetIdealWeight = 60
                Case Else
                    GetIdealWeight = 63
            End Select
        Case age <= 29
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 60
                Case Is <= 160
                    GetIdealWeight = 63
                Case Else
                    GetIdealWeight = 66
            End Select
        Case age <= 39
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 61
                Case Is <= 160
                    GetIdealWeight = 64
                Case Else
                    GetIdealWeight = 68
            End Select
        Case age <= 49
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 64
                Case Is <= 160
                    GetIdealWeight = 67
                Case Else
                    GetIdealWeight = 71
            End Select
        Case Else  'age >= 50 لاكثر من 50 سنة 
            Select Case height
                Case Is <= 150
                    GetIdealWeight = 67
                Case Is <= 160
                    GetIdealWeight = 70
                Case Else
                    GetIdealWeight = 74
            End Select
    End Select
End Function

 

تم تعديل بواسطه Eng.Qassim
  • Like 1
  • Thanks 1
ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر

عاشت ايدك استاذ ورحمة الله والديك 

كفيت ووففيت بس استاذ بقة شرط العمر ومقدار الزيادة ان وجد 

وبراحتك استاذ اي وقت نكمل الفكرة وتعبتك وياي

ابوخليل

ابوخليل

قام بنشر
قام بنشر

السلام عليكم 

الصورة غير واضحة ، الجزء السفلي الايسر من الصورة مظلل بالسواد والاسطر السفلية لا تظهر

حاول ترفق صورة اكثر جودة

  • Like 1
Eng.Qassim

Eng.Qassim

قام بنشر
قام بنشر
7 ساعات مضت, ابوخليل said:

الصورة غير واضحة ، الجزء السفلي الايسر من الصورة مظلل بالسواد والاسطر السفلية لا تظهر

مضبوط كلام استاذ ابو خليل ولهذا اتعبتني الارقام..

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

weight.rar

  • Like 1
ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر
9 ساعات مضت, ابوخليل said:

السلام عليكم 

الصورة غير واضحة ، الجزء السفلي الايسر من الصورة مظلل بالسواد والاسطر السفلية لا تظهر

حاول ترفق صورة اكثر جودة

وعليكم السلام استاذ 

تفضل  استاذ هذه صورة اكثر وضوح 

Untitled.png

ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر
منذ ساعه, Eng.Qassim said:

مضبوط كلام استاذ ابو خليل ولهذا اتعبتني الارقام..

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

weight.rar 19.43 kB · 2 downloads

عاشت ايدك استاذ قاسم  

وتعبتك وياي صح لمعالة فيها خطا 

وهذه صورة للقياسات اكثر وضوحا

Untitled.png

  • أفضل إجابة
ابوخليل

ابوخليل

قام بنشر
  • أفضل إجابة
قام بنشر

تفضل 

هذه الوحدة النمطية الخاصة كما في الصورة اعلاه

افتح الاستعلام وانظر النتيجة : الرقم الموجب زيادة والرقم السالب نقص والصفر هو الوزن المثالي

يمكنك بناء نموذجك على الاستعلام  ولا حظ ان اي تغيير على الارقام  سيتغير التقييم آليا

 يمكن ايضا ادخال الجنس ذكر / انثى  ضمن الوحدة النمطية

ان رغبت في ذلك سوف اضع لك الاساس وانت تدخل الاوزان

  

Public Function GetPerfectWeight(xheight As Integer, xold As Integer) As Double

If xheight = 150 Then
               If xold <= 24 Then GetPerfectWeight = 57
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 60
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 61
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 64
               If xold >= 50 Then GetPerfectWeight = 67
End If
If xheight = 152 Then
               If xold <= 24 Then GetPerfectWeight = 59
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 62
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 63
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 65
               If xold >= 50 Then GetPerfectWeight = 68
End If
If xheight = 154 Then
               If xold <= 24 Then GetPerfectWeight = 60
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 63
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 64
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 67
               If xold >= 50 Then GetPerfectWeight = 70
 End If
If xheight = 156 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 64
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 66
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 68
               If xold >= 50 Then GetPerfectWeight = 72
End If
If xheight = 158 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 66
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 67
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 71
               If xold >= 50 Then GetPerfectWeight = 73

End If
If xheight = 160 Then
               If xold <= 24 Then GetPerfectWeight = 65
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 67
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 69
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 72
               If xold >= 50 Then GetPerfectWeight = 75
End If
If xheight = 162 Then
               If xold <= 24 Then GetPerfectWeight = 66
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 68
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 70
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 74
               If xold >= 50 Then GetPerfectWeight = 76
 End If
If xheight = 164 Then
               If xold <= 24 Then GetPerfectWeight = 67
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 69
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 72
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 75
               If xold >= 50 Then GetPerfectWeight = 77
 End If
If xheight = 166 Then
               If xold <= 24 Then GetPerfectWeight = 68
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 71
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 74
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 76
               If xold >= 50 Then GetPerfectWeight = 79
  End If
If xheight = 168 Then
               If xold <= 24 Then GetPerfectWeight = 69
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 73
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 75
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 78
               If xold >= 50 Then GetPerfectWeight = 80

End If
If xheight = 170 Then
               If xold <= 24 Then GetPerfectWeight = 70
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 74
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 77
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 80
               If xold >= 50 Then GetPerfectWeight = 83
End If
If xheight = 172 Then
               If xold <= 24 Then GetPerfectWeight = 72
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 76
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 78
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 81
               If xold >= 50 Then GetPerfectWeight = 85
 End If
If xheight = 174 Then
               If xold <= 24 Then GetPerfectWeight = 74
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 77
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 80
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 83
               If xold >= 50 Then GetPerfectWeight = 86
  End If
If xheight = 176 Then
               If xold <= 24 Then GetPerfectWeight = 76
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 78
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 82
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 85
               If xold >= 50 Then GetPerfectWeight = 88
   End If
If xheight = 178 Then
               If xold <= 24 Then GetPerfectWeight = 77
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 80
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 83
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 87
               If xold >= 50 Then GetPerfectWeight = 90

End If
If xheight = 180 Then
               If xold <= 24 Then GetPerfectWeight = 79
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 82
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 85
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 89
               If xold >= 50 Then GetPerfectWeight = 92
End If
If xheight = 182 Then
               If xold <= 24 Then GetPerfectWeight = 81
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 84
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 87
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 90
               If xold >= 50 Then GetPerfectWeight = 94
   End If
If xheight = 184 Then
               If xold <= 24 Then GetPerfectWeight = 82
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 86
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 89
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 92
               If xold >= 50 Then GetPerfectWeight = 96
  End If
If xheight = 186 Then
               If xold <= 24 Then GetPerfectWeight = 84
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 87
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 90
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 94
               If xold >= 50 Then GetPerfectWeight = 98
  End If
If xheight = 188 Then
               If xold <= 24 Then GetPerfectWeight = 85
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 89
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 92
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 96
               If xold >= 50 Then GetPerfectWeight = 100
End If
If xheight = 190 Then
               If xold <= 24 Then GetPerfectWeight = 86
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 90
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 95
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 98
               If xold >= 50 Then GetPerfectWeight = 102

End If
If xheight = 192 Then
               If xold <= 24 Then GetPerfectWeight = 87
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 91
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 96
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 100
               If xold >= 50 Then GetPerfectWeight = 104
End If
If xheight = 194 Then
               If xold <= 24 Then GetPerfectWeight = 88
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 92
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 98
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 102
               If xold >= 50 Then GetPerfectWeight = 106
  End If
If xheight = 196 Then
               If xold <= 24 Then GetPerfectWeight = 89
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 93
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 100
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 104
               If xold >= 50 Then GetPerfectWeight = 108
  End If
If xheight = 198 Then
               If xold <= 24 Then GetPerfectWeight = 90
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 94
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 101
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 106
               If xold >= 50 Then GetPerfectWeight = 110
   End If
If xheight = 200 Then
               If xold <= 24 Then GetPerfectWeight = 91
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 95
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 103
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 108
               If xold >= 50 Then GetPerfectWeight = 112
End If
End Function

 

الوزن المثالي2.rar

  • Like 1
  • Thanks 1
ابوخليل

ابوخليل

قام بنشر
قام بنشر

تفضل

تم تعديل المثال باضافة الجنس الى الجدول ، والتعديل في الاستعلام على اساس هذا التعديل ،

وتهيئة الوحدة النمطية لوضع اوزان الإناث .. لاني نسخت طبق الاصل من الذكور  .. كل ما عليك عمله هو تغيير الاوزان الى ما يناسب النساء

الوزن المثالي3.rar

  • Thanks 1
Eng.Qassim

Eng.Qassim

قام بنشر
قام بنشر

فعلا اذا حظر الماء يبطل التيمم مثلما يقولون..احسنت استاذ @ابوخليل

كنت افكر بعمل جدول للاوزان حسب العمر واعمل موديول يفر على السجلات ويعمل مقارنة

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

مرفق ملف لمن اراد الفائدة

 

W.rar

  • Like 2
ابوخليل

ابوخليل

قام بنشر
قام بنشر

شكرا لثنائك مهندس قاسم .. بارك الله فيك وكتب اجرك

مثلك تماما في البداية جاء على بالي الجدول

ولكني نظرت فإذا القيم ثابتة لا يمكن ان تتبدل . لذا افضل مكان لها هو الكود

الاعمال التي يحتمل ان يجري عليها التعديل مثل .. جداول الحصص المدرسية او سلم الرواتب والمكافآت ... وامثالها .. فهذه يجب ن يكون مكانها الجدول

  • Like 1
ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر
6 ساعات مضت, ابوخليل said:

تفضل 

هذه الوحدة النمطية الخاصة كما في الصورة اعلاه

افتح الاستعلام وانظر النتيجة : الرقم الموجب زيادة والرقم السالب نقص والصفر هو الوزن المثالي

يمكنك بناء نموذجك على الاستعلام  ولا حظ ان اي تغيير على الارقام  سيتغير التقييم آليا

 يمكن ايضا ادخال الجنس ذكر / انثى  ضمن الوحدة النمطية

ان رغبت في ذلك سوف اضع لك الاساس وانت تدخل الاوزان

  

Public Function GetPerfectWeight(xheight As Integer, xold As Integer) As Double

If xheight = 150 Then
               If xold <= 24 Then GetPerfectWeight = 57
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 60
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 61
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 64
               If xold >= 50 Then GetPerfectWeight = 67
End If
If xheight = 152 Then
               If xold <= 24 Then GetPerfectWeight = 59
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 62
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 63
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 65
               If xold >= 50 Then GetPerfectWeight = 68
End If
If xheight = 154 Then
               If xold <= 24 Then GetPerfectWeight = 60
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 63
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 64
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 67
               If xold >= 50 Then GetPerfectWeight = 70
 End If
If xheight = 156 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 64
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 66
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 68
               If xold >= 50 Then GetPerfectWeight = 72
End If
If xheight = 158 Then
               If xold <= 24 Then GetPerfectWeight = 63
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 66
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 67
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 71
               If xold >= 50 Then GetPerfectWeight = 73

End If
If xheight = 160 Then
               If xold <= 24 Then GetPerfectWeight = 65
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 67
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 69
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 72
               If xold >= 50 Then GetPerfectWeight = 75
End If
If xheight = 162 Then
               If xold <= 24 Then GetPerfectWeight = 66
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 68
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 70
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 74
               If xold >= 50 Then GetPerfectWeight = 76
 End If
If xheight = 164 Then
               If xold <= 24 Then GetPerfectWeight = 67
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 69
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 72
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 75
               If xold >= 50 Then GetPerfectWeight = 77
 End If
If xheight = 166 Then
               If xold <= 24 Then GetPerfectWeight = 68
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 71
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 74
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 76
               If xold >= 50 Then GetPerfectWeight = 79
  End If
If xheight = 168 Then
               If xold <= 24 Then GetPerfectWeight = 69
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 73
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 75
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 78
               If xold >= 50 Then GetPerfectWeight = 80

End If
If xheight = 170 Then
               If xold <= 24 Then GetPerfectWeight = 70
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 74
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 77
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 80
               If xold >= 50 Then GetPerfectWeight = 83
End If
If xheight = 172 Then
               If xold <= 24 Then GetPerfectWeight = 72
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 76
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 78
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 81
               If xold >= 50 Then GetPerfectWeight = 85
 End If
If xheight = 174 Then
               If xold <= 24 Then GetPerfectWeight = 74
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 77
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 80
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 83
               If xold >= 50 Then GetPerfectWeight = 86
  End If
If xheight = 176 Then
               If xold <= 24 Then GetPerfectWeight = 76
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 78
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 82
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 85
               If xold >= 50 Then GetPerfectWeight = 88
   End If
If xheight = 178 Then
               If xold <= 24 Then GetPerfectWeight = 77
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 80
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 83
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 87
               If xold >= 50 Then GetPerfectWeight = 90

End If
If xheight = 180 Then
               If xold <= 24 Then GetPerfectWeight = 79
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 82
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 85
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 89
               If xold >= 50 Then GetPerfectWeight = 92
End If
If xheight = 182 Then
               If xold <= 24 Then GetPerfectWeight = 81
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 84
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 87
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 90
               If xold >= 50 Then GetPerfectWeight = 94
   End If
If xheight = 184 Then
               If xold <= 24 Then GetPerfectWeight = 82
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 86
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 89
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 92
               If xold >= 50 Then GetPerfectWeight = 96
  End If
If xheight = 186 Then
               If xold <= 24 Then GetPerfectWeight = 84
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 87
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 90
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 94
               If xold >= 50 Then GetPerfectWeight = 98
  End If
If xheight = 188 Then
               If xold <= 24 Then GetPerfectWeight = 85
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 89
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 92
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 96
               If xold >= 50 Then GetPerfectWeight = 100
End If
If xheight = 190 Then
               If xold <= 24 Then GetPerfectWeight = 86
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 90
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 95
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 98
               If xold >= 50 Then GetPerfectWeight = 102

End If
If xheight = 192 Then
               If xold <= 24 Then GetPerfectWeight = 87
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 91
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 96
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 100
               If xold >= 50 Then GetPerfectWeight = 104
End If
If xheight = 194 Then
               If xold <= 24 Then GetPerfectWeight = 88
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 92
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 98
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 102
               If xold >= 50 Then GetPerfectWeight = 106
  End If
If xheight = 196 Then
               If xold <= 24 Then GetPerfectWeight = 89
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 93
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 100
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 104
               If xold >= 50 Then GetPerfectWeight = 108
  End If
If xheight = 198 Then
               If xold <= 24 Then GetPerfectWeight = 90
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 94
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 101
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 106
               If xold >= 50 Then GetPerfectWeight = 110
   End If
If xheight = 200 Then
               If xold <= 24 Then GetPerfectWeight = 91
If xold >= 25 And xold <= 29 Then GetPerfectWeight = 95
If xold >= 30 And xold <= 39 Then GetPerfectWeight = 103
If xold >= 40 And xold <= 49 Then GetPerfectWeight = 108
               If xold >= 50 Then GetPerfectWeight = 112
End If
End Function

 

الوزن المثالي2.rar 20.23 kB · 8 downloads

الف رحمة على والديك استاذ  

اصبح مثل ما نطلوب في الجدول 

ربي يحفظك ويوفقك واعلى المراتب ان شاء الله

6 ساعات مضت, ابوخليل said:

تفضل

تم تعديل المثال باضافة الجنس الى الجدول ، والتعديل في الاستعلام على اساس هذا التعديل ،

وتهيئة الوحدة النمطية لوضع اوزان الإناث .. لاني نسخت طبق الاصل من الذكور  .. كل ما عليك عمله هو تغيير الاوزان الى ما يناسب النساء

الوزن المثالي3.rar 24.67 kB · 7 downloads

الله يحفظك ويوفقك استاذ بالدنيا والاخرة

ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر
5 ساعات مضت, Eng.Qassim said:

فعلا اذا حظر الماء يبطل التيمم مثلما يقولون..احسنت استاذ @ابوخليل

كنت افكر بعمل جدول للاوزان حسب العمر واعمل موديول يفر على السجلات ويعمل مقارنة

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

مرفق ملف لمن اراد الفائدة

 

W.rar 44.02 kB · 10 downloads

كفو منك مهندس قاسم 

الله يحفظك ويوفقك استاذي 

كفييت ووفيت ان شاء الله اشوفك باعلى المراتب والمناصب 

ameer.iraq.93

ameer.iraq.93

قام بنشر
  • الكاتب
قام بنشر

@ابوخليل  @Eng.Qassim 

شكر وتقدير

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

الله يحفظكم ويوفقكم وان شاء الله في اعلى المراتب والمناصب 

كذلك اشكر الاخوة @TQTHAMI ,والاخ @AbuuAhmed في مساعدتي

الله يحفظكم ويوفكم ان شاء الله 

images (1).jpg

  • Like 2
  • Thanks 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept