ابو جودي

ممكن حضرتك تنظر وتفحص المثال التالى عسى ان تجد فيه ضالتك ان شاء الله للعلم حصلت على البرنامج من البحث فى المنتدى ☻ برنامج شئون الموظفين.rar

☻

--------------- واليك المرفق بعد التعديل بدون ماكرو فقط تعديل الكود البرمجى ☺ Close.rar

للعلم قمت بتجربة فتح المثال ولم تظهر اى اطارات للاكسس فقط شاشة النموذج المخصص للبدء للعلم اعمل مع اكسس 2013

اتفضل اسال الله ان يفى بالغرض check yes or no.rar

حياكم الله وشكر الله لكم على كلماتكم الطيبة واتمنى ان تكونوا حققتم الافاده من المثال المتواضع الذى اهديتكم اياه

ياريت لو تكرمت بارفاق مرفق للتعديل عليه كما تريد جزاكم الله خيرا

انا مش قادر افهم كويس يعنى ايه المقصود من الجملة مع الاستفادة من الأرقام المحذوفة ؟ ركز معى فى الاتى المثال يحتوى على عدد (2) وحدة نمطية ـــــــــــــــالوحدة الاولى ــــــــــــــــــ تقوم باعادة ترتيب او تصفير الترقيم التلقائى بمجرد فتح البرنامج بعد إغلاقه المميزات ــــــــــــــــ - تقوم بتصفير الترقيم التلقائى ككل لو تم مسح كل السجلات - تقوم بإعادة ترتيب الترقيم التلقائى لو تم مسح بعض السجلات فقط وذلك دون اى تدخل من المستخدم - الاهم من ذلك أنها تتعامل مع الحقل الخاص بالترقيم التلقائى فى الجدول وهذا ما يميز الوحدة الاولى -تخرج التقارير من خلال الجدول بالترقيم السليم بعد اعادة ترتيبه ان اردت الترقيم من واقع الجدول يظهر فى التقرير العيب ـــــــــ لا يتم تنفيذ الترتيب او التصفير الا بعد اغلاق البرنامج واعادة فتحه ـــــــــــــــــــــــــــالوحدة النمطية الثانيةـــــــــــــــــــــــــــــــ الميزة الوحيدة ترى اعادة الترتيب او التصفير بمجرد اعادة تحميل النموذج فقط دون اغلاق البرنامج امممممم العيب ــــــــ غير مرتبطة بالترقيم الاصلى بجدول قاعدة البيانات لانها ترقيم تلقائى تخيلى فقط تراه بالنموذج دون الجدول مصدر البيانات الذى اعتمد النموذج عليه فى جلب ومعالجة البيانات والعمليات المرفق الثانى مكون من ثلاث امثله الاول ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 1 جدول A1 من خلال ماكرو AutoExec الثانى ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 2 جدول A1 , A2 من خلال ماكرو AutoExec الثالث ----- وحدة نمطية ModAutoNumFixID تعيد الترقيم التلقائى لعدد 3 جدول A1 , A2 , A3 من خلال ماكرو AutoExec لاحظ الفرق بين كود الوحدة النمطية لكل مثال المثال الاول الذى يحتوى على عدد 1 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول End Function المثال الثانى والذى يحتوى على عدد 2 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2, strSQL3, strSQL4 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثانى DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول DoCmd.RunSQL strSQL3 ' الجدول الثانى DoCmd.RunSQL strSQL4 ' الجدول الثانى End Function المثال الثالث والذى يحتوى على عدد 3 جدول Option Compare Database Option Explicit Public Function Mohammed_Essam_AutoNumFix() On Error Resume Next Dim strSQL1, strSQL2, strSQL3, strSQL4, strSQL5, strSQL6 As String strSQL1 = "ALTER TABLE [A1] DROP COLUMN [AutoNumber] ;" ' الجدول الأول strSQL2 = "ALTER TABLE [A1] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الأول strSQL3 = "ALTER TABLE [A2] DROP COLUMN [AutoNumber] ;" ' الجدول الثانى strSQL4 = "ALTER TABLE [A2] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثانى strSQL5 = "ALTER TABLE [A3] DROP COLUMN [AutoNumber] ;" ' الجدول الثالث strSQL6 = "ALTER TABLE [A3] ADD [AutoNumber]AUTOINCREMENT;" ' الجدول الثالث DoCmd.RunSQL strSQL1 ' الجدول الأول DoCmd.RunSQL strSQL2 ' الجدول الأول DoCmd.RunSQL strSQL3 ' الجدول الثانى DoCmd.RunSQL strSQL4 ' الجدول الثانى DoCmd.RunSQL strSQL5 ' الجدول الثالث DoCmd.RunSQL strSQL6 ' الجدول الثالث End Function ملاحظة هامه الحقل الخاص بالترقيم التلقائى إسمه فى كل الجداول AutoNumber ويجب الايكون مفتاح اساسى للمره الثانية يجب الا يكون حقل الترقيم الترقيم التلقائى مفتاحا اساسيا والا لن تعمل الوحدة النمطية على اعادة الترتيب مرةاخرى ممكن اجهز لك مثال للتحكم بالترقيم بكتابة الرقم الذى تريد بدأ الترقيم به وفى كل مره لاضافة سجل جديد يتابع الترقيم تلقائيا دون اى تدخل منك تقبل تحياتى اخى الحبيب بكل الحب والتقدير وبعد ان اجبتك بما فهمته على قدر عقلى البسيط فقط اهمس بود لو استخدمت البحث الخاص بالمنتدى لوجدت الكثير ولى سبيل المثال وليس الحصر انظر الرابط التالى http://www.officena.net/ib/index.php?app=core&module=search&do=search&fromMainBar=1 الترقيم التقائى-officena.rar الترقيم التقائى-officena (2).rar

