توسيط رقم وتاريخ مع زيادة طول خطين بالتقرير

[Taher DZ]

السلام عليكم اساتذتي الكرام المطلوب توسيط الرقم وتاريخ التسليم في التقرير Tbl_Loans مع تسطير زيادة الخطين Z1 وZ2 على طول مسافة تفصيل الجدول بكود

Z1.rar

[Taher DZ]

ارجو توسيط الرقم وتاريخ التسليم فقط اما الخطين  z1و z2 تمت معالجتهم

[Foksh]

2 ساعات مضت, طاهر اوفيسنا said:

ارجو توسيط الرقم وتاريخ التسليم

أخي طاهر ، هل هذا ما تريده ؟؟

 

إذا كان هو فعلاً ، فانظر ماذا سنفعل .

• أولاً انشاء مربع نص ولنفترض اسمه = txtRowNumber ، وسنجعل قيمته أو مصدر بياناته = "=1" ليقوم بعد السجلات الحالية في التقرير .
     ( الإضافات حتى لا نقوم بتعديل أي تركيبة في تقريرك وللتوضيح طبعاً )
• ثانياً إنشاء مربع نص أيضاً للتاريخ ولنفترض اسمه = txtAutoDateDisplay . وسنجعل له قيمة مصدر بيانات بناءً على الاستعلام مصدر التقرير = 

  =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[Auto_Date],"")

  حيث الهدف من فكرتي هو عدّ السجلات بناءً على مربع النص txtRowNumber وقسمتها على 2 للتوسيط وبالتقريب طبعاً حتى لة كان عدد السجلات 10 مثلاً فسيكون العرض في السجل 6 مثلاً .

• ثالثاً إنشاء مربع نص أيضاً للرقم وسأفترض اسمه = txtEmployeeIDDisplay . وسيكون له قيمة مصدر بيانات =
   

  =IIf([txtRowNumber]=Int(DCount("*","tbl_Loans","EmployeeID=" & [EmployeeID] & " AND Auto_Date=#" & [Auto_Date] & "#")/2)+1,[EmployeeID],"")

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

 

المرفق لتجربته :-

Z1.zip

تم تعديل أكتوبر 25 بواسطه Foksh
إضافة المرفق والتوضيح لطريقة العمل

[Taher DZ]

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

[Foksh]

8 ساعات مضت, طاهر اوفيسنا said:

اكسس 2010 

[Taher DZ]

اين يكمن المشكل اذن

[Foksh]

5 ساعات مضت, طاهر اوفيسنا said:

اين يكمن المشكل اذن

من خلال ملفك المرفق ، لم اجد مشكلة . لذا اعطنا مثال على قيم وسجلات متنوعة لرؤية النتيجة.

[Taher DZ]

تم التجريب في اصدار 2007  كما في الصورة 

اما اصدار 2010 بحوزتي في كلى الحهازين المحمول بالبيت والكمبيوتر بالعمل لم تنغع معهم التعديل

تم تعديل أكتوبر 27 بواسطه طاهر اوفيسنا

[Foksh]

🤷‍♂️

[منتصر الانسي]

في 27‏/10‏/2025 at 14:16, Foksh said:

🤷‍♂️

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

فلو قمنا بتعديل هذا الجزء

" AND Auto_Date=#" & [Auto_Date] & "#"

بهذا الشكل

" AND Clng([Auto_Date])=" & Clng([Auto_Date])

سيتم حل المشكلة

 

 

في 23‏/10‏/2025 at 11:45, طاهر اوفيسنا said:

مع تسطير زيادة الخطين Z1 وZ2 على طول مسافة تفصيل الجدول بكود

لرسم حدود متصلة على طول مقطع التفصيل إنسخ السطور التالية إلى حدث الطباعة لمقطع التفصيل

Me.DrawWidth = 15
Me.Line (txtAutoDateDisplay.Left, 0)-(txtAutoDateDisplay.Left, Me.Height)
Me.Line (txtEmployeeIDDisplay.Left, 0)-(txtEmployeeIDDisplay.Left, Me.Height)
Me.Line (txtEmployeeIDDisplay.Left + txtEmployeeIDDisplay.Width, 0)-(txtEmployeeIDDisplay.Left + txtEmployeeIDDisplay.Width, Me.Height)

تحياتي

[Taher DZ]

23 ساعات مضت, منتصر الانسي said:

سيتم حل المشكلة

شكرا استاذ على التعديل

ممكن المرفق الذي تم التعديل عليه من حضرتك

[منتصر الانسي]

23 ساعات مضت, طاهر اوفيسنا said:

ممكن المرفق الذي تم التعديل عليه من حضرتك

مرفق الملف مع التعديلات

Z1.rar

[Taher DZ]

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