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

تفعيل عدد من الحقول بشرط عدد معين

bhlol

بواسطه bhlol
في قسم الأكسيس Access

 مشاركة
إذهب إلى أفضل إجابة Solved by Shivan Rekany,

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

bhlol

bhlol

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

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

الفصل الاول يمتحنون في 3 مواد

الفصل الثاني يمتحنون في 5 مواد .

الفصل الثالث يمتحنون في 6 مواد

اريد طريقة يكون فيها دالة لتفعيل عدد الحقول  الذي اريده من 1 الى6 مثلا احدد اثنان حقل او ثلاثة يعني حسب العدد الذي ادخله تتفعل الحقول ثم ادخل الدرجات

New Microsoft Office Access 2007 Database.rar

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

bhlol

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

تسلم استاذ تعبتك و اعيد رفع المثال

  A1 A2 A3 A4 A5 A6  هي الامتحانات

 FINAL A هو الامتحان النهائي مفعل دائما

في حالة combo1 تساوي صفر لايتفعل اي منها

اذا 1 يتفعل A1

اذا 2 يتفعل A1 و A2

اذا 3 يتفعل A1 و A2 و A3        

اذا 4 يتفعل A1 و A2 و  A3 و A4

اذا 5 يتفعل A1 و A2 و  A3 وA4  وA5

اذا 6 يتفعل A1 و A2 و  A3 وA4  وA5  وA6 لادخال الدرجات

 AVR هو المعدل =A1+ A2 +A3+ A4+ A5+ A6)+FINAL A )\عدد المدخلات المفعلة ل( A1 A2 A3 A4 A5 A6)+(1  ) و هو  FINAL A

A.rar

رابط هذا التعليق
شارك
محمدنجار

محمدنجار

قام بنشر
قام بنشر (معدل)
منذ ساعه, bhlol said:

FINAL A هو الامتحان النهائي مفعل دائما

في حالة combo1 تساوي صفر لايتفعل اي منها

اذا 1 يتفعل A1

اذا 2 يتفعل A1 و A2

اذا 3 يتفعل A1 و A2 و A3        

اذا 4 يتفعل A1 و A2 و  A3 و A4

اذا 5 يتفعل A1 و A2 و  A3 وA4  وA5

اذا 6 يتفعل A1 و A2 و  A3 وA4  وA5  وA6 لادخال الدرجات

::: تفضل تمت الاجابة على جزء تفعيل الحقول .... أما فيما يخص المعدل Var فيرجى ادراجه في مشاركة منفصلة جديدة كما تنص عليه قواعد المنتدى .... بالتوفيق

A_UP.rar

تم تعديل بواسطه محمدنجار
رابط هذا التعليق
شارك
bhlol

bhlol

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

شكرا استاذ النجار على مجهودك

 

عذرا استاذ انا قصدي هو استخدام دالة   IF

لان الحقول كلها الان غير مفعلة حتى لو غيرة قيمة combo1 الى اي قيمة من  1الى  6 هي لا تتفعل لادخال البيانات

الكود الذي اريده مشابه الى هذا الموضوع http://arabteam2000-forum.com/index.php?/topic/288369-كيف-يمكن-تفعيل-حقل-بالاعتماد-على-حقل-اخر/

بس بشكل اوسع في مثالي

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

Shivan Rekany

قام بنشر
قام بنشر (معدل)
6 ساعات مضت, bhlol said:

عذرا استاذ انا قصدي هو استخدام دالة   IF

استأذن من استاذنا @محمدنجار

اتفضل اليك هذا 

Private Sub combo1_AfterUpdate()
    If Me.combo1 = 0 Then
            Me.A1.Enabled = False
            Me.A2.Enabled = False
            Me.A3.Enabled = False
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
        ElseIf Me.combo1 = 1 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = False
            Me.A3.Enabled = False
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
        ElseIf Me.combo1 = 2 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = False
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
        ElseIf Me.combo1 = 3 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
        ElseIf Me.combo1 = 4 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = True
            Me.A5.Enabled = False
            Me.A6.Enabled = False
        ElseIf Me.combo1 = 5 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = True
            Me.A5.Enabled = True
            Me.A6.Enabled = False
        ElseIf Me.combo1 = 6 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = True
            Me.A5.Enabled = True
            Me.A6.Enabled = True
    End If

End Sub

 

A.rar

تم تعديل بواسطه Shivan Rekany
رابط هذا التعليق
شارك
  • أفضل إجابة
Shivan Rekany

Shivan Rekany

قام بنشر
  • أفضل إجابة
قام بنشر
26 دقائق مضت, bhlol said:

اذا تسمح الحقول كلها غير مفعلة حتى اذا غيرة قيمة combo1 هل هناك شيء افعله حتى يتفعل الكود

اتفضل اليك هذا

فقط اضفت اسماء المربعات النصية اخرى 

Private Sub combo1_AfterUpdate()
    If Me.combo1 = 0 Then
            Me.A1.Enabled = False
            Me.A2.Enabled = False
            Me.A3.Enabled = False
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
            Me.FINAL_A.Enabled = False
            Me.AVR.Enabled = False
        ElseIf Me.combo1 = 1 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = False
            Me.A3.Enabled = False
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
            Me.FINAL_A.Enabled = True
            Me.AVR.Enabled = True
        ElseIf Me.combo1 = 2 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = False
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
            Me.FINAL_A.Enabled = True
            Me.AVR.Enabled = True
        ElseIf Me.combo1 = 3 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = False
            Me.A5.Enabled = False
            Me.A6.Enabled = False
            Me.FINAL_A.Enabled = True
            Me.AVR.Enabled = True
        ElseIf Me.combo1 = 4 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = True
            Me.A5.Enabled = False
            Me.A6.Enabled = False
            Me.FINAL_A.Enabled = True
            Me.AVR.Enabled = True
        ElseIf Me.combo1 = 5 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = True
            Me.A5.Enabled = True
            Me.A6.Enabled = False
            Me.FINAL_A.Enabled = True
            Me.AVR.Enabled = True
        ElseIf Me.combo1 = 6 Then
            Me.A1.Enabled = True
            Me.A2.Enabled = True
            Me.A3.Enabled = True
            Me.A4.Enabled = True
            Me.A5.Enabled = True
            Me.A6.Enabled = True
            Me.FINAL_A.Enabled = True
            Me.AVR.Enabled = True
    End If

وهذه قاعدة بياناتك

A (1).rar

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

bhlol

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

استاذ

Rekany

ما زلت عالقا في نفس المشكلة

المشكلة ليست في اسماء المربعات النصية اخرى

بل في المربعات من A1 الى A6

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

9 ساعات مضت, bhlol said:

الكود فكرته رائعة لكن انا مبتدىء اذا تسمح الحقول كلها غير مفعلة حتى اذا غيرة قيمة combo1 هل هناك شيء افعله حتى يتفعل

حين اضفت الكود على قاعدة بيانات الاصلية كانت الحقول تبقى مفعلة دوما

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

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