Moosak

عذرا على التأخير أخي العزيز @بوكفوس عبدالسلام،، تم إضافة رسالة لتأكيد الحذف وبها تضع أسباب الحذف وهناك زر ال [+] لإضافة وتحرير أسباب الحذف : حمل الملف المعدل من الرابط التالي : https://drive.google.com/open?id=1FtoFH3lsQrAsqFEm5Lh7izcXYVjPd9nI&authuser=mousa.alkalbani%40gmail.com&usp=drive_fs

😂😂😂 ربي يحفظك يا @ابا جودى مفاجأة ولا على البال .. 😄 أشكرك أستاذي العزيز دائما تتحفنا بالجميل والرائع والنوادر .. 🌹 بس سؤال أستاذي العزيز : هل يحتاج نعمل إعدادات خاصة لتطبيق هذا المثال على برامجنا ؟

الله .. الله .. الله على هذا الجمال 🤩 نورنا يا أستاذنا العزيز .. الله يزيدك من خيره وواسع فضله ..

عذرا على التأخير أخي العزيز @بوكفوس عبدالسلام،، تم إضافة رسالة لتأكيد الحذف وبها تضع أسباب الحذف وهناك زر ال [+] لإضافة وتحرير أسباب الحذف : حمل الملف المعدل من الرابط التالي : https://drive.google.com/open?id=1FtoFH3lsQrAsqFEm5Lh7izcXYVjPd9nI&authuser=mousa.alkalbani%40gmail.com&usp=drive_fs

بارك الله فيك أستاذنا .. ياريت لو تشرح آلية تطبيقها على قواعد بياناتنا ..

هدية مقبولة وفي ميزان حسناتك يارب 🌹

الله يبارك فيك أستاذنا العزيز .. @ابا جودى في ميزان حسناتك يارب 🙂🤲

فقط عليك أن تلغي الربط بين النموذج الأصلي والنموذج الفرعي .. ولكن ما سيحصل أن أي تغيير في النموذج الفرعي سيظهر نفسه في جميع السجلات .. بعد إلغاء الربط.accdb إلا إذا كنت تريد إلحاق نفس السجلات الفرعية لكل سجل في النموذج الأصلي وكل سجل بأرقامه الخاصة فهذا شيء مختلف .

أضن أنه من الأساس ما محتاجين نموذج فرعي لعمل هذي الخيارات .. فقط تنظاف هذي الخيارات كحقول إلى النموذج الرئيسي ( أقصد في الجدول المرتبط بالنموذج الرئيسي ) .. وبتنحل المشكلة ..

وعليك السلام ورحمة الله وبركاته أخي @بوكفوس عبدالسلام تم تطبيق الفكرة الثانية وذلك للحرص على عدم حشو قاعدة البيانات بكثير من السجلات .. وقد نسخت نموذج (الإجمالية) وأنشأت منه نموذج آخر لعرض المحذوفات وإمكانية استرجاعها .. إليك الملف .. https://drive.google.com/file/d/1FtoFH3lsQrAsqFEm5Lh7izcXYVjPd9nI/view?usp=sharing

تفضل أخي العزيز .. test comment 2.accdb Private Sub Triglycerides_AfterUpdate() If Me.Triglycerides.Value > 500 Then Me.comment = Me.comment & "increase the risk of heart disease please check for ECG" & vbNewLine Else Me.comment = "" End If End Sub

تفضل أخي .. ستجدها في الاستعلام Quiry 1 = المطابقة للشروط Quiry 2 = الغير مطابقة للشروط MusndWZwayid 01.accdb

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