الى الاخوة الاعزاء لدي مربع قائمة وأرغب في اضافة بنود داخله عن طريق الكود
حيث أنه في VB6 عمل ذلك سهل بدون تعقيد كالتالي :
مثلا اذا كان لدي مربع قائمة list1 وارغب في ادراج بنود عن طريق الكود
list1.AddItem "ali"
list1.AddItem "said"
السؤال :
كيف يمكنني عمل نفس هذه الطريقة في الاكسس ؟؟؟
جرب الكود التالي
Me.list1.RowSource = Me.list1.RowSource & ";'newitem'"
انقر على خصائص مربع القائمه اختر التبويب بيانات
ستجد مصدر الصف وتجد البنود التي كتبت مثلا
"نعم";"لا" اكتب ما تريد من البنود بنفس التنسيق
وستجدها مكتوبه في مربع القائمه مثلا
"نعم";"لا";"صح";"غلط" وهكذا
والله اعلم:D
الشكر موصول لجميع الاخوة الذين ردوا على سؤالي وأفيدكم بالنتائج :
الاخ (طالب علم2002) والاخ (alhajri) أشكركم على الرد وعلى المثال الذي ارفق ولكن ما اردته مختلف قليلا .
الاخ (abohajr) ردك هو بغيتي وقد أجريت عليه بعض التعديلات وارفقه لكم .
ولكن لدي سؤال يطرح نفسه على المثال الذي ارفقه لكم عسى ان اجد الاجابة لديكم ، كيف يمكنني حذف البنود من مربع القائمة في كل مرة واحد أو حسب التحديد إن أمكن ؟
أرجوا ان يكون السؤال واضح لديكم ،،
ولكم جزيل الشكر ،
أخي الكريم أيو أسامة
الحقيقة أننا متعودون على استخدام الجداول في هذه العملية وهي ـ من وجهة نظري الطريقة الصحيحة لأن ما تضيفه إلى القوائم ستم إلغاؤه بمجرد إغلاق النموذج
لكن وحتى لا تتصور أن هذا الكلام تهرب من الجواب فإنني آمل تجربة هذا الكود مع علمي بأنه معقد وربما يكون لدى الإخوة فكرة أفضل وهي مبني على استخدام عدد من الدوال المبنية في أكسس
Dim mystr As String Dim tempstr As String mystr = "ali" tempstr = Me.list1.RowSource & ";" tempstr = Left(tempstr, InStr(1, tempstr, mystr) - 2) & Mid(tempstr, InStr(tempstr, mystr) + Len(mystr) + 2) Me.list1.RowSource = Left(tempstr, Len(tempstr) - 1)
أأسف لتأخري بسبب ضروف العمل الخارجة عن ارادتي
أخي العزيز أبو هاجر أشكرك على الرد وسوف أجرب الكود وارد عليك قريبا ان شاء الله فلك مني التحية والاحترام .
هذا الموضوع مغلق.