الحلبي

استاذي ومعلمي الفاضل / @ابا جودى مروض اكسس والله انا مش عارف اقول لك ايه - انا تعبتك معايا قوي وربنا ان الله شاء الله يجعله في ميزان حسناتك لا املك غير اني ادعو لك بدوام الصحة وان الله يبارك في اولادك ويرحم والديك في الدنيا والآخره كما احييك علي التنسيق الجميل وشكل النماذج الاحترافي الذي لا يخرج الا من ايدي خبراء ومحترفين تم الاستيراد ومعه بعض الملاحظات اعتقد ان سببها اختلاف الاصدارات ولكن بفضل الله وجهدك معي قدرت ان اتغلب عليها لان في التعديل الاخير تعلمت منك الكثير والكثير وعرفت اعمل وحدة نمطية لاول مرة وجلست اخترع وجدت ان الدنيا جميلة وهذا فائدة المنتدي في توصيل المعلومة والتعليم لقد تعملت كثيرا منك ايها الخبير المعلم بمعني الكلمة . وبهذا اكون وصلت لتحقيق مطلبي واقدر واشكرك مرة تانية علي هذا الجهد المبذول كل الاحترام فعلا والتقدير لكم استاذي ومعلمي الفاضل / محمد عصام كما اشكر معلمنا الجليل / @jjafferr علي مروره ولمساته التي وضعها ربنا يجزاه خير ويكرمه ويبارك في اهله الله يبارك فيكم جميعا ويحفظكم

سامحني اخي الفاضل / محمد صلاح1 لم انتبه لسؤالك الا الآن عندي الامر كما هو حسب المثال المرفق من استاذنا وبشمهندسنا / ابا جودي جزاه الله خيرا هل تريد شئ معين في المثال

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

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

شوف استاذي ومعلمي تكرما منك اذهب الي النموذج frmain واضغط علي اسم الموظف وليكن محمد عصام لتسكينه واختار له الدور الاول الغرفة رقم 1 سرير رقم 111 مثلا ثم اغلق واذهب الي النموذج frmbeds تجد ان امام اسم ( محمد عصام ) كلمة متاح مع اننا قمنا بتسكينه المفروض ان السرير رقم 111 غير متاح اما بالنسبة للوحدة النمطية الطويلة فهي التي تبدأ بالثلاث اسطر التاليين 'Window style flags Private Const GWL_STYLE = (-16) Private Const WS_MAXIMIZE = &H1000000 Private Const WS_MINIMIZE = &H20000000

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

بشمهندسنا ومروض اكسس / @ابا جودى قبل اي شئ اريد ان اسئلك سؤال : هل انت تعمل في شركة microsoft office access ونحن لا نعلم ؟ عايز الاجابة نعم أم لا وبسرعة ما هذا الجمال ما اروع من هذه الاكواد وكأنك تقوم برسم لوحة فنية مثل (الموناليزا) للرسام ليوناردو دافنشي) زادك الله علما ونفعك به وبارك الله فيك وفي اولادك ورحم والديك كانك فعلا تقرأ ما في خاطري وما يجول في نفسي من هذه الاضافات ولا انسي لا انسي لا انسي استاذي الجليل / ابو خليل فقد وضع حجر الاساس واشار لكل من يريد ان يتعلم من تحت يده ربنا يزيده علما كمان وكمان وان ينفعه به . ندخل الآن علي التحليل وبعض الملاحظات الصغيرة التي اريد ان اعرفها منك في النموذج frmain عند الضغط علي اسم الموظف لتسكينه وبعد اتمام التسكين له الي هنا تمام ـ وعند الذهاب الي نموذج frmbeds نجد ان رقم السرير متاح مع انه غير متاح . في النموذج frmsearch لم افهم هذا الكود Me.KeyPreview = True ارجو توضيحه هذا . ومن اين يوضع تاريخ الدخول بمعني من اين اتي تاريخ الدخول والخروج . يوجد في محرر الاكواد وحده نمطية كبيره جدا لم اعرف الفائدة منها وكيف وضعت في المحرر دون اسم وحده نمطية لها الاهم من هذا كله هام جدا جدا طبعا عند التطبيق على برنامجي قمت باستيراد الجداول والنماذج رفض ان يستورد النماذج واستورد فقط الجداول ، اعتقد بسبب اختلاف الاصدار في اكسس لانه يظهر لي رسال اثناء الاستيراد تقول ان المشروع ليس موجود بالمكتبة ـ حاول ان تستورد يا استاذ / محمد حضرتك علي اصدار غير الموجود عندك انا طبعا استخدم ويندوز 7 وافيس 2010 32 بت قمت بتعديل امتداد الملف من mbd الي accdb ايضا لم يتم الاستيراد معلش استاذي ومعلمي ابا جودي تحملني وانا واثق انك لا تتأخر من طيب اصلك ومعدنك الاصيل كما احييك علي الولاء العظيم الذي تكنه لمعلمنا الجليل / ابو خليل هذا ايضا من حسن الاصل والمعدن انا في انتظار حضرتك

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

