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

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

قام بنشر

المطلوب
لو السن أقل من أو يساوي 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:

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

شكرا

جعفر

 

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