ابو جودي

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

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

اخى الكريم فضلا وليس امرا برجاء التأكد من روابط التحميل على سبيل المثال اول رابط المشروع الأول مشروع الجمعية الخيرية لا يعمل

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

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

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

اخى الفاضل قمت ببعض التعديلات اتمنى ان تجد ضالتك ان شاء الله كما تتنماها staff.rar

ممكن حضرتك تنظر وتفحص المثال التالى عسى ان تجد فيه ضالتك ان شاء الله للعلم حصلت على البرنامج من البحث فى المنتدى ☻ برنامج شئون الموظفين.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