اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


msm 911

الردود الموصى بها

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

تحياتي

تم تعديل بواسطه محمد أبوعبدالله
اضافة مرفق
  • Like 6
رابط هذا التعليق
شارك

  • 2 weeks later...

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

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

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

 

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

الفكرة :

قسمت القائمة على 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

تم تعديل بواسطه Moosak
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information