اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

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

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

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

لو.rarFetching info...

 

قام بنشر
  في 29‏/1‏/2017 at 07:58, محمود أبوسيف said:

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

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

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

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

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

لو.rarFetching info...

 

Expand  

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

لو.rar

  • Like 2
قام بنشر
  في 29‏/1‏/2017 at 08:50, Shivan Rekany said:

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

لو.rarFetching info...

Expand  

 

  في 29‏/1‏/2017 at 08:53, بحار الاكسس said:

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

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

تحيات للجميع

 

Expand  

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

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

قام بنشر

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

 

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

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

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

 

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

 

شكرا

جعفر

قام بنشر
  في 30‏/1‏/2017 at 20:07, jjafferr said:

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

 

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

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

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

 

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

 

شكرا

جعفر

Expand  

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

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 دون ان يدرب نفسه لصنع الكود بنفسه

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

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

وهكذا 

قام بنشر
  في 31‏/1‏/2017 at 09:46, بحار الاكسس said:

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

Expand  

والله يعلم 

  في 31‏/1‏/2017 at 09:46, بحار الاكسس said:

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

Expand  

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

  في 31‏/1‏/2017 at 09:46, بحار الاكسس said:

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

Expand  

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

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

تحياتي 

قام بنشر
  في 31‏/1‏/2017 at 09:46, بحار الاكسس said:

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

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

Expand  

 

  في 31‏/1‏/2017 at 16:28, Shivan Rekany said:

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

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

Expand  

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

تقبلو تحياتي

 

  في 30‏/1‏/2017 at 20:07, jjafferr said:

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

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

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

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

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

شكرا

جعفر

Expand  

 

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