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

IF لو ( بعدة شروط)


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

المطلوب
لو السن أقل من أو يساوي 3 سنوات

( تختفي أو تغلق ) خانة رقم المحمول وخانة المؤهل الدراسي وخانة الحالة الإجتماعية وخانة هل يعمل وخانة هل يحفظ القرآن وخانة هل يدخن .
ولو السن أكبر من أو يساوي 4 سنوات

( تختفي أو تغلق ) خانة رقم المحمول  وخانة الحالة الإجتماعية وخانة هل يعمل  وخانة هل يدخن . وتظهر خانة المؤهل الدراسي وخانة هل يحفظ القرآن.
ولو السن أكبر من أو يساوي 12 سنوات

( تختفي أو تغلق ) خانة رقم المحمول  وخانة الحالة الإجتماعية  . وتظهر خانة المؤهل الدراسي وخانة هل يحفظ القرآن خانة هل يعمل .    أما خانة هل يدخن فإن كان النوع ذكر تظهر خانة (هل يدخن) وإن كانت أنثي (لا تظهر) .
ولو السن أكبر من أو يساوي 15 سنوات

(تظهر جميع الخانات ) ماعدا خانة هل يدخن فإن كان النوع ذكر تظهر خانة (هل يدخن) وإن كانت أنثي (لا تظهر).

لو.rar

 

رابط هذا التعليق
شارك

47 دقائق مضت, محمود أبوسيف said:

المطلوب
لو السن أقل من أو يساوي 3 سنوات

( تختفي أو تغلق ) خانة رقم المحمول وخانة المؤهل الدراسي وخانة الحالة الإجتماعية وخانة هل يعمل وخانة هل يحفظ القرآن وخانة هل يدخن .
ولو السن أكبر من أو يساوي 4 سنوات

( تختفي أو تغلق ) خانة رقم المحمول  وخانة الحالة الإجتماعية وخانة هل يعمل  وخانة هل يدخن . وتظهر خانة المؤهل الدراسي وخانة هل يحفظ القرآن.
ولو السن أكبر من أو يساوي 12 سنوات

( تختفي أو تغلق ) خانة رقم المحمول  وخانة الحالة الإجتماعية  . وتظهر خانة المؤهل الدراسي وخانة هل يحفظ القرآن خانة هل يعمل .    أما خانة هل يدخن فإن كان النوع ذكر تظهر خانة (هل يدخن) وإن كانت أنثي (لا تظهر) .
ولو السن أكبر من أو يساوي 15 سنوات

(تظهر جميع الخانات ) ماعدا خانة هل يدخن فإن كان النوع ذكر تظهر خانة (هل يدخن) وإن كانت أنثي (لا تظهر).

لو.rar

 

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

لو.rar

  • Like 2
رابط هذا التعليق
شارك

12 دقائق مضت, Shivan Rekany said:

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

لو.rar

 

9 دقائق مضت, بحار الاكسس said:

اتفضل التعديل ....

انا اعطيته الطريقة وللعضو المحترم حرية الاختيار من Enable OR Visible 

تحيات للجميع

 

أشكركم جميعاً وبارك الله فيكم وزادكم علماً وجعلكم الله عوناً لنا جميعاً ( أشكرك أخي الفاضل بحار الأكسس علي سرعة الإستجابة  وأيضاً كل الشكر والتقدير للأخ شفان )

(لقد تم المطلوب )

رابط هذا التعليق
شارك

السلام عليكم:smile:

 

اسمحوا لي ان اطلب منكم هذا الطلب:
هذا الصرح/المنتدى تعليمي ، ولا يختص بصاحب السؤال/الموضوع ،

فرجاء ممن يعطي الاجابة ، ان يشرح الطريقة حتى يستفيد الجميع :smile:

المرفق يستفيد منه صاحب السؤال ، ولكن شرح المحترف/الخبير يستفيد منه كل من يقرأ الموضوع:smile:

 

تصوروا المنتدى بدون اي شرح وتوضيح ، وفقط مرفق!!

 

شكرا

جعفر

رابط هذا التعليق
شارك

13 ساعات مضت, jjafferr said:

السلام عليكم:smile:

 

اسمحوا لي ان اطلب منكم هذا الطلب:
هذا الصرح/المنتدى تعليمي ، ولا يختص بصاحب السؤال/الموضوع ،

فرجاء ممن يعطي الاجابة ، ان يشرح الطريقة حتى يستفيد الجميع :smile:

المرفق يستفيد منه صاحب السؤال ، ولكن شرح المحترف/الخبير يستفيد منه كل من يقرأ الموضوع:smile:

 

تصوروا المنتدى بدون اي شرح وتوضيح ، وفقط مرفق!!

 

شكرا

جعفر

انا استخدمت هذا الكود
 

If Me.Age <= 3 Then
    Me.Mobile.Enabled = False
    Me.School.Enabled = False
    Me.Social.Enabled = False
    Me.work.Enabled = False
    Me.Quran.Enabled = False
    Me.Smoking.Enabled = False
ElseIf Me.Age > 3 And Me.Age < 12 Then
            Me.Mobile.Enabled = False
            Me.School.Enabled = True
            Me.Social.Enabled = False
            Me.work.Enabled = False
            Me.Quran.Enabled = True
            Me.Smoking.Enabled = False
ElseIf Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÐßÑ" Then
                Me.Mobile.Enabled = False
                Me.School.Enabled = True
                Me.Social.Enabled = False
                Me.work.Enabled = True
                Me.Quran.Enabled = True
                Me.Smoking.Enabled = True
