Moosak

تحتاج استعلامين .. - الأول استعلام إلحاق : ينقل لك السجلات للجدول الجديد الخاص بالمحذوفات . - الثاني استعلام حذف : يحذف السجلات من الجدول الأصلي .. ولاستعادة السجلات المحذوفة ، تحتاج لاستعلامين أيضا ( عملية عكسية) : - الأول استعلام إلحاق : ينقل لك السجلات للجدول الأصلي . - الثاني استعلام حذف : يحذف السجلات من جدول المحذوفات .. ------------------------------------------------------------------------------- وتقدر تستغني عن هذا كله .. أنك تضيف عمود (حقل) جديد في الجدول الأساسي عبارة عن مربع اختيار وتسميه [محذوف] مثلا .. وبعدها تضبط أمورك أنه لما تختار زر حذف يشغل لك استعلام تحديث يخلي في هذا المربع علامة صح .. وللاستعادة استعلام ثاني يشيل علامة الصح .. ولاستعراض السجلات بتحتاج نموذجين متشابهين ، الأول للسجلات الغير محذوفة تخلي مصدر النموذج استعلام تحديد فيه جميع بيانات الجدول ما عدا خيار [محذوف] = False . والنموذج الثاني للسجلات المحذوفة .. نفس الاستعلام الخاص بالنموذج الأول بس خيار [محذوف] = True ... هذا والله أعلم

هذا درس للأستاذ مؤمن سالم يشرح الطريقة : وهذا درس آخر للأستاذ مؤمن أيضا :

السلام عليكم ورحمة الله وبركاته .. هذا أول درس مصور لي في برنامج الأكسس .. أعتذر عن طول مدته ورداءة الصوت ، لقلة خبرتي في تسجيل الدروس .. ولكن أحببت مشاركتكم بعض المهارات التي تعلمتها واكتسبتها منكم .. وأسعد جدا بسماع نصائحكم وتوجيهاتكم الطيبة .. 🌹🌹 وأتمنى ألا يكون فيه ما يخالف قوانين منتداكم الطيب .. هذا رابط الدرس : رابط ملف الشرح في المرفقات تحياتي القلبية لكم .. أخوكم موسى الكلباني البحث بين تاريخين.accdb

العفو أخي الغالي 🌹

لا صعب ولا هم يحزنون .. تفضل أخي .. Search Report.accdb

ولا يهمك أخي العزيز ، هذا تعديل على الكود ليوافق طلبك : Public Function ReLink() Dim BEPath As String Dim wrkJet0 As Workspace Dim dbs0 As DAO.Database BEPath = DFirst("database", "msysobjects", "[Database]<> '""'") Set wrkJet0 = DBEngine.Workspaces(0) Set dbs0 = wrkJet0.OpenDatabase(BEPath, 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=" & BEPath tdf.RefreshLink End If Next End Function وأخبرني إن واجهت فيها أي مشكلة ..

وعليكم السلام ورحمة الله وبركاته أخي ،، ضع هذا الكود في موديول ثم استدعه عند فتح أول فورم في البرنامج : 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