Moosak

الله يوفقك أستاذنا العزيز .. دائما متميز 👍🏼

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

تشريف أستاذي العزيز .. لكن للأسف ليست لدي فكرة عن موضوع ال API ، فقط بحثت في النت عن الموضوع لأجلك .. 😅 ولو في شي ممكن أخدمك به مما أعرفه هذا من دواعي سروري .. 😊

بارك الله في جهدك وعلمك ووقتك وعمرك أستاذنا العزيز ... ألاحظ فيك الإخلاص في كل ما تقوم به .. أسأل الله لك التوفيق

أستاذنا العزيز .. جربت تشغيل الملف على نسخة الأكسس 365 ولم تعمل .. ! هل لرقم الإصدار دخل في ذلك ؟

شكرا لكما أستاذي العزيزين على التوضيح والاهتمام ،، لا عدمناكما ..🌹🌹 وعقبال ما نعدي المليون يا رب 😄

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

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

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