• 0
faife

تعديل على كود

سؤال

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

tar.mdb

ssssss.png

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

السلام عليكم الرجو متابعة الموضوع للاهمية

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل

مارايك ان تستبدل الكود بالتالي

فهو يمر على كل العناصر من نوع الخيار وياخذ العنوان وطبعا بشرط ان الخيار مفعلا

Private Sub tar_GotFocus()
For Each ct In Me.Section(0).Controls
If ct.ControlType = acCheckBox Then
If ct = -1 Then xt = xt & ct.Controls(0).Caption & " * "
End If
Next
tar = xt
End Sub

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

بارك الله فيك أخي رمحان كود رائع جدا واراحني من الكود القديم

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .