AbuuAhmed

هذه دالة من الزمن القديم من أبي هادي لعد أي يوم من الأسبوع بين تاريخين وإجراء مني لطريقة استخدامها: Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As Byte) As Long 'WeekDay Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function Sub CountWkDayTest() Dim Date1 As Date Dim Date2 As Date Date1 = DateSerial(2022, 1, 1) Date2 = DateSerial(2022, 1, 20) MsgBox CountWkDay(Date1, Date2, vbFriday) + _ CountWkDay(Date1, Date2, vbSaturday) End Sub هذه الدالة قد تقلل من كتابة الأكواد وخطوات الحسابات للعاملين بشؤون الموظفين أو المحاسبين، وربما تكون سببا في تغيير ما تفكر فيه الآن. 🙂 . ممكن نعرف جدوى هذه الخطوة؟ سأعود لكم الليلة إن شاء الله.

هذه دالة من الزمن القديم لأبي هادي لعد أي يوم من أيام الأسبوع بين تاريخين وإجراء مني لطريقة استخدامها: Function CountWkDay(ByVal Date1 As Date, _ ByVal Date2 As Date, _ WkDay As Byte) As Long 'WeekDay Counter Date1 = Date1 - 1 Date1 = Fix((Date1 + (7 - WkDay)) / 7) Date2 = Fix((Date2 + (7 - WkDay)) / 7) CountWkDay = Date2 - Date1 End Function Sub CountWkDayTest() Dim Date1 As Date Dim Date2 As Date Date1 = DateSerial(2022, 1, 1) Date2 = DateSerial(2022, 1, 20) MsgBox CountWkDay(Date1, Date2, vbFriday) + _ CountWkDay(Date1, Date2, vbSaturday) End Sub

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

أمتلك الجواب ولكني أود السماح لمعلوماتكم وخبراتكم كما أو منكم لا يذهب أحدكم للبحث عن المعلومة ، اكتبوا فقط ما هو عالق في ذاكرتكم. والخيارات هي لإقفال الـ Recordset هكذا: rst.Close set rst = Nothing set dbs = Nothing أو هكذا: rst.Close set dbs = Nothing أو هكذا: set rst = Nothing set dbs = Nothing وإذا كانت الخيارات كلها سليمة فأيها الخيار الأمثل؟

شكرا لكم ، لم أنتبه لهذه النقطة. يمكن الكثير لا يعرف الفرق بين النواتين ، ومن حفظي 🙂 الفرق هو فقط نطاق تخزين البيانات ، فأعتقد الـ 32 بت فيها الكفاية للاستخدام الشخصي وللشركات حتى المتوسطة وتترك الـ 64 بت للشركات الكبيرة وللبيانات الضخمة. إن شاء الله تكون معلومتي صحيحة.

ربما هذه المشاركة فيها الحل

ما شاء الله، رد كاف وواف، أشكرك كثيرا على تفضلكم. تحياتي لكم

مساهمة إضافية بعد مساهمة أستاذنا @ابو جودي وبعد إذنه Private Sub AddNewDates() Dim rst As Recordset Dim iDate As Long Set rst = CurrentDb.OpenRecordset("tblDay", dbopendynaset) For iDate = CLng(Me.txtFirstDate) To CLng(Me.txtLastDate) If IsNull(DLookup("DayDate", "tblDay", "Clng(DayDate)=" & iDate)) Then If Weekday(iDate, vbSunday) < vbFriday Then If IsNull(DLookup("HolidayDate", "tblHolidays", "Clng(HolidayDate)=" & iDate)) Then With rst .AddNew !DayDate = iDate .Update End With End If End If End If Next iDate Set rst = Nothing MsgBox "Done" End Sub

السلام عليكم أنا توقف بي الزمن عند نسخة 2007 والبسبب انها لم تعد "لغتي" الأولى كما السابق، فما النسخة البديلة التي تنصحوني بها حسب تجاربكم. علما أن عندي كثير من برامجي الخاصة المصممة بنسخة 2007 وقبلها ولا أريد أن أخسرها ولا أريد أن أشغل نفسي في تحديثها. فهل هناك عوائق غير مسألة اختلاف "النواة" 32 أو 64 بت؟ والسؤال الآخر هل أستطيع تركيب نسخة أخرى مع وجود/بقاء النسخة القديمة كما كنا نفعل سابقا؟ أم أن النسخ الجديدة تستطيع فتح جميع النسخ القديمة بدون تعديل؟.

خلاص .. آخر نسخة 🙂 ، هذه النسخة تم فيها معالجة وضوح/جودة الطابعة فهذا الإعداد كان يؤثر على سمك البراويز، والحمد لله. DrawLines_05.accdb

كما خمنت 🙂

