هل يمكن عمل مثل هذا الليست بوكس في الأكسيس

[msm 911]

هل يمكن عمل مثل هذا الليست بوكس في الأكسيس.

علماً بأن المصدر قائمة قيم ثابته من 1 إلى 35

و شكراً

[ابو جودي]

فكرة بره الصندوق  على اعتبار ان مصدر البيانات ثابت من 1 الى 35

 

 

Test.accdb

[Eng.Qassim]

7 ساعات مضت, ابا جودى said:

فكرة بره الصندوق

😄 فعلا فكرة جميلة استاذ ابا جودي

لكن الارقام اذا كانت متسلسلة يمكن استخدام دوال اصغر من واكبر من للسهولة

[ابو جودي]

29 دقائق مضت, Eng.Qassim said:

لكن الارقام اذا كانت متسلسلة يمكن استخدام دوال اصغر من واكبر من للسهولة

ايون علشان كده انا عملت الفكرتين

الاولى لو الارقام مش متسلسلة اعتمدت فى الفكرة على العدد

الثانية ان كانت الارقام متسلسلة 

والله اعلى واعلم بصراحة لم اقم بالتجربة مطولا ولا ادرى ان كان هناك حل برمجى 

[محمد أبوعبدالله]

وهذه محاولة ارجو ان يكون هو المطلوب

    mySQL = "Select * From tblData ORDER BY ID"
     
    Set rst = CurrentDb.OpenRecordset(mySQL)
    rst.MoveLast: rst.MoveFirst
    
    For i = 1 To Int(rst.RecordCount / 5)
        Me.List1.AddItem rst!CustCode
        rst.MoveNext
    Next
        
     For i = (List1.ListCount + 1) To (List1.ListCount + Int(rst.RecordCount / 5))
        Me.List2.AddItem rst!CustCode
        rst.MoveNext
    Next
        
     For i = (List2.ListCount + 1) To (List2.ListCount + Int(rst.RecordCount / 5))
        Me.List3.AddItem rst!CustCode
        rst.MoveNext
    Next
        
     For i = (List3.ListCount + 1) To (List3.ListCount + Int(rst.RecordCount / 5))
        Me.List4.AddItem rst!CustCode
        rst.MoveNext
    Next
        
     For i = (List4.ListCount + 1) To (List4.ListCount + rst.RecordCount / 5)
        Me.List5.AddItem rst!CustCode
        rst.MoveNext
    Next
    
    rst.Close

Test77.rar

تحياتي

تم تعديل سبتمبر 24, 2021 بواسطه محمد أبوعبدالله
اضافة مرفق

[msm 911]

شكراً لكم جميعاً على الرد و المساعده 

 

[Moosak]

السلام عليكم جميعا ..

هذه أول مشاركة لي في هذا المنتدى الطيب ..

رأيت هذا الموضوع فأحببت المشاركة فيه لأنه مر علي شي مشابه لهذا الأمر ..

 

تطبيقي استخدمت فيه نفس الجدول اللي استخدمه الأستاذ @ابا جودى  فله مني الشكر ..

الفكرة :

قسمت القائمة على 3 قوائم 3 Lists ..

كل لست يأخذ بياناته من نفس الاستعلام ولكن الفرق فقط أن المعيار يقسم عدد السجلات في الجدول على 3 ..

اللست الأول يأخذ الثلث الأول .. وجعلت هذا المعيار أسفل حقل ال ID :

>0 And <= DCount("*";"[tblData]")/3

اللست الثاني يأخذ الثلث الثاني وهذا المعيار الخاص به :

>DCount("*";"[tblData]")/3 and <=(DCount("*";"[tblData]")/3)*2

اللست الثالث يأخذ الثلث الأخير وهذا المعيار الخاص به :

>(DCount("*";"[tblData]")/3)*2 and <= DCount("*";"[tblData]")

بذلك كل لست أخذ سجلاته من الثلث الخاص به  مهما زاد أو نقص عدد السجلات ..

ولضمان أن يكون الرقم دائما متسلسلا بشكل مرتب .. أضفت استعلام تحديث يعيد ترتيب الأرقام من جديد بشكل مرتب في حال تم حذف أي سجل ..

ويتم تشغيل هذا الاستعلام تلقائيا عند فتح الفورم لضمان تحديث البيانات تلقائيا في القوائم الثلاثة ..

ولكي تكتمل هذه العملية بشكل جيد .. حولت حقل الـ ID في الجدول إلى " رقم " بدل الترقيم التلقائي وذلك ليعمل استعلام التحديث بشكل جيد ..

وكذلك يتم إضافة السجلات في الجدول عن طريق فورم  وجعل القيمة الافتراضية للـ ID هي القيمة التالية لأكبر قيمة في الجدول ، وبذلك لن تحصل مشكلة في ترقيم السجلات .

 

تحياتي لكم  ،،،

 

 

3 List Form.accdb

تم تعديل أكتوبر 7, 2021 بواسطه Moosak