بشمهندسنا ومروض اكسس / ابا جودي اسف اسف جدا لتأخيري في الرد سامحني كنت في (السعودية في القصيم) لمدة تقريبا يومين في مهمه عمل ولسه داخل حالا البيت ولم يسعفني الوقت هناك في الدخول اري اشياء واضافات مبدعة سوف ارتاح قليلا واعود بعد التجربة انا فضلت ان اقدم اسفي واعتذاري اولا

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

معلمي الجليل / ابو خليل لا تعلم كم ارحت صدري بهذه الجملة حفظكم الله ورعاكم ورزقكم الفردوس الاعلي

والله ياجماعة الخير جميع اعضاء المنتدي المفروض تشكروني انا كمان علي سهر الليالي من اجل هذا العمل طبعا امزح بالمصري بهزر معكم اعقد ان هذا العمل للعملاق الكبير / ابو خليل يقلب بعض الموازين في البرمجة وفي الاكواد // البرنامج فيه اشياء عجيبة مثل الوحدة النمطية اول مرة اشوفها عجيبة جدا و لا اكون مبالغا حين اقول ان البرنامج يجب ان يُدرس ليس فقط في جامعات اكسس بل يُدرس في شركة اوفيس نفسها احيانا معلمنا يضغط عليا في بعض الامور ولكن في النهاية اصعب عليه ويرجع بالرد فانا مؤمن ان المعلم حين يهتم بطالب يقسو عليه لكي يفيده وياشيخنا الجليل كم انا حزين جدا لسحب شهادتك لي فهي المرة الاولي في حياتي التي اكون فيها علي غير حسن ظن اي دكتور قام بتعليمي حرفا واتاسف لك لاني سببت لك بعض الغضب المهم اريد ان اقول اشياء كثيرة لا مجال لها ولا محل لها هنا ـ هذا فقط من سعادتي وفرحتي بالعمل اسف جدا لا ادري لماذا كتبت هذا

الاستاذ / الجليل والمعلم الفاضل / ابو خليل بيض الله وجهك فعلا تعبت واثمرت جزاك الله كل خير واصبح الآن كل شئ تمام الله يفتح عليك وعلي ماقال استاذنا الفاضل / مسفر ليس لي عذرا كل الاحترام والتقدير لمعلمنا الجليل

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

معلمي الجليل الطوابق= 4 الغرف : الطابق الاول 6 غرف ـ الثاني 5 ـ الثالث 5 ـ الرابع 4 الاسرة : 6 لكل غرفة عدا الطابق الاول في الغرفة 1 والغرفة2 يوجد عدد 2 سرير

الساعة الان في القاهرة الثالثة والربع صباحا وانا جالس اعمل بعض المحاولات التالية : قمت بتغير شكل رقم الطابق والغرفة ليسهل بمجرد النظر اليهم معرفه اماكنهم قمت باضافة تاريخ الدخول والخروج في الجدول tblbedcase وعدلت في استعلام الالحاق ولكن لم اعرف اين اسجل تاريخ الخروج ونظرا لان عملية انشاء ارقام الاسرة طويلة بعض الشئ فاني فكرت لماذا لم نقوم بعمل وحدة نمطية او كود برمجي رايته كثيرا ولكن لم اعرف اعمله وهو Dim i As Integer DoCmd.GoToRecord , , acFirst For i = Val(k) To بحيث يسلسل لنا اولا ارقام الغرف والطوابق ثم ارقام السارير لا ادري هل هذا يجوز ام لا ولكنها مجرد محاولة لتسهيل الامور المرفق بعد التعديلات ‫sakn - نسخة.accdb

