Moosak

سلِمَت يُمناك .. وظفِرَت بالخير يداك يا حبيبنا @ابا جودى 🌹 يبدو أن هذا الخيار لا يظهر لدي بسبب أني لازلت مستجد في المنتدى ..

ألف تحية طيبة لكم جميعا ،، كيف أستطيع إضافة الصورة التعبيرية الخاصة بي في المنتدى ؟ تصفحت ملفي الشخصي وما توصلت لكيفية عمل ذلك .. تحياتي القلبية لكم .. 🌹

إضافة لإجابة أستاذنا العزيز أبا جودي ، في النسخ الجديدة من البرنامج ستجد حقل (النص الطويل) أسمه Long text

أخي العزيز أنا حليت هذي المشكلة ولله الحمد والفضل عن طريق وضع نسخة التحديث في مجلد على الشبكة الداخلية مثلما ذكرت أنت .. وبالاستعانه ببرنامج ال WinRAR يقوم بتنصيب النسخة الجديدة في جميع الأجهزة .. لعلي أجد فرصة لشرح ذلك في مقطع فيديو لاحقا بإذن الله .. ولكن في عجالة هذه هي الطريقة : 1- إنشاء جدول في ملف الواجهات ال Front End ووضع حقل واحد فيه وسجل واحد وهو حقل تاريخ يكتب فيه [تاريخ النسخة الحالية] وهذا الجدول لا يتم نقله إلى ملف الجداول ال Back End بل يضل في نسخة الواجهات . 2- جدول آخر يكون في ملف الجداول ال Back End وهو جدول إداري تضع فيه حقلين الأول [تاريخ آخر تحديث] و الثاني حقل نعم/لا [هل تريد تحديث النسخة؟] وتتحكم به من عندك (النسخة الإدارية) . 3- تعمل ماكرو AUTOEXEC يعمل عند فتح قاعدة البيانات .. وهذا الماكرو يشغل بدوره كود وظيفته كالتالي : أولا يذهب لخانة [هل تريد تحديث النسخة؟] ... إذا كنت وضعت عليها ☑️ ينتقل للخطوة التالية ، وإذا فاضي يخرج من ال sub . ثانيا يقارن بين التاريخين ، التاريخ الموجود في الجدول الذي أنشأته لمعرفة [تاريخ النسخة الحالية] في الخطوة رقم (1) وبين التاريخ الموجود في الجدول الإداري [تاريخ آخر تحديث] في الخطوة رقم (2) ، فإذا كان [تاريخ آخر تحديث] أصغر من أو يساوي <= [تاريخ النسخة الحالية] يخرج من ال sub ، وإذا كان [تاريخ آخر تحديث] أكبر من > [تاريخ النسخة الحالية] فإنه ينتقل للخطوة التالية ويقوم بتحديث النسخة . بعد عملية التحقق من أن هناك تحديث جديد كما مر في الخطوتين السابقتين ، تطلق رسالة بزر واحد [OK] مفادها (( أن هناك تحديث جديد ستقوم بتحميله بعد قليل )) .. بعدها يقوم الأكسس بفتح برنامج ال WinRAR الذي بدوره سيقوم بتنصيب التحديث الجديد في جهاز المستخدم واستبدال النسخة القديمة بالجديدة . قبل أن يعمل برنامج ال WinRAR بتنصيب التحديث الجديد ، تتأكد من إغلاق الأكسس (عن طريق الكود نفسه) وذلك مباشرة بعد تشغيل ال WinRAR ، وإلا فسيواجه ال WinRAR مشكلة في استبدال الملف القديم . سيقوم برنامج ال WinRAR تلقائيا بفتح النسخة الجديدة بعد تثبيتها. وبذلك يتم تحديث ملف الواجهات فقط بنقرتين .. 😉 طبعا يجب الانتباه إلى تحديث [تاريخ النسخة الحالية] إلى نفس تاريخ [تاريخ آخر تحديث] في الجدول الموجود في النسخة المطورة وإلا فستقع في دوامة التحديث اللانهائي . بالنسبة لبرنامج ال WinRAR هناك إعدادات خاصة به أيضا لتحويله إلى ملف تنفيذي exe وإعطائه أمر استبدال الملفات القديمة بالحالية وتشغيل النسخة الجديدة ( وهذا جزء هام طبعا في هذه العملية كلها) ولكن للأسف لا يسعني ذكرها الآن ، ولكنك قد تجد ضالتك في هذا الفيديو بإذن الله .. https://www.youtube.com/watch?v=MZHuoV7pd7E&t=410s هذا والسلام عليكم

وهذه أيضا : https://www.youtube.com/watch?v=5qpUFV5Gtb0 https://www.youtube.com/watch?v=-ZwP9-oAGbA

أتوقع هذا الفيديوات تتكلم عن نفس الموضوع بما يخص الأكسس : https://www.youtube.com/watch?v=cgmjx1C0FU4 https://www.youtube.com/watch?v=RxeW-s4n6-U

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

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