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

[msm 911]

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

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

و شكراً

[ابو جودي]

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

 

 

Test.accdbFetching info...

[Eng.Qassim]

  في 24‏/9‏/2021 at 01:33, ابا جودى said:

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

Expand  

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

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

[ابو جودي]

  في 24‏/9‏/2021 at 08:55, Eng.Qassim said:

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

Expand  

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

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

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

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

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

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

    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.rarFetching info...

تحياتي

تم تعديل سبتمبر 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.accdbFetching info...

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