كل الانشطه

السلام عليكم بمزيج من : استخدام أداة الأخ العزيز Foksh ، والتدخل اليدوي فى صناعة القوائم بأوفيس 2003 ( لأنه هو الوحيد الذى يسمح بذلك ) تم إنشاء هذه القائمة المختصرة التى تناسب ظهورها الاستفادة السريعة من التقارير جربت هذه القائمة على كافة إصدارات الأكسس وكانت ممتازة وكل محتوياتها مفعلة ومتاحة ( غير خافتة ) وعند تجربتى لتصدير التقرير بصيغة وورد .. كانت رائعة فى 2003 و 2024 .. لكن بدون ظهور الجدول المحيط بالبيانات كنت قد قرأت فيما سبق عن حلول بالمنتدى فى هذا الموضوع .. لكنها غير ناجحة تماماً إذا كان هناك موضوع لم أصل إليه .. أرجو الإشارة إليه سأرفق الملف الذى يحتوي على القائمة المختصرة أعلاه ( بالمرفقات) لمن يريد الاستفادة منها ShortMenu_qryPrinting.mdb

معلمى الفاضل اولا انا شاكر لحضرتك انك شاركت بخبرتك مرة اخرى ومعنى هذا انك سامحت جهلى ومش زعلان منى شكرا لحضرتك الكلام الجميل اللي حضرتك كتبتة ازاى انفذه فى الجدول Tbl_Settings انا محدود الخبرة بالاكسيس امكانياتى بسيطة جدا ممكن لو تكرمت تنفذ فكرتك فى القاعدة المرسلة بالاعلي ولك خالص الاحترام والتقدير

وعليكم السلام ورحمة الله وبركاته .. حتى لا تتشتت أفكارك بعيداً عن طلبك ، ألقِ نظرة على هذا الموضوع هنا .

السلام عليكم و رحمة الله و بركاته ارى في بعض البرامج انك اذا تضغط على زر فستنسدل امامك خيارات كما في الصورة رقم 1 المطلوب هل يمكن كلك في برنامج اكسس في الصورة رقم 1 اذا ضغطت على زر ajout article فستنسدل قائمة فيها خيارات دون ان تفتح صفحة اخرى لاختار ما اريد فتحه كما في الصورة رقم 2 فان كان ممكن فسابعث لكم نموذج للعمل عليه او ان تدلوني على الطريقة و لكم جزيل الشكر

انا أعتذر من السير في حيلة من شأنها أن تدمر السجلات في أول خطأ يا صديقي .. لذلك قد أطرح فكرة تكون حلاً لك ، وهي الإعتماد على تعيين القيمة الافتراضية في جدول الإعدادات مثلاً . بحيث يتم تحديثها وجلبها متى شئت دون التأثير على خاصية الحقل داخل الجدول Tbl_Lab_All . فهنا نحن لن نقوم بإغلاق النموذج الرئيسي أو الفرعي أبداً . أو لن نقوم بفك ارتباط النماذج أساساً ( وبالتالي لن نجبر آكسيس على حفظ السجلات الناقصة ) . و ستبقى شاشة المستخدم مفتوحة كما هي ، والبيانات الناقصة التي تكتبها كمستخدم لن يتم حفظها إلا عندما تقرر حفظها . يعني باختصار = التعديل سيتم في جدول إعدادات خارجي بسيط ( Tbl_Settings ) غير مرتبط بالنماذج المفتوحة ، لذا لن تتواجد عوائق أخي جو . ومع ذلك ، فإن القيمة الافتراضية ستتعدل على مستوى الجدول نفسه ( وليس النموذج ) ، بحيث لو قام المستخدم بفتح الجدول مباشرة أو أضاف سجلاً من أي نموذج فرعي آخر ، سيتم تعيين القيمة الافتراضية الجديدة تلقائياً عند الحفظ . أرجو أن أكون قد نجحت بتوصيل فكرتي التي من خلالها لن تضطر للخروج من النموذج ، وبنفس الوقت ستبقى القيمة الافتراضية مخزنة داخل جدول ليس له اي علاقة بالنموذج سوى جملة DlookUp . وتحديثها من خلال سطر استعلام تحديث عند تغييرها 😉

لو كنت ركزت على كلامي كنت ستجد أني كنت قد وضحت لك أن التعديلات ستكون في عبارة If وحدث فتح النموذج ولكنك قمت بالتعديل الأول وتجاهلت الثاني وهو التعديل الذي يقوم بقراءة القيمة الإفتراضية المحفوظة عموما هذا ملفك الاخير بعد التعديل تحياتي Lab_small.rar

شكراً للمشاركة أخي خليفة .. اذا من 25 سنة ، فقد عاشت الفكرة عمراً كافياً حتى تقوم الشركة بالإلغاء أو الحذف .😅. ثم إن الفكرة ستكون حصرية للمزود الذي سيقدم الخدمة حصراً !!!! يعني من سيستخدم الفكرة في الموزمبيق لن يكون لديه شريحة لمزود الخدمة هذا في بلده .

وانا فى الانتظار........

يمكن التنفيذ 😉 ..

شكرا جزيلا ، بارك الله فيك شغالة

كلام وفعل مؤكدين لا يمكن تغيير قيمة افتراضية لحقل بجدول مرتبط بنموذج الا من خلال نموذج غير مرتبط بالجدول مع غلق اي نماذج مرتبطة بالجدول . كما ارسلت لك. والذي لديه اي كلام او فعل ثاني يدلنا .

استاذ @Foksh من 25 سنة كان لديا اشتراك بمزود الخدمة b4sms.com بالبحرين . وهذا المرفق كان يعمل تمام ( كلمة مرور نموذج الارسال : 1001). يمكن يفيدك . Send SMS.rar

