كود يخص Chech Box

موضوع منقول من المنتدي القديم

الكاتب : زكوان

فـورم - بحاجة لكود يخص Chech Box

Check Box

إذا كان لدي خمسة Check Box مرتبطين مع الجدول (أي مع بقية العمليات) وأريد في حال اختيار المستخدم احدهم ثم أراد تغير اختيار ل Check Box آخـر إن يتم ذلك بعد إلغاء تعليمات الاختيار الأول وما فية من تعليمات.

مع الشكر الجزيل

--------------------------------------------------------------------------------

الكاتب: zakwan بتاريخ: 9/25/2002 12:26:13 AM

--------------------------------------------------------------------------------

السؤال غير واضح

الذي فهمته أن لديك خمسة مربعات تدقيق تريد إذا اختار أحدها أن تلغي اختياراته في البقية

هل فهمي صحيح ؟

إذا كان صحيح اكتب اسماء الخمسة مربعات تدقيق لأكتب لك الكود

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود بتاريخ: 9/25/2002 2:07:21 AM

--------------------------------------------------------------------------------

الاخ ابو حمــود

الاسماء هي كتالي :

HouseRent

AdvanceSalary

PersonalLoan

Vehicle

Furniture

--------------------------------------------------------------------------------

الكاتب: zakwan بتاريخ: 9/25/2002 3:02:32 AM

--------------------------------------------------------------------------------

الاخ ابو حمــود

الاسماء هي كتالي :

HouseRent

AdvanceSalary

PersonalLoan

Vehicle

Furniture

وشكراً لتعاونك.

--------------------------------------------------------------------------------

الكاتب: zakwan بتاريخ: 9/25/2002 3:03:57 AM

--------------------------------------------------------------------------------

Private Sub AdvanceSalary_AfterUpdate()
Chk AdvanceSalary, AdvanceSalary.Value
End Sub

Private Sub Furniture_AfterUpdate()
Chk Furniture, Furniture.Value
End Sub

Private Sub HouseRent_AfterUpdate()
Chk HouseRent, HouseRent.Value
End Sub

Private Function Chk(ChkName As CheckBox, CurrentVule As Integer)
HouseRent = False
AdvanceSalary = False
PersonalLoan = False
Vehicle = False
Furniture = False
ChkName = CurrentVule
End Function

Private Sub PersonalLoan_AfterUpdate()
Chk PersonalLoan, PersonalLoan.Value
End Sub

Private Sub Vehicle_AfterUpdate()
Chk Vehicle, Vehicle.Value
End Sub

--------------------------------------------------------------------------------

الكاتب: ابوحمود بتاريخ: 9/25/2002 5:36:30 AM

--------------------------------------------------------------------------------

طلب

الأخ/ أبو حمود

من غير أمر عليك ، هل يمكن أن أرى مثال عملي على ذلك ؟

--------------------------------------------------------------------------------

مع خالص تحياتي ابن مسقط assq@gawab.com

الكاتب: ابن مسقط بتاريخ: 9/26/2002 10:29:12 AM

--------------------------------------------------------------------------------

هذا المثال :

http://www.msaccess4arab.com/temp/5ChekBox.zip

ولك تحياتي

--------------------------------------------------------------------------------

الكاتب: ابوحمود بتاريخ: 9/26/2002 7:48:57 PM

--------------------------------------------------------------------------------

الاخ ابــو حمـــــــــــــــــود

تسلم ايديك والله يعطيك الف عافية على ماقدمتة فهذا مااريدة بالضبط والحمد لله على كل شيئ.

--------------------------------------------------------------------------------

الكاتب: zakwan

كود يخص Chech Box

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