Moosak

اللهم آمين يارب العالمين وإياكم أستاذي العزيز 😊🌹

قليل مما عندكم يا سيدي 😊🌹

السلام عليكم ورحمة الله وبركاته أخي @shatat 🙂 بعد العديد من التجارب قمت بتصميم هذا النموذج ولله الحمد 🙂 : طبعا التقويم دايناميكي يتغير بحسب الشهر الذي يقع فيه التاريخ الذي بالأعلى ( Target Month ) .. وتظهر البيانات بالأسفل وتتغير حسب اسم الموظف والشهر المختار .. كل مشروع يتم تسجيله يحفظ باسم الموظف المختار بالأعلى .. وهذه دعوة للتجربة وإبداء الرأي 😊🌹 TimeSheet Project.accdb

تفضل أخي @حامل المسك 🙂 الحاق البيانات.accdb

عندي لم تظهر صفحات فارغة .. وسبب ظهورها على ما أعتقد هو عملية نقل البرنامج بين الأجهزة واختلاف إعدادات الطابعة الافتراضية .. والحل إما أن يتم تعديل تنسيق التقرير حسب الطابعة الافتراضية في جهازك ( وهذا غير عملي في حال تنقل البرنامج بين الأجهزة ) .. وإما أن يتم ضبط إعدادات التقرير على طابعة محددة فتبقى الإعدادات نفسها في كل الأجهزة .. 🙂

هناك حيلة صغيرة يا أخي @waledstar سأعلمك إياها بدون الحاجة لبرامج خارجية 🙂 بعد أن تقوم بتصميم جميع التقارير قم بتصميم تقرير تجميعي .. بحيث تجمع فيه كل التقارير على شكل تقارير فرعية .. وثم تفصل بينها بأداة فاصل الصفحات () .. فيظهر لك الشكل النهائي بهذه الطريقة : بعدها تقوم بتصدير التقرير التجميعي على صيغة PDF فيحصل المطلوب ☺️ وهذا مثال للطريقة : Many Reports in 1 PDF.accdb

وعليكم السلام أخي بلال 🙂 تفضل : البرنامج .rar

هذي دمها عسل زيك لأ بجد .. تتأخر معاي دقيقة كاملة

لله درك يا @ابو جودي رجل المهمات الصعبة 😉💪 حلوة جدا .. بس تتأخر حبتين .. 😏 يعني تبدأ تقفل بعد دقيقة تقريبا .. إلى المكتبة العامرة بالأكواد 😁✌️

نعم هي رسائل متتالية تضغط موافق لتختفي وتفتح لك الرسالة الثانية فالثالثة وهكذا .. الفكرة : رسائل ذاتية الاختفاء ، تختفي لتظهر الأخرى ..

قمت الآن بتعديل المرفق .. عملت فكرة ثانية 🙂 هنا ستدخل في مسألة هل يمكن عمل رسائل ذاتية الاختفاء 🙂 .. ولكن للأسف ليس لدي فكرة ..

وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 هذا حسبما فهمت .. عملت فكرتين .. ضع هذا الكود في حدث عند الإغلاق : Private Sub Form_Close() Dim x As Integer '----------------------------------------------(الفكرة الأولى) DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount MsgBox Me.n DoCmd.GoToRecord , , acNext Next '----------------------------------------------(الفكرة الثانية) Dim txt As String DoCmd.GoToRecord , , acFirst For x = 1 To Me.Recordset.RecordCount txt = txt & Me.n & vbNewLine DoCmd.GoToRecord , , acNext Next MsgBox txt End Sub aa.accdb

وحشتنا ياباش مهندس @ابو جودي 🙂

وعليكم السلام ورحمة الله وبركاته .. 🙂

" إذا عُرِفَ السبب بطل العجب " أول ما تبادر لذهني بعد قرائتي للموضوع : ما الهدف من ذلك ؟ والجواب عن هذا السؤال هو ما سيفتح لنا باب الحل المناسب🙂

وهذه طريقة أخرى بدون استخدام التايمر 🙂 Process Par.accdb

شكرا جزيلا لك أخي @kanory 🙂🌷🌸 سعيد جدا أنك استفدت منها 😊🌹

ولا أنا 😅✋🏻

أخي يحيى .. هل عدد الغرف ثابت ؟ أم أنه يزيد وينقص ؟ وما الهدف من تصميم النموذج ؟ للحجز ؟ أم للعرض ؟ أم ماذا ؟

ما هو عمل هذه المكتبة تحديدا ؟

أهلا بك في المنتدى أخي محمد 🙂 لكي تحصل على إجابة شافية ، ضع جميع التفاصيل بوضوح .. 🙂 ضع الكود هنا كنص .. وأشرح ما هو عمل الكود تحديدا ؟ ... وضع مرفق به الكود المذكور لكي يتم تتبع أصل المشكلة .. 👍🏼

أخي أبو عبدالله .. للتحكم بالنموذجين في نفس الوقت تأكد أنك حاط المودل = No أما بالنسبة لفتح النموذج أكثر من مرة فحسب علمي فيه طريقة متقدمة بالأكواد يمكن تعمل كذا .. ولكن ما تعمقت فيها .. 🙂

وعليكم السلام ورحمة الله أخي عبدالله .. أسهل شيء تعمل نسخة من النموذج وتخليه خاص بالإدخال الجديد فقط .. بمعنى تعمل زر [جديد] ويفتح لك النموذج الخاص بالتسجيل.

طيب الحين هذا البرنامج .. وهذي مؤسسة لم يتم زيارتها .. ونريد نرحلها .. أيش هو الشي اللي نغيره علشان نرحلها ؟ نغير التاريخ ؟ أو ننقلها لجدول ثاني ولا أيش بالضبط ؟ اسمحلنا بنتعبك معانا علشان نفهم المطلوب .. 😁 واللي فاهم الحكاية من الإخوة المبدعين يبادر بالحل 🙂

الأخ محمد هون عليك 😅🖐️ القضية وما فيها .. شكله الإخوان لا يعرفون الجواب لسؤالك .. لذلك لم يشارك الإخوة في الموضوع .. نصيحتي لك بأن تقوم بتحويل سؤالك لجهة أخرى كمايكروسوفت أو شركة الوينرار مثلا 🙂