اريد اختيار جميع قيم الليست بوكس عند تحميل النموذج --- الملف مرفق

[saifou86]

السلام عليكم

اريد اختيار جميع قيم الحقل المتعدد القيم عند تحميل النموذج  اي جميع قيم الليست بوكس تكون في حالة اختيار كلها

في المثال المرفق اريد اختيار جميع الشهور الموجودة في الليست بوكس و شكراا

EXEMPLE.accdb

تم تعديل فبراير 15, 2019 بواسطه saifou86

[أواب]

اسخدم هذا الكود بعد التعديل عليه وفقا لبرنامجك

'------------------كود لتحديد الكل في مربع القائمة------
For x = 0 To Tlist.ListCount
 If Tlist.Selected(x) = False Then
     Tlist.Selected(x) = True
      End If
   Next x