AbuuAhmed

استغفر الله العظيم DD129_01.accdb

جرب هذا الكود: Option Compare Database Option Explicit Function GetDays360(DateFm As Date, DateTo As Date) As Double Dim Part1 As Double, Part2 As Double, Part3 As Double Dim mmDays As Byte, FullMonths As Integer Dim Date1 As Date, Date2 As Date If DateTo - DateFm < 0 Then Exit Function Date1 = DateSerial(Year(DateFm), Month(DateFm) + 1, 1) Date2 = DateSerial(Year(DateTo), Month(DateTo) + 0, 0) FullMonths = DateDiff("m", Date1 - 1, Date2) mmDays = Day(DateSerial(Year(DateFm), Month(DateFm) + 1, 0)) If FullMonths < 0 Then Part1 = (DateTo - DateFm + 1) / mmDays * 30 Else Part1 = (Date1 - DateFm + 0) / mmDays * 30 Part2 = FullMonths * 30 mmDays = Day(DateSerial(Year(DateTo), Month(DateTo) + 1, 0)) Part3 = (DateTo - Date2 + 0) / mmDays * 30 End If GetDays360 = Part1 + Part2 + Part3 End Function Sub Test() Dim Date1 As Date, Date2 As Date Date1 = DateSerial(2023, 1, 1) Date2 = DateSerial(2023, 12, 31) MsgBox GetDays360(Date1, Date2) End Sub على راسي @ابوخليل

هل أشتغل لك على مقترحي ، يعني هل أنت موافق ، أنا لا أريد أن يذهب تعبي سدى ، أكد لي موافقتك لو سمحت

طريقة غريبة في الحساب!! ممكن تشرح السبب، هل الحسبة تخص الرواتب؟ ممكن نعمل تحايل ولكن سيكون عدد الأيام عدد عشري يعني به كسور ، فهل هذا يرضيك؟ يعني لو عندنا يومين من شهر فبرير ويومين من شهر مارس ستكون المدة (2/28*30) + (2/31*30) أي الأربعة أيام ستحسبها 4.0783410138 وستضربها في الراتب/30 Days = (2 / 28 * 30) + (2 / 31 * 30) = 4.0783410138 وبافتراض أن الراتب الشهري 1000 NetSalary = 4.0783410138 * (1000 / 30) = 135.94

أخي لو أكملت على نسخة 2003 التي رفعتها أنا كان تركت فرصة لأكثر من واحد يحاول معك في حل المشكلة. كذلك لما لا تجعل تعديلك على التقرير وليس النموذج ، أنا الصراحة لم يأتي في بالي أن يحول "نموذج" إلى PDF ، جرب في التقرير أخي.

أستاذ @kkhalifa1960 مع أن ما تقوم به ليس له علاقة بفكرة الموضوع فموضوعي فقط هو توسيط جميع المكونات أفقيا مع تكبير أو تصغير النافذة ودون أي تغيير في أبعادها. فقد قمت بتحسين مثالك قبل الأخير وربما التعديل غير ملاحظ فستحتاج إلى فتح المثالين قبل وبعد ثم تقارن. Re-centerBlooming_Flower_04.rar

ممتاز ، وأنا سأقوم ببعض الإضافات إن شاء الله لتحسين الشكل بعد التصغير إن سمحت لي.

محاولتي: المصنف_02.xlsx

@kkhalifa1960 مر على مثال طلبك وقل رأيك فيه بالإيجاب أو بالسلب.

تم تتكملة الكود لجلب كل البيانات. تقويم سنوي 2003_03.mdb

فتح التقرير من النموذج ، لم أرغب برفع المثال ، لأترك لك فرصة تطويره لوحدك وحتى لا أتورط في طلبات قادمة 🙂 .. سبق أن نوهت أني مزحوم وربما أكون أكثر حضورا بعد العيد إن شاء الله. المثال: تقويم سنوي 2003_02.mdb

جرب هذا الحدث للتقرير Private Sub Report_Load() Dim mm As Byte, dd As Byte With Forms("Tqweem_Sanawi") For mm = 1 To 12 For dd = 1 To 42 Me("M" & mm).Report.Controls("Day" & Format(dd, "00")) = _ .Controls("M" & mm).Form.Controls("Day" & Format(dd, "00")) Next dd Next mm End With End Sub ويمكن إضافة الألوان كذلك بنفس الطريقة