كل الشكر والتقدير والعرفان باهتمامكم ومتابعتكم لنا استاذنا الكريم جزاكم الله عنا كل الخير طيب انا كده مش فاهم هو لو نسخة الاكسس انجلش ممكن عرض كل التقارير من خلال نموذج واحد كما فى المثال المرفق ؟ّ وذلك على اى نسخة سواء كانت 2003 او 2007 او 2010

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

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

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

اممممم استاذ رامهان اولا كل الشكر والتقدير والعرفان بمروركم الطيب ومتابعتكم جزاكم الله عنل كل الخير اولا اعتذر للتأخر فى الرد فكنت على سفر ثانيا بالفعل حاولت فتح المف على اوفيس 2007 بعد رجوعى من السفر على جهاز اختى ولكن بالفعل التقارير لم تفتح ولا اعرف السبب وحاولت مرار وتكرار التعديل ولكن دون جدوى

ممكن مرفق لقاعدة البيانات لمشاهدة ذلك على ارض الواقع لو تكرمت ويمكنك فى البداية استيراد القاعدة من خلال قاعدة جديدة وانظر الفرق وفى انتظارك ان شاء الله

1- اضافة زر بالنموذج لتغيير التاريج لكل السجلات دفعة واحدة. ممكن توضح بس انهو تاريخ حضرتك عاوز تغيره دفعه واحده 2 - اضافة زر بالنموذج لحفظ الشهر الحالي للرجوع اليه عند الحاجة. اعتقد الحفظ تلقائى 3 كيفية اضافة اوامر مثل فتح نموذج اوتقرير للوظائف الاضافية في اكسس 2010 (اي انشاء شريط ادوات خاص بالمنظومة ) انا مش فاهم النقطه دى برجاء التوضيح

كل كلمات الشكر والتقدير لا تكفيكم جزاكم الله خيرا ونسأل الله ان يجعلنا عند حسن ظنكم