الان يعمل النموذج frmain بالشكل الصحيح بعد تصحيح الخلل

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

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

قمت بنقل الكود ظهرت لي مشكلة قبل وبعد تعديل الكود وهي ان نموذج frmain عند الضغط علي اسم الموظف لكي يفتح لي نموذج frmchang فانه لا يفتح نعم لم اعرف تسجيل وانشاء نموذج الاسرة ارجو مساعدتي

معلمنا الجليل وعدت ففعلت فصدقت /// الله يفتح عليك ويعطيك العافية ويرحم والديك في الدنيا والاخرة ويبارك في اهلك و رزقك فعلا كلام مدهش وفي غاية الاستمتاع وانا اجرب واروح هنا وهناك بين الاكواد بارك الله فيك معلمنا كل شئ تمام لقد فهمت من اول وهله ماذا تقصد بتسمية الطوابق والغرف بهذه الاسماء العبقرية وعرفت لماذا لا يمكن بأي بحال من الاحوال بعد التسجيل ان يتاح التعديل على الطوابق او الغرف وان سمح لي معلمنا الجليل بان التلميذ يحاور استاذه مجرد حوار فقط في بعض النقاط البسيطة جدا والتي من وجهي نظري المتواضعة ان تضيف ان لم ينقص والنقاط هي : اضافة تاريخ تسجيل الدخول (تاريخ التسكين) وتسجيل تاريخ الخروج (عندما يترك الموظف الغرفة بسبب نقله لموقع اخر مثلا ) فاين اضيفها ؟ في النموذج frmain لا اري بقية الطوابق المذكور فقط الدور الارضي//// فقمت باضافة للدور الاول فقبل معي اي يقبل الاضافة ولا نقوم بالتعديل في المسمي في النموذج frmchang العجيب والخاص بالحركة اي ( تسكين الموظف) ان اسماء الموظفين في مربع تحرير وسرد فانا عندي اكثر من 2000 موظف فعند الكتابة في مربع التحرير لا يفلتر لي الاسماء (خصوصا في الاسماء المتشابه ثلاثيا) فهل من طريقة للبحث عن الاسم حتي يفلتر ويظهر لنا الاسم المطلوب تسكينه هذه كانت بعض النقاط حببت ان اذكرها بقي فقط ان تؤكد لي فهمي لمسميات الطوابق والغرف هل هي مثلا f_1 معناها الطابق الاول وهكذا الباقي والمسمي 1_1_0 معناه من اليسار لليمين الحرق الاول (0) الطابق الارضي والحرف الثاني (1) معناه الغرف رقم 1 والحرف الثالث (1) معناه السرير رقم 1 ان كانت الاجابة نعم فقد اشرت حضرتك بان اقوم بانشاء نموذج يتم من خلاله تسجيل جميع الاسرة (الاساسيات) فكيف يمكن عمل ذلك الي الان لم اقم بالتطبيق علي البرنامج الخاص بي فارجو ان يتسع صدرك كما عرفت عنك ان كان اي استفسار لي عند التطبيق بارك الله فيك وجعلك خير عونا لنا

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

حاولت ان اعمل نماذج علي هذه الجداول بحيث اتمكن من تسكين الموظف ولم استطع وكل محاولاتي بدون فائدة فهل اجد احد من الاخوان لتكملة الباقي من انشاء نماذج كالتالي: نموذج يوضح لي الغرف المتاحة (الغير شاغرة) والتي بها سراير فاضية بحيث يظهر لي في النموذج : اسم الطابق ـ ورقم الغرفة ـ ورقم السرير ( المتاحين ) الفاضين الان حتي اقوم باختيار المكان الفاضي لموظف جديد . جزاكم الله خيرا

اليك الجداول استاذي الفاضل وان كان هناك تعديل اشر لي واقوم بها فورا سكن الموظفين.accdb

ساقوم بعمل الجداول الان معلمنا الجليل اعطني بعض الدقائق