إذا ناوي تعملها سأعطيك فكرة بسيط لعملها بجهود بسيطة ، وهي أن تصمم كود خاص بالتقرير يقرأ نتائج النموذج فقط. ولا تحتاج إلى تصميم من جديد في التقرير ، فقط انسخ مكونات النموذج والصقها في التقرير. إذا "مو" ناوي حول لي النسخة إلى 2007 وأنا أعملها.

محاولة ولكن بشروط: أن تقوم بضبط عرض صندوق الصورة بما يناسب الصورة تماما. أن تعرف أبعاد الصورة وليس الصندوق ليتم التعامل معها في ضبط الإرتفاع بناء على العرض "نسبة وتناسب" فالصورة عندك أبعادها 500 * 253 وسترى هذه الأرقام في الكود وطريقة التعامل معها. عملت لك كودين في الفرعي وفي الرئيسي. Re-centerBlooming_Flower_02.rar

ممتاز في تصوري لو تكون المخرجات في تقرير سيكون منفعتها أكبر

أستاذ خليفة، الحقيقة التوسيط قائم، فالمشكلة في التوسيط داخل الكائن نفسه ، وأنا لم أتعامل مع هذه الأشياء من قبل. حاولت بعض الوقت ولم أوفق. تحياتي لكم

للأسف أخي لا أمتلك أدوات التسجيل ، والأمر بسيط لا يستدعي وسائل توضيح ، افتح النموذج ثم لتحجيم النافذة أو تكبير عرضها اختر الطرف الأيمن واسحبه لليمين أو اختر الطرف الأيسر واسحبه لليسار. وكذلك تستطيع عكس اتجاه حركة الماوس لتصغير عرض النافذة. ويمكنك أيضا عمل Maximize و Restore للاختبار.

حتى يمكن استخدام الكود لكل النماذج دون أن تعديل ودون أن يلتزم بأي اسم من كائنات النموذج تم تبديل هذا السطر: Gap = -Me.slbl2.Left إلى: Gap = -minX المثال بعد التعديل: Re-centerExample_02.accdb

توسيط جميع المكونات في النموذج ككتلة واحدة أثناء التشغيل آليا داخل النافذة عند إعادة تحجيمها. جربوا توسيع النافذة بالفأرة وشاهدوا تأثير التوسيط المباشر. لا أعلم إذا يوجد مثال مشابه أو لا لتوسيط كامل النموذج. من صمم أو شاهد أفكار مشابهة فليضعها هنا لإثراء الموضوع. وهذا موضوع به نفس الكود لفكرة التوسيط، وبه أيضا أفكار عدة جميلة من وجهة نظري تستحق المشاهدة: وإليكم مثال التوسيط: Re-centerExample_02.accdb

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

سؤال أحاول أعرف جوابه لـ @أكسس وبس : أنا عملت لك تعديلات أتعبتني وأخذت مني وقت طويل في موضوعك السابق ، ثم أتفاجأ الآن أنك ترفع المثال حاذف منه كل تعديلاتي!! ممكن طال عمرك تفهمنا السبب؟ أنا أنصح أخي @ابوخليل وباقي الزملاء بالتوقف عن مساعدتك إذا كان هذا ديدنك.

جرب ، عملته أولا في النموذج الرئيسي ثم رأيت أن يكون في الفرعي. Database1_05.mdb

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

منذ الصباح الباكر وأنا أحاول مع هذه المشكلة الغريبة. أنا الحقيقة لا أحب ولا أتعامل مع هذا النوع من النماذج Continuous Forms ولا إضافة معادلات لمصدر الصناديق Control Source وسامحني قد لا أستطيع التواصل معك فأنا انقطعت عن برامجي الخاصة ولا بد أن أرجع لها. قاعدة بيانات4_02.accdb

جرب فقط نموذج مبيعات يومية وإدخال الباركود عن طريق الصندوق الأصفر. عدلت طول رمز الصنف من 7 إلى 5 خانات. Database1_04.mdb