Moosak

لا أدري إن كانت ستعمل لديك ولكني حولتها بصيغة 2003 .. جرب 🙂 -------> Objects List 1.0 - 2003.mdb عمي العزيز المهندس خالد @متقاعد 🙂 كرما منك وفضيلة .. هذه الكلمات العذبة الرقراقة 🙂 🌹 لم أتطرق إلى هذه التفاصيل عمي خالد .. ولكنها قد تكون الفكرة القادمة .. ولكن متى تكون الحاجة إليها لعرضها عن طريق أداة مبتكرة ؟ شكرا لمرورك عمي قاسم 🙂 .. فعلا كنت أضطر لفتح برنامج المذكرة وأنسخ فيه أسماء النماذج عندما أشتغل على البرامج .. كانت مهمة أخطبوطية معقدة 😅

شكرا لمرورك أستاذنا @ابوخليل 🙂 ومن رحم المعاناة تولد الفكرة 🙂 ******************************************************************** والشكر موصول إليك أخي @عمر ضاحى يسعدني مرورك 🙂 وبالنسبة لسؤالك ؟ فالحل موجود فعلا في زاد المثابر 😅👌 .. جميع النماذج تظهر في القائمة ومن ضمنها النماذج الفرعية اختر النموذج الفرعي من القائمة وسيعطيك عناصره مباشرة 🙂 ******************************************************************** شكرا لك أخي @محمد احمد لطفى 🙂 🌹 ******************************************************************** أخي @النجاشي أنا أعمل على آخر إصدار للأوفيس 365 .. ماهي النسخة التي لديك ؟

شكرا لك أخي @kanory على وضع بصمتك هنا🙂 وأنا أتشرف بكونك أول الحضور ☺️🌹

السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والمتواضعة ( زاد المثابر للحصول على أسماء العناصر) هذه الأداة صممتها بفضل الله في أكسس تقوم بإحضار وسرد أسماء العناصر لك لكي تستطيع نسخها ولصقها في أي مكان تريد بكل سهولة ويسر 🙂 شخصيا أستفدت كثيرا منها وسهلت علي الكثير من الجهد وقلصت من وقت العمل بحمد الله وفضله. وهنا اختصرت على نفسي الكتابة وقمت بشرح الأداة مرئيا 🙂 متابعة ممتعة 😊👌🏼 ولا أستغني عن آراءكم وملاحظاتكم .. 🙂 لتحميل الملف المستخدم في الشرح وبه النموذج : التحديث 2.0 : تم إضافة خاصية جلب عناصر النماذج الفرعية .. والتقارير الفرعية .. شكرا للأخ @عمر ضاحى على الفكرة 🙂

يمكنك عمل ذلك من خلال الاستعلام الذي ستبني عليه التقرير .. ضع هذا المعيار أسفل حقل التاريخ : between [من تاريخ] and [إلى تاريخ] وستظهر لك صناديق إدخال لتاريخ البداية وتاريخ النهاية 🙂

شفاك الله وعافاك من كل مكروه أخي @النجاشي طهور إن شاء الله

لا 🙂

أخي العزيز طاهر 🙂 .. ارفع محاولتك في المنتدى ( في موضوع جديد طبعا 😉 ) وإن شاء الله ستأتيك الحلول ... 🙂

وعليكم السلام ورحمة الله وبركاته أخي النجاشي 🙂 شكرا جزيلا لك على المشاركة ، ولكن لم تعمل عندي جميع النماذج للأسف .. ويندوز 10 - 64 بت

شكرا لك أخي أبو أمين 🙂

شيل آخر سطر .. DoCmd.Requery وممكن تستبدله ب: DoCmd.Refresh

وهذا واحد آخر ..🙂

عمي @ابوخليل 🙂 ممكن تكرما توضح لنا كيف تقوم بعمل الملف التنفيذي ؟ .. وكيفية إعطائه أمر الاستبدال ؟ .. وهل تختلف الطريقة عندما يكون التنصيب للمرة الأولى وعندما تكون للتحديث فقط ؟

أنظر هنا أيضا: 🙂

