bhlol قام بنشر مايو 22, 2017 مشاركة قام بنشر مايو 22, 2017 عندي عدد من الفصول الدراسية كل فصل يدرس عدد من المواد يختلف عن الاخر و قد عملت واجهة باكسس مثلا الفصل الاول يمتحنون في 3 مواد الفصل الثاني يمتحنون في 5 مواد . الفصل الثالث يمتحنون في 6 مواد اريد طريقة يكون فيها دالة لتفعيل عدد الحقول الذي اريده من 1 الى6 مثلا احدد اثنان حقل او ثلاثة يعني حسب العدد الذي ادخله تتفعل الحقول ثم ادخل الدرجات New Microsoft Office Access 2007 Database.rar رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر مايو 22, 2017 مشاركة قام بنشر مايو 22, 2017 45 دقائق مضت, bhlol said: New Microsoft Office Access 2007 Database.rar ::: اعد رفع المثال مرة اخرى ! إذ لا يمكن تنزيله رابط هذا التعليق شارك More sharing options...
bhlol قام بنشر مايو 23, 2017 الكاتب مشاركة قام بنشر مايو 23, 2017 تسلم استاذ تعبتك و اعيد رفع المثال 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 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر مايو 23, 2017 مشاركة قام بنشر مايو 23, 2017 (معدل) منذ ساعه, 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 بواسطه محمدنجار رابط هذا التعليق شارك More sharing options...
bhlol قام بنشر مايو 23, 2017 الكاتب مشاركة قام بنشر مايو 23, 2017 شكرا استاذ النجار على مجهودك عذرا استاذ انا قصدي هو استخدام دالة IF لان الحقول كلها الان غير مفعلة حتى لو غيرة قيمة combo1 الى اي قيمة من 1الى 6 هي لا تتفعل لادخال البيانات الكود الذي اريده مشابه الى هذا الموضوع http://arabteam2000-forum.com/index.php?/topic/288369-كيف-يمكن-تفعيل-حقل-بالاعتماد-على-حقل-اخر/ بس بشكل اوسع في مثالي رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مايو 23, 2017 مشاركة قام بنشر مايو 23, 2017 (معدل) 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 رابط هذا التعليق شارك More sharing options...
bhlol قام بنشر مايو 24, 2017 الكاتب مشاركة قام بنشر مايو 24, 2017 شكرا استاذ نجار Rekany اتعبناكم استاذ Rekany الكود فكرته رائعة لكن انا مبتدىء اذا تسمح الحقول كلها غير مفعلة حتى اذا غيرة قيمة combo1 هل هناك شيء افعله حتى يتفعل الكود رابط هذا التعليق شارك More sharing options...
أفضل إجابة Shivan Rekany قام بنشر مايو 24, 2017 أفضل إجابة مشاركة قام بنشر مايو 24, 2017 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 رابط هذا التعليق شارك More sharing options...
bhlol قام بنشر مايو 24, 2017 الكاتب مشاركة قام بنشر مايو 24, 2017 استاذ Rekany ما زلت عالقا في نفس المشكلة المشكلة ليست في اسماء المربعات النصية اخرى بل في المربعات من A1 الى A6 حين اضفت الكود على قاعدة بيانات تعديل الاستاذ النجار كانت الحقول تبقى غير مفعلة دوما لذا قلت 9 ساعات مضت, bhlol said: الكود فكرته رائعة لكن انا مبتدىء اذا تسمح الحقول كلها غير مفعلة حتى اذا غيرة قيمة combo1 هل هناك شيء افعله حتى يتفعل حين اضفت الكود على قاعدة بيانات الاصلية كانت الحقول تبقى مفعلة دوما رابط هذا التعليق شارك More sharing options...
bhlol قام بنشر مايو 30, 2017 الكاتب مشاركة قام بنشر مايو 30, 2017 شكرا استاذ Rekany شكرا استاذ نجار لقد عمل النموذج لم ادري ان الخيار الامني يتحدد في بداية التطبيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.