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

[bhlol]

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

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

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

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

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

New Microsoft Office Access 2007 Database.rar

[محمدنجار]

45 دقائق مضت, bhlol said:

New Microsoft Office Access 2007 Database.rar

::: اعد رفع المثال مرة اخرى ! إذ لا يمكن تنزيله

[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

تم تعديل مايو 23, 2017 بواسطه محمدنجار

[bhlol]

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

 

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

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

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

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

[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

تم تعديل مايو 23, 2017 بواسطه Shivan Rekany

[bhlol]

شكرا

استاذ

نجار

 Rekany

  اتعبناكم

استاذ

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

 

[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]

استاذ

Rekany

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

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

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

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

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

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

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

[bhlol]

شكرا استاذ

Rekany

  شكرا استاذ

نجار

لقد عمل النموذج لم ادري ان الخيار الامني يتحدد في بداية التطبيق