استاذ بارك الله فيك

الاساتذة الافاضل والخبراء الاعزاء خالص الشكر لكم جميعا على مساعدتكم واخص بالشكر الافاضل منتصر الانسي_ Foksh _ kkhalifa1960 خالص الشكر على علمكم الغزيز تقدم الفاضل Foksh بحل المشكلة على النموذج الاول وعندما قمت بنقل الاكواد الى القاعدة الاصلية حدثت مشكلة فى الاكواد والان الكود والووحدة النمطية التى قام بتقديمها الفاصل منتصر الانسي تعمل مع القاعدة الاصلية بصورة جيدة لكنها لاتحتغط بالرقم كقيمة افتراضية عند غلق النموذج واعادة فتحة تظهر القيمة القديمة 59 اليكم القاعدة الجديدة بعد اضافة الاكواد والوحدة النمطية ارجو العمل على القاعدة التى تم رفعها هنا وبها الاكواد والوحدة النمطية للخبير الفاضل منتصر الانسي ملحوظة هامة اذا كان غلق النموذج واعادة فتحة يساعد فى هل المشكلة تمام مفيش مشكلة Lab_small.rar

تفضل استاذ @بلال بلال المرفق بعد التعديل . ووافني بالرد . البرنامج4-1.rar

السلام عليكم لقد قمت باجراء استعلام احصاء وعند حذف موظف يظهر خطأ في التقرير و الاستعلام عند حجز التوقيت و الفوج التربوي اريد احصاء كل موظف عدد الافواج في السنة الاولى والسنة الثانية والسنة الثالثة والسنة الرابعة ةالسنة الخامسة كما هو في التقرير الموجود مع البرنامج البرنامج4.rar

نفس المبدأ ، وهو إغلاق النموذج الحالي = الرئيسي !!!! ' إغلاق النموذج الحالي DoCmd.close acForm, Me.Name ' فتح النموذج المساعد DoCmd.OpenForm "frm_SetDefaultNO"

تم البدء بتنفيذ الفكرة .. رأيكم بالتصميم ..

تفضل التعديل JO_Lab-19-06-2026.rar

السلام عليكم اخي فادي شركات الخدمة ، سواء للاتصالات او الواتساب او التلغرام او ... او حتى البرامج ، عادة تفرض سقف لإستعمال منتجاتها/خدماتها المجانية للافراد ، ويكون عندها بديل بمقابل مادي عندما تصبح الخدمة المطلوبة جماعية/بالجملة . الواتساب مثلا ، صحيح نستطيع برمجيا ارسال الرسائل بسرعة ، ولكن نصطدم بحاجز الحوالي 200 رسالة في اليوم ، واذا زادت عن هذا العدد ، يوقف الواتساب الحساب !! نفس الشيء بالنسبة الى ارسائل sms ، وحسب الشركة مقدمة الخدمة ، فاذا تجاوز المستخدم الحاجز ، فالشركة تقوم بوقف الرقم. بالنسبة لنا كمبرمجين ، فالمتعة تكون في التحدي ، ولكن للاسف الشديد كم شخص اتصل فيني انه جرب البرنامج الفلاني من المنتدى لإرسال واتساب فاوقفت الواتساب حسابه ، فحاول مع كود ثاني وثالث والذي كلفه حسابه الثاني والثالث فياريت تكتب تحت كل برنامج: وفقا لشروط واحكام الشركة مقدمة الخدمة

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

بما أن النقطة الأولى التي تفضل بها أخي محمد ، مجانية وتعتمد على تطبيق وسيط . ذهبت للإلتفات الى الفكرة الثانية من خلال Ozeki NG SMS Gateway والبحث عن تفاصيلها . فوجدت انها مكلفة جداً نوعاً ما .. وتحتاج الكثير من الضبط على جهاز المستخدم. وأيضاً ستحتاج وجود انترنت كي يتم الاتصال بسيرفر الشركة المقدمة للخدمة !!

يا عيني عليك أخي محمد @Barna ، تفصيل جميل و وافي .. سأحاول الوصول الى التنفيذ والتجربة بإذن الله وأوافيك بالنتيجة

اعتقد أنه يجب العمل على الملف المرفق الذي ارفقه أخونا @jo_2010 في هذه المشاركة هنا . لأن ما يبحث عنه السائل هنا هو تعديل قيمة الحقل الإفتراضية داخل الجدول مباشرة دون الخروج من النموذج والعودة له .. وبعد تجربة المرفق من أخي منتصر ، اعتقد أنه اقترب الى حد ما 😉 . حيث بعد تجربة مرفقه النتيجة الغير مكتملة = مع العلم أن الحل الذي قدمه أخي @kkhalifa1960 يفي بالغرض لولا خروجه من النموذج والعودة من جديد له . وهذا يترتب عليه سجل جديد لو نسي المستخدم تعيين القيمة أولاً عند السجل الجديد .

هذا الحل قمت فيه بالإستفادة من أداة إنشاء وتحرير خصائص التطبيق والتعامل معها كمتغيرات عامة التي كنت قد رفعتها لمكتبة الموقع التعديلات ستجدها في عبارة If في حدث النقر المزدوج لمربع النص + حدث الفتح للنموذج بالإضافة إلى أنك ستحتاج إلى إستيراد الوحدة النمطية mdlDBProps وهكذا ستحصل على نفس النتيجة مع الإحتفاظ بالرقم الذي أدخلته حتى بعد إغلاق قاعدة البيانات تحياتي JO_Lab.rar