الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال في الشيك بوكس (Check Box)

مغلق
بدأه al-moslem في 18 يناير 2004 · 6 رد · 1,129 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

ِ

السلام عليكم ورحمة الله وبركاته وبعد ;

ارجو من أعضاء الفريق العربي للبرمجة المساعدة ;

المسألة:

اذا افترضت انه عندي 3 Check Box في نموذج......

اثنان من مربعات الاختيار مترتبة على الاختيار الاول فإذا اخترت الاختيار الاول من المفروض

ان البرنامج يأخذ القيمة Enabled = True للإختيارين الباقيين.

وإذا حاول الغاء الاختيار الاول الذي هو الاختيار الاساسي فإن البرنامج لابد ان يكون صاحي للعملية ويرجع يعطي للإختياريين الفرعيين القيمة False للخاصية Enabled.

علماً ان الحالة عند فتح النموذج لأول مرة هي ان يكون الاختيار الاساسي Enabled = True وأن يكون الاختيارين الفرعيين Enabled = False

وأني لكم والله من الشاكرين والسلام.........

#2

من خصائص _ بيانات ... اجعل تمكين = لا

ثم أكتب الكود التالي في حدث بعد التحديث لخانة التدقيق الأولى

Private Sub Check1_AfterUpdate()

If Me.Check1 = -1 Then

Me.Check2.Enabled = True

Me.Check3.Enabled = True

Else

Me.Check2.Enabled = False

Me.Check3.Enabled = False

End If

End Sub

#3

مشكور يا أخ Access XP

الحل اللي اديتني اياه تمام .....

بس في مشكلة بسيطة جدا

انه لو اخترت الاختيار الاول وعملت صح عليه حيعمل البرنامج تمكين للإخيارين الثانيين

فلو افترضنا انه انا عملت اختيار للإختيارين الثاني والثالث أو أحدهما تم رجعت والغيت الاختيار الاول حيلغي البرنامج خاصية التمكين من الاختيارين الثاني والثالث لكن حيكونوا متأشرين أي بمعنى انه حياخذوا القيم وانا اللي اسعى اليه انه طالما ان الاختيار الاول

ماهو معلم عليه لا يمكن اختيار الاخيارات الثانية

وشكرا

أخوكم أبو أحمد

#4

Private Sub Check1_AfterUpdate()

If Me.Check1 = -1 Then

Me.Check2.Enabled = True

Me.Check3.Enabled = True

Else

Me.Chech2.Value=0

Me.Chech3.Value=0

Me.Check2.Enabled = False

Me.Check3.Enabled = False

End If

End Sub

#5

Private Sub Check1_AfterUpdate()

If Me.Check1 = -1 Then

Me.Check2.Enabled = True

Me.Check3.Enabled = True

Else

Me.Chech2.Value=0

Me.Chech3.Value=0

Me.Check2.Enabled = False

Me.Check3.Enabled = False

End If

End Sub

#6

Private Sub Check1_AfterUpdate()

If Me.Check1 = -1 Then

Me.Check2.Enabled = True

Me.Check3.Enabled = True

Else

Me.Chech2.Value=0

Me.Chech3.Value=0

Me.Check2.Enabled = False

Me.Check3.Enabled = False

End If

End Sub

#7

شكرا لك يا أخ Access XP وارجوا من الله ان يجازيك خير الجزاء على مشاركتك لعلمك مع اخوانك.....

هذا الموضوع مغلق.

مواضيع مشابهة