ابو جودي

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

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

اللهم صل وسلم وبارك على سيدنا وسيد الخلق وحبيبنا نبينا محمد صلوات ربى وسلامه عليه وللعلم املك الاجابه ولكن اريد ان ارى ما بجعبتكم استاذى العزيز

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

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

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

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

شكرا على الاطراء المبالغ فيه انا اصلا قرأت الشرح يمكن افهم وبرضوا لم افهم شئ

اتفضل ان اردت عدد الاحرف استخدم هذا الكوود على ان يظهر العدد ف مربع نص باسم NUM_Characters Me.NUM_Characters = Len(Replace(MASS.Text, " ", "")) eta.accdb

اذهب الى محرر الاكواد اختر القائمة Tools ثم اختر منها References كما بالصورة الاتية لو كانت هناك مشكلة بالمكتبات ستجد كلمة :Missing بجوار اسم المكتبة مثل هذه الصورة على سبيل المثال

والان وقت الشــــرح للتعديلات التى تمت على المرفق 1- الجدول NewLab تم التعديل لنوع الحقل فيه OK_JO من نصى الى Yes/No 2-تم حذف الاستعلام New_No لا نريدة الان فى شئ 3-فى النموذج New_P_Test حدث عند الفتح تم ازالة الجزء الخاص بإستدعاء الاستعلام الذى حذفنا منذ قليل DoCmd.OpenQuery "new_no" 4-اضفنا الى النموذج الحقل OK_JO وقمنا باخفاءه انزر الى الصورة الاتية ولاحظ الارقام 1,2,3 على الصورة - الرقم 1 هو هنصر تحكم الحقل OK_JO والذى قمنا باخفائه واسم العنصر هو ChckOk - الرقم2 عنصر غير منضم اسمه txtOk ومصدر بيااناته كالاتى =ChrW(10003) علامة الصح بالترميز UNICODE وتنسيق الخط له هو Arial - الرقم 3 زر امر مخفى باسم cmdOK 5- على زر الامر المخفى وضعنا الكود الاتى Me.ChckOk = Not Me.ChckOk DoCmd.Requery Form_frm_P.ListNo.Requery -السطر الاول من الكود نخبره ان يعكس قيمة ChckOk لتغير من yes الى no والعكس -السطر التالى للتحديث بعد تغيير القيمة -السطر الثالث لتحديث بيانات نموذج فرعى اسم الهنصر الداله عليه هو ListOk والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p سنتحدث عن ذلك لاحقا بالتفصيل ودخلنا الى مصدر بيانات النموذج ولاحظ المعايير التى تم استخدامها 6-قمنا بنسخ هذا النموذج مع تغيير اسمه الى New_P_checked وقمنا بتعديل المعيار على الحقل OK_JO وقمنا بتعديل الكود على زر الأمر ليكون Me.ChckOk = Not Me.ChckOk DoCmd.Requery Form_frm_P.ListNo.Requery -السطر الاول من الكود نخبره ان يعكس قيمة ChckOk لتغير من yes الى no والعكس -السطر التالى للتحديث بعد تغيير القيمة -السطر الثالث لتحديث بيانات نموذج فرعى اسم العنصر الداله عليه هو ListNo والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p سنتحدث عن ذلك لاحقا بالتفصيل قأصبح النموذج الاول New_P_Test يعرض فقط الحقول التى لا تساوى yes والنموذج الثانى New_P_checked يعرض فقط الحقول التى لا تساوى no قمنا بعمل نموذج بأسم frm_P غير منضم لا مصر بيانات له ولكن قمنا بأدراج مربعين نص - مربع النص الاول بإسم dDate ومصدر بياناته =[Forms]![New_Project]![dDate] - مربع النص الثانى بإسم txtTCode ومصدر بياناته =[Forms]![New_Project]![txtTCode] وذلك لنحصل على كل من قيم التاريخ والكود من النموذج الرئيسى هنا قمنا بإدارج النموذجين New_P_Test , New_P_checked ليكونا نموذجين فرعين على هذا النموذج قمنا بتغيير اسم النموذج الفرعى New_P_Test من داخل التصميم ليكون اسمه ListNo قمنا بتغيير اسم النموذج الفرعى New_P_checked من داخل التصميم ليكون اسمه ListOk -السطر الثالث لتحديث بيانات نموذج فرعى اسم العنصر الداله عليه هو ListNo والذى تم إدراجه داخل نموذج رئيسى بإسم frm_p الان اتضحت الصورة

هل هناك مكتبات مفقودة . راجع محرر الاكواد Tools->References وعلى كل جرب المرفق الاتى GetNetTime.mdb

اتفضل m.accdb

اتغضل تم عمل الاتى وضع الكود داخل موديول لسهولة استدعاءه فى زوايا البرنامج المختلفة ( نماذج - استعلامات - تقارير ) التعديل على الكود لعرض التاريخ فقط بالتنسيق الذى طلبته ظهور الرسالة الاتية عند عدم وجود الانترنت ويتم احضار الوقت بنفس التنسيق المطلوب من الحاسوب GetNetTime.mdb

جربت الحل ده طيب ؟

طيب يا استاذ @محمد احمد لطفى الحل ده يرضيك واللا اروح انام test120 (2).mdb

العفو اخى الحبيب لا شكر على واجب

فكرة من بره الصندوق بالتحكم فى عدد الاسطر لكل صفحة تستطيع اظهار الامضاء فى صفحة بها بيانات وليس فى صفحة فارغة test120 (1).mdb

اخى الحبيب قم بتجربة الاتى انشاء مستخدم جديد للويندوز غير الذى تستخدمه الان للويندوز من لوخة التحكم control panel ادخل الى المستخدم الجديد وقم بالتجربة ان شاء الله قد تجد الحل ربما حصلت مشكلة باعدادت الريجسترى لانه اتذكر حدثت لى من قبل

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

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

طريق اخر مخزن -2.accdb