اسف جدا جدا جدا انى حاولت المساعده ولكن لم اوفق فى ذلك ولم افهم طلبك جيدا وعلى كل انا بحثت فى هذا الموضوع مرار وتكرار وهذا ما توصلت اليه وللعلم لن تجد مثل هذا المثال فى المنتديات لا العربية ولا الاجنبية الا هنا فقط الا إذا قام احدهم بنقله ونسبته لنفسه لاننى بفضل الله وبفضل اساتذتنا الكرام فى هذا المنتدى سواء بطريق مباشر او بغير مباشر قمت بالتعديل عليه للخروج على تلك الهيئة التى لم ترضى ما تتوق اليه نفسك اممممممم اتمنى ان تجد ضالتك واتمنى لو وفقت ووجدتها لا تحرمنا من ارفاق مثال يوضح مالم نستطع فهمه او لم نوفق فى الوصول اليه وعلى كل اليك تعديل بإضافة نموذج اخر للبحث كما ورد فى المثال الاجنبى اعتقد قد يلبى طلبك وان لم اوفق هذا اقصى ما استطع فعله انظر النموذج الجديد بأسم frmSearchHighlight انظر النموذج الجديد بأسم tblCustmers-Search Search-up.rar

تم التعديل على المرفق الخاص بكم كما طلبتم اتفضل Search.rar

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

up هل واجه احدكم عقبة فى عرض التقارير داخل النموذج المسمى all او الذى يتم استدعاءه عن طريق الزر الرئيسية بإسم مثال الشامل

up هل واجه احدكم عقبة فى عرض التقارير داخل النموذج المسمى all او الذى يتم استدعاءه عن طريق الزر الرئيسية بإسم مثال الشامل

هل واجه احدكم عقبة فى عرض التقارير داخل النموذج المسمى all او الذى يتم استدعاءه عن طريق الزر الرئيسية بإسم مثال الشامل

الاساتذة الاجلاء والاخوة الكرام من فضلكم لى استفسار صغير هل واجه احدكم عقبة فى عرض التقارير داخل النموذج المسمى all او الذى يتم استدعاءه عن طريق الزر الرئيسية بإسم مثال الشامل كما فى الصورة الاتية فقد قيل لى انه لا يعمل على اصدار اكسس 2003 و على الاصدار 2010 والنتيجة واحدة : لا يمكن عرض التقرير من خلال النموذج فهل صادف احد الاساتذه او الاخوة تلك المشكله للعلم انا اعمل على اكسس 2013 وللتأكيد اعرض ملف فيديو يوضح الية العمل للمثال المرفق بداية من فتح وعرض المرفق وحتى الاغلاق اولا : اليوتيوب http://youtu.be/2Lc1r8Lg_h0 ثانيا : جوجل كروم رابط >>> جوجل درايف ملاحظه هامه للحصول على اعلى جوده وعرض واضح للحروف والكلمات اثناء عرض الفيديو برجاء الضغط على رمز الترس اسفل يمين الفيديو لاختيار الجوده لعرض الفيديو كما هو موضح فى الصورة التاليه اعتذر للاطاله والاثقال على حضراتكم واشكر لكم حسن تعاونكم وسعة صدركم شكر الله لكم وجزاكم عنا خير الجزاء

للعلم انا اعمل على اكسس 2013 وللتأكيد اعرض ملف فيديو يوضح العمل للمثال المرفق بداية من فتح وعرض المرفق وحتى الاغلاق اولا : اليوتيوب http://youtu.be/2Lc1r8Lg_h0 ثانيا : جوجل كروم رابط >>> جوجل درايف ملاحظه هامه للحصول على اعلى جوده وعرض واضح للحروف والكلمات اثناء عرض الفيديو برجاء الضغط على رمز الترس اسفل يمين الفيديو لاختيار الجوده لعرض الفيديو كما هو موضح فى الصورة التاليه

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