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

[طاهر اوفيسنا]

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

Z1.rar

[طاهر اوفيسنا]

ارجو توسيط الرقم وتاريخ التسليم فقط اما الخطين  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

تم تعديل منذ 20 ساعات بواسطه Foksh
إضافة المرفق والتوضيح لطريقة العمل

[طاهر اوفيسنا]

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

[Foksh]

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

اكسس 2010 

[طاهر اوفيسنا]

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