ElseIf Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÇäËì" Then
                    Me.Mobile.Enabled = False
                    Me.School.Enabled = True
                    Me.Social.Enabled = False
                    Me.work.Enabled = True
                    Me.Quran.Enabled = True
                    Me.Smoking.Enabled = False
ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÇäËì" Then
                        Me.Mobile.Enabled = True
                        Me.School.Enabled = True
                        Me.Social.Enabled = True
                        Me.work.Enabled = True
                        Me.Quran.Enabled = True
                        Me.Smoking.Enabled = False
ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÐßÑ" Then
                        Me.Mobile.Enabled = True
                        Me.School.Enabled = True
                        Me.Social.Enabled = True
                        Me.work.Enabled = True
                        Me.Quran.Enabled = True
                        Me.Smoking.Enabled = True
End If
End Sub

Private Sub Gender_AfterUpdate()
If Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÐßÑ'" Then
                Me.Mobile.Enabled = False
                Me.School.Enabled = True
                Me.Social.Enabled = False
                Me.work.Enabled = True
                Me.Quran.Enabled = True
                Me.Smoking.Enabled = True
ElseIf Me.Age > 11 And Me.Age < 15 And Nz(Me.Gender) = "ÇäËì" Then
                    Me.Mobile.Enabled = False
                    Me.School.Enabled = True
                    Me.Social.Enabled = False
                    Me.work.Enabled = True
                    Me.Quran.Enabled = True
                    Me.Smoking.Enabled = False
ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÇäËì" Then
                        Me.Mobile.Enabled = True
                        Me.School.Enabled = True
                        Me.Social.Enabled = True
                        Me.work.Enabled = True
                        Me.Quran.Enabled = True
                        Me.Smoking.Enabled = False
ElseIf Me.Age >= 15 And Nz(Me.Gender) = "ÐßÑ" Then
                        Me.Mobile.Enabled = True
                        Me.School.Enabled = True
                        Me.Social.Enabled = True
                        Me.work.Enabled = True
                        Me.Quran.Enabled = True
                        Me.Smoking.Enabled = True
End If

 

رابط هذا التعليق
شارك

تمام هذا  جيد جدا ومجهود تشكر عليه 

لكن ايهما افضل ان اعطى حل جزئى للمتسائل وهو يكمل ليتعلم ويدرب يده على الكود ام اعطيه الكود كاملا ياخذه COPY  & PAST دون ان يدرب نفسه لصنع الكود بنفسه

كما قال المثل ""علمنى الصيد افضل ما تعطينى سمكة"

لانك لو اعطيتنى السمكة اكلتها الان ثم هجوع مرة اخرى لكن لو علمتنى الصيد فساطعم نفسى 

وهكذا 

رابط هذا التعليق
شارك

6 ساعات مضت, بحار الاكسس said:

لكن ايهما افضل

والله يعلم 

6 ساعات مضت, بحار الاكسس said:

ان اعطى حل جزئى للمتسائل وهو يكمل ليتعلم ويدرب يده على الكود

ولكي تخطي وتجي من جديد 
وتخطأ و يجي من جديد
اي يعني بكون نحل موضوع واحد بكم شهور !! وشو بنعمل مع الاصدقاءنا الاخرى اللي بيسائل سؤال في مشاركات الجديدة ؟

6 ساعات مضت, بحار الاكسس said:

ام اعطيه الكود كاملا ياخذه COPY  & PAST دون ان يدرب نفسه لصنع الكود بنفسه

هذا يرجع اليه هل هو يتدرب على ذاك الكود ام لا !!
وهذا تابعه اذا بيريد راح يعمل المطلوب والا ما علينا الا البلاغ 

هذا والله يعلم وهو المستعان
واعتذر من صاحب الموضوع ومن الكل الاعضاء على هذه المشاركة لانه بعيد عن الموضوع

تحياتي 

رابط هذا التعليق
شارك

6 ساعات مضت, بحار الاكسس said:

تمام هذا  جيد جدا ومجهود تشكر عليه 

لكن ايهما افضل ان اعطى حل جزئى للمتسائل وهو يكمل ليتعلم ويدرب يده على الكود ام اعطيه الكود كاملا ياخذه COPY  & PAST دون ان يدرب نفسه لصنع الكود بنفسه

 

13 دقائق مضت, Shivan Rekany said:

ولكي تخطي وتجي من جديد 
وتخطأ و يجي من جديد
اي يعني بكون نحل موضوع واحد بكم شهور !! وشو بنعمل مع الاصدقاءنا الاخرى اللي بيسائل سؤال في مشاركات الجديدة ؟

هذا يرجع اليه هل هو يتدرب على ذاك الكود ام لا !!
وهذا تابعه اذا بيريد راح يعمل المطلوب والا ما علينا الا البلاغ 
تحياتي 

إخوتي الأعزاء كلا الرأيين صحيح ولكن هناك حل وسط وهو ( الذي قدمه الأخ الفاضل جعفر )(الحل + الشرح) فأنا أري أنها مناسبة جداً . فطبيعي أن الذي يبحث عن كود أو مسألة لابد وأنه سيفحصها جيداً حتي عندما يحتاج إليها مرة أخري يعود إليها .

تقبلو تحياتي

 

20 ساعات مضت, jjafferr said:

السلام عليكم:smile:

اسمحوا لي ان اطلب منكم هذا الطلب:
هذا الصرح/المنتدى تعليمي ، ولا يختص بصاحب السؤال/الموضوع ،

فرجاء ممن يعطي الاجابة ، ان يشرح الطريقة حتى يستفيد الجميع :smile:

المرفق يستفيد منه صاحب السؤال ، ولكن شرح المحترف/الخبير يستفيد منه كل من يقرأ الموضوع:smile:

تصوروا المنتدى بدون اي شرح وتوضيح ، وفقط مرفق!!

شكرا

جعفر

 

رابط هذا التعليق
شارك

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

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



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

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

Important Information