Moosak

وعليكم السلام ورحمة الله وبركاته أخي ،، ضع هذا الكود في موديول ثم استدعه عند فتح أول فورم في البرنامج : Public Function ReLink() Dim dada Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database adad = CurrentProject.Path & "\data.accdb" ' لا تنسى تغيير اسم ملف الجداول والرابط Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(adad, False, False, ";PWD=" & "000000") ' ضع باسوورد ملف الجداول مكان الأصفار وإلا فدعه كما هو Dim db As DAO.Database Dim tdf As DAO.TableDef Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = dbAttachedTable Then On Error Resume Next tdf.Connect = ";DATABASE=" & adad tdf.RefreshLink End If Next End Function ------------------------------------------

السلام عليكم جميعا .. هذه أول مشاركة لي في هذا المنتدى الطيب .. رأيت هذا الموضوع فأحببت المشاركة فيه لأنه مر علي شي مشابه لهذا الأمر .. تطبيقي استخدمت فيه نفس الجدول اللي استخدمه الأستاذ @ابا جودى فله مني الشكر .. الفكرة : قسمت القائمة على 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