الحين بصراحة هذولا الأداتين ريحني وصرت لا أستغني عنهما في برامجي .. ومع التجربة على أرض الواقع فعلا ارتحت جدا في تحديث البرامج وتنزيلها وتوزيعها على أجهزة المستخدمين .. 🙂 صرت أتحكم بكل شي من جهازي المربوط على نفس الشبكة .. أو أرسل ملف التحديثات لمدير البرنامج وبكل سهولة يضيف ملف التحديث الجديد والبرنامج بنفسه يقوم بكل شي .. وهذولا الأداتين هم : 1- الإتصال التلقائي بقاعدة البيانات الخلفية ، وتخزين مكان قواعد الجداول اللي يرتبط بها البرنامج تلقائيا . 2- تحديث نسخة الواجهات للمستخدمين أوتوماتيكيا ، فقط بنقرات بسيطة يقوم البرنامج باستبدال الواجهات القديمة بالجديدة بدون ما يشعر المستخدم. 3 - ومع هذي الأداتين طورت طريقة لإغلاق البرنامج عند المستخدمين وفتح شاشة للإنتظار لهم بدل الإغلاق الكلي للبرنامج ، وذلك في حال أردت التعديل على نسخة الجداول ، أو لمجرد إغلاق البرنامج عنهم ( مزاج المدير ) 😅 الشغل كان عليها متعب وممتع في نفس الوقت لحد ما وصلت لنيجة مرضية ولله الحمد 🙂 وبالنسبة للتحديثات في نسخة الجداول واردة جدا .. ومريت بنفسي بضروف مشابهة لكن لحد الآن ما حصل نقل كبير للبيانات .. لكن هناك أفكار لإرسال أوامر التعديلات لقاعدة الجداول برمجيا عن طريق ملف أكسس آخر .. يقوم بعملية إضافة الجداول ودمج البيانات وغيرها ... وهذا كله متاح في ال VBA فقط تحتاج لصبر ومحاولة 😊

هذه لها حل والحمد لله وقد طورت لها نظام يستطيع التعرف على القاعدة الخلفية والإرتباط بها أوتوماتيكيا 🙂 وقد تحاورت حينها مع كبير المهندسين @jjafferr في هذا الموضوع .. وأتمنى أن يسعفني الوقت لإفراد شرح مستقل بها إن شاء الله ..

ليش متشائم ؟ 😅🖐🏼️ يوجد طرق عديييييييييدة وليست طريقة واحدة .. 😏 مثلا هذي طريقتي في عمل تحديثات وتوزيعها على جميع الأجهزة الرتبطة أوتوماتيكيا .. ولكنها طريقة قديمة وعملت لها تحديثات .. وأنوي تنزيل موضوع جديد إن شاء الله بآخر التحديثات 🙂

ما تغير شيء .. فقط حركة بسيطة للعناصر .. ولم يتم التوسيط هاك ملف بصيغة 2003 ‏‏‏‏‏‏AA - 3-4 (2003).mdb

وعليكم السلام ورحمة الله وبركاته أخي العزيز ..🙂 ستجد في المنتدى العديد من المواضيع التي تتكلم عن الإرسال بالجيميل وهي ناجحة بحمدالله .. أنظر هنا مثلا وهنا مثلا :

اللهم آمين وإياكم أخي رشيد 🤲🏼🌹

وعليكم السلام ورحمة الله وبركاته 🙂 نعم يوجد .. ضع الأوامر التي تريدها في public sub وناديها من حيث شئت في البرنامج ..

ومسائك سعيد أخي @TQTHAMI 🙂 أضفت لك الحقل IsAdmin في الجدول وهذه الأسطر في الكود : Dim IsAdmin As Boolean .... .... IsAdmin = DLookup("IsAdmin", "users", "[id] =" & Forms![FrmSign]!a) .... .... .... .... If IsAdmin = True Then DoCmd.OpenForm "frm2" Else DoCmd.OpenForm "frm1" End If .... .... مثال (2).accdb

قام أخي @kanory بالواجب جزاه الله خيرا 🙂 ولكن لدي ملاحظتين : 1- أعتقد أنه من الخطأ الاعتماد على اسم المستخدم لمعرفة إن كان هو المشرف أو مستخدم عادي .. فلو تم تغيير الاسم في الجدول لن يعمل معك الكود .. وأقترح أن تضيف حقل جديد من نوع (نعم/لا) يكون اسمه IsAdmin مثلا .. وعليه تبني الكود . 2- ما أجمل الكود عندما يكون مرتب بطريقة سهلة القراءة .. أولا سترتاح أنت في كتابته وتعديله والرجوع إليه .. وثانيا ستريح من يأتي بعدك لتعديله وفهمه لاحقا 🙂 .. لاحظ الفرق الآن بعد أن كان مكدسا كله على جهة اليسار 🙂 : 3- والثالثة مجانية من عندي 😎 غير اسم حقل الاسم إلى UserName مثلا .. لأن كلمة Name وحدها محجوزة للأكسس..

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل : شعار.accdb