رجاء الدخول والتعديل فى هذا التقرير

[أحمد العيسى]

السلام عليكم

بالملف المرفق تقرير باسم "تقرير_قائمة" يقوم بتوزيع طالبات قسم معين على فصول متتالية بحيث لايزيد عدد الطالبات عن 35 فى كل فصل ، والمطلوب

1- ظهور مربع حوار يسأل عن أقصى عدد يمكن تسكينه فى كل فصل قبل بدء تشغيل التقرير حتى استطيع تغيير رقم 35 الى أى عدد أريده دون الدخول الى كود التقرير

2- الاحتفاظ بتنسيق التقرير من اليمين الى اليسار ومعالجة مشكلة زحف رأس الصفحة الثانية الى اليمين

3- بدء ترقيم مسلسل كل صفحة بـ الرقم 1 بالاستعانة بما تم فى التقرير R1 وقد حاولت ذلك فوجدت أن الكود لا يعمل فى تقريرى بينما يعمل بكفاءة فى R1

وشكرا جزيلاً لكم

الملف المرفق

http://www.s22s.com/up/pic13/Tansek.rar

[أحمد العيسى]

للرفع

البرنامج يتوقف استكماله على هذه المعلومات

[السيد عبد العال]

الاستاذ/ أحمد العيسى

مرفق الملف وبه التعديلات المطلوبة

ويفضل أن لا يتم الاعتماد على الترقيم فى التقرير

والأفضل أن يضاف حقل يسجل فيه الفصل ثم فى التقرير يتم التجميع بحقل الفصل

MultiColRep.rar

تم تعديل يوليو 19, 2004 بواسطه السيد عبد العال

[محمد طاهر عرفه]

بالنسبة لكون الصفحة الثانية تأتي بها ترحيل

يوجد هنا أربعة حلول

و المناسب للحالة هو الحل الثاني

حيث أنك تريد الاتجاه بالعربي

http://www.officena.net/ib/index.php?showtopic=132

[أحمد العيسى]

شكراً جزيلاً لكما

[أحمد العيسى]

السلام عليكم

الأخ العزيز / السيد عبد العال

بارك الله فيك وأكثر من أمثالك ، الناتج كما أردت تماماً ، ولكن لى طلب بسيط يتمثل فى إضافة متصيد خطأ لهذا الكود

Dim NumPerPage As Byte
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
   If [AA] Mod NumPerPage = 0 Then  'And Counter <> RecCounter Then
      Fasel.Visible = True
   Else
      Fasel.Visible = False
   End If
   [DD] = [AA] - [CC]
   'MsgBox "fOrmatcount" & FormatCount
End Sub
Private Sub PageHeader_Print(Cancel As Integer, PrintCount As Integer)
  If [AA] = 1 Then
    [CC] = 0
  Else
    [CC] = [AA]
  End If

End Sub
Private Sub Report_Open(Cancel As Integer)
  NumPerPage = InputBox("أدخل العدد فى كل صفحة", "برنامج التنسيق", "46")
  If NumPerPage = 0 Then NumPerPage = 46
End Sub

فعند تشغيل التقرير وظهور مربع حوار ، إذا ضغطت على زر Cancel تظهر لك رسالة خطأ ( Type mismath ) ، كما أننى أريد المستخدم ألا يدخل رقماً أكبر من 46 ويجب التنبيه لذلك إذا أخطأ فى رقم أكبر من ذلك

تم تعديل يوليو 19, 2004 بواسطه أحمد العيسى

[السيد عبد العال]

تعدل Sub Report_Open كالتلى

Private Sub Report_Open(Cancel As Integer)
 On Error GoTo Report_Open_Err
 NumPerPage = InputBox("أدخل العدد فى كل صفحة", "برنامج التنسيق", "46")
 If NumPerPage = 0 Or NumPerPage > 46 Then NumPerPage = 46
  Exit Sub
Report_Open_Err:
 If Err.Number = 13 Then
    Rem Cancel = True
    Err.Clear
    Rem MsgBox "The Report will stop .."
    Rem Exit Sub
  Else
   MsgBox Err.Number & " : " & Error
   Err.Clear
  End If
 Resume Next
End Sub

هذا بفرض انه فى حالة ضغط Cancel سنستمر فى استكمال فتح التقرير بالقيمة الافتراضية 46

أما أذا كان ضغط Cancel يعنى أيقاف التقرير فيتم أزالة 3 كلمات Rem فى الكود السابق فتخرج رسالة للمستخدم انه سيتم أيقاف التقرير ..