قصدت أني لا أستخدم سمك موحد للأعمدة في التقرير الواحد فالخيار متروك للمستخدم/المبرمج. كلامك صحيح وهذا ما أفعله قاصدا متعمدا، بمعنى أن هذه الخاصية وجدتها أنت في الخصائص بقيمة 1 ولكن الكود يعالجها فيجعلها صفر فبالتالي ينتفي نسبة السبب لها. ويمكن تجربة فعالية الأمر بتعطيل رسم الاطارات "المناداة" وسوف تختفي الاطارات على خلاف وضعها في الخصائص. على كل لا داعي للمزيد من هدر الوقت سأبحث عن السبب كلما سنحت الفرصة. وهذه صورة للتقريرين ينفس الخصائص تماما وبسمك للاطار "1pt" ، مع ملاحظة أخير أن التقرير صاحب الاطار السميك لو ضربنا عرض الاطار في 3 بدلا من 10 تصبح الاطارات سليمة!! أعتقد فيه خاصية تتسبب في هذا الفرق وربما اعدادات الطابعة لها دور في الموضوع والله أعلم.

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

شكرا عزيزي لمحاولتك الحقيقة أنا أبدل قمية Border Style في كود الموديول .BorderStyle = 0 أما هذه: BW = .BorderWidth * 10 .Parent.Report.DrawWidth = BW فأنا أضرب سمك البرواز/الاطار في معامل واحد للجميع فيفترض أن تكون النتيجة واحدة. ثم أوعز للبرنامج باستخدام هذه النتيجة أي نتيجة سمك الرسم، فهي ليست عملية جمع. أما هذه فلا تتماشى مع مثالي فأنا لا أستخدم سمك موحد بل يعتمد على السمك حسب الخصائص.

كما العنوان، علما أن أحد التقريرين تم استيراده من قاعدة بيانات مختلفة. عجزت أعرف السبب، فهل منكم من مر بهذه التجربة؟. DrawLinesForTest.accdb

كما طلبت مصنف رقم 1_02.xlsx

شكرا لكم ويمكن اختصار العمودين إلى عمود واحد واستخدام فهرس الجدول أو المصفوفة كذلك. سوف أتوقف عن التحديثات بعد هذا التحديث والذي تم فيه تعديل تركيبة الجدول بعد معرفة أكبر عدد صفحات يسمح بها الأكسس وتمت معالجة رقم الصفحات بتحويلها من Long إلى Int وكذلك رقم آخر سجل في الصفحة من Long إلى Byte وذلك لتقليل مساحة التخزين بتغيير طريقة الحفظ والجلب للبيانات. هذه آخر نسخة في محاولاتي لهذا الموضوع ، وسأستمر بصمت بالعمل عليه للتخلص من الجدول أو المصفوفة "خيار قائم" ، فإن نجحت سأفتح له موضوعا جديدا وإلا سأكتفي إلى هذه النقطة. DrawLines_04.accdb

تم إضافة المزيد من التقارير والموجود بمثال أخي جعفر وعليه تمت بعض التعديلات الطفيفة. ملاحظة: مثالي يعتمد على لون الإطار الموجود بالخصائص ، فإذا كان اللون أبيض على خلفية بيضاء فلن يظهر الإطار في مثالي. DrawLines_03.accdb

عزيزي الحقيقة لو سنلاحق رغبات "الجمهور" سيشغلونا في باقي حياتنا for nothing من خلال دراستي لسلوك أداء التقارير فهمت أن الأكسس يقوم بإخفاء القيم المكررة بجعل ارتفاع الأداة "صفر" ، وتبقى القيمة موجودة. وفكرة الحل إذا أردت أن تحاول فيها أن تلعب في هذا الأمر إذا الأكسس يسمح لنا بالتعديل وهو معرقة السجل الوسط/الأوسط "وفتح" ارتفاعه وجعل ارتفاع السجل الأول صفز.

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

الخطوة الثانية تم التخلص من فتح التقرير مرتين وجاري العمل على الخطوة الثالثة. DrawLines_02.accdb

تم التصحيح لا بد أن يكون نوع/تنسيق الخلية في الجدولين متساوي ، عليه حولت لك النوع في صفحة البحث من نصي إلى رقمي باستخدام دالة Value Filename_02.xlsx

احشر كلمة PtrSafe بين كلمتي Declare Function لتصبح بعد الحشر Declare PtrSafe Function

بشرك الله بكل خير ، بانتظار مثالك وأكيد سيكون به نفع كثير.

السلام عليكم نعم أخي هي أصعب نقطة في الموضوع و "شبه مستحيلة" وقد أتعبتني وعملت عدة محاولات ومنها حساب الارتفاعات/الأطوال للكائنات وهي تنجح جزئيا ويمكن أن تنجح كليا في حالة عدم استخدام صناديق "مطاطة" أي تتمدد. من ضمن المحاولات هي أخذ "لقطة" للبيانات بنفس ترتيبها في التقرير دون الحاجة إلى مفتاح أو معرف للسجل وإلى الآن لم أصل إليه. ومن المحاولات هي معرفة بيانات السجل التالي ثم إجراء حسابات الارتفاعات ولو باستخدام الاكسل. الموضوع ذو شجون ويحتاج المزيد من الجهد. شكرا عزيزي ، كيف أظهرت العدد؟