السلام عليكم :
اخواني الاعزاء المبرمجين عندي نموذج بة اداة chekbox وبالنقر عليها يعطي الناتج في التكسيت في المرة الاولي بالنقر يعطي 1 وبالنقر عليها اخري يعطي لاشي يعني يقوم بازالة الرقم .
مااريدة هو عند النقر مرة يعطي 1 وعند النقر مرة اخري يعطي لاشي وعند النقر يعطي 2 وعند النقر مرة اخري يعطي لاشي وعند النقر مرة اخري يعطي 3 وهكذا في حالة النقر
في انتظار الرد وبارك الله فيكم .
يوجد في المرفقات مثالا .
اليك المرفق بعد التعديل
الكود اصبح بعد التعديل هكذا
Public T As Integer Private Sub Check6_BeforeUpdate(Cancel As Integer) If Check6 Then Text8 = T + 1 T = T + 1 Else Text8 = "" End If End Sub
تم تعديل هذه المشاركة بواسطة عبدالله المجرب في 21 فبراير 2013 في 07:56
صفحتي الشخصية في منتدى أوفيسنا
اعذروني ففي الفترة القادمة سيكون تواجدي في المنتدى ضيق جداً وذلك للانشغال في دورة لمدة 6 شهور بعد الدوام
بارك الله فيك اخ عبدالله ولكن عند فتح النموذج والنقر علي الاداة يعطي 1 وبالنقر عليها يعطي لاشي وهكذا بالاسمرار ولكن ولنفرض مثال في حال فتح النموذج الرقم الموجود في التكست يساوي 3 وبالنقر علي الاداة chek6 المفروض يعطي لاشي وبالنقر مرة ثانية المفترض يعطي 4 وليس 1 بمعني ان الحلقة لا اريدها تبدا من جديد .
بارك الله فيك وفي انتظار الرد
تفضل اخي الكريم
اذا تمت الإجابه على السؤال فلا تنسى الضغط على ( أفضل إجابة )
بالتوفيق
شكرا بارك الله فيكي يا ام العهود هذة الاجابة التي اريدها ومرة اخري اشكر الاخوة المبرمجين علي سرعة الردود .
فعلا منتدي الفريق العربي للبرمجة قمة في الروعة . B)
