ابو جودي

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

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

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

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

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

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

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

السؤال الان ما العلاقة بين الجدولين او ما هى البيانات التى تريد اظهارها ؟؟؟؟؟؟ انظر المرفق الاتى الاستعلام >>------->> qryMixToetbl الخطوة الأولى توحيد التاريخ بين الجدولين ولكن لا اعرف علاقة البيانات لاكمل هل تريد التواريخ المتوافقة فيما بينهما ؟ ام ماذا Prog2006 (1).mdb

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

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

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

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

ههههههههه ماشى يا استاذ @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

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