ضبط التقرير كى لا يكون باقى الصفحة فارغ عند الطباعة

[abouelhassan]

السلام عليكم ورحمة الله

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

 

التقرير اسمه تقرير مهم جدا

اريده ان يكون كل الصفحات به هكذا

لا اريده يكون هكذا

حيث يتم اهدار الورق

الغريب ان التقرير يخرج بكلتا الصورتين مش عارف اضبطه بحيث لا يكون باقى الصفحة فارغة

الف شكر لحضراتكم بارك الله فيكم اساتذة المنتدى

 

 

 

1311.11.DATA12.rar

تم تعديل مارس 1, 2021 بواسطه abouelhassan

[abouelhassan]

للرفع رفع الله قدركم

[ابوبسمله]

وعليكم السلام اخى @abouelhassan

اتفضل شوف التقرير هل هذا ما تريد ؟

واعطنى اسم يوزر وباسورد للاطلاع ع ما تريد

بالتوفيق

1311.11.DATA12.rar

[abouelhassan]

اشكرك اخى استاذ احمد الفلاحجي

اليوزر حسان الباس 123

لازال هناك صفحات نصفها فارغ اخى اتمنى المساعدة مع الشكر اخى

تم تعديل مارس 2, 2021 بواسطه abouelhassan

[abouelhassan]

للرفع رفع الله قدركم

[ابوبسمله]

بالنسبه لليوزر  اسم المستخدم فى اول صفحة فقط  تم

لااعلم ان كانت هتنفع او لا ان شاء الله يشاركنا اخواننا واساتذتنا جزاهم الله خيرا

بالتوفيق

1311_11.DATA12.mdb

[abouelhassan]

بارك الله فيك استاذ احمد

لا زالت المشكلة كما هى نصف الصفحات فارغ

برجاء المساعدة مع الشكر

[ابوخليل]

السلام عليكم

لا اعلم متى تستغني عن ارقام الصفحات ، فوجوده في اكسس لا معنى له

وهي سبب المشكلة

تفضل تعديل بسيط على مرفق اخي احمد

DATA14.rar

[abouelhassan]

الله الله الله  ربنا يبارك لك اخى واستاذى وحبيبى استاذابوخليل

كل شئ اصبح ممتاز فى التقرير عدا شئ بسيط هو مثلا

الرقم مثلا-.50 اجد انه اصبح0

مش عايز التقريب عايز الرقم نفسه 

ربنا يحفظك يارب يارب يارب 

 

[ابوخليل]

انا لم اعمل اي تعديل على القيم

فقط عدلت على خصائص مقطع الصفحات 

[abouelhassan]

التعديل ممتاز بس احتاج عدم التقريب فى التقرير

بارك الله فيك ولك اخى الغالى لقلبى

[ابوخليل]

[abouelhassan]

تسلم ايدك استاذى

نفس المشكلة اخى

بارك الله فيك حبيبى

سامحنى استاذى ابوخليل

عند اختيار من الفورم الرئيسى للبيانات التى بالصورة

ظهر لى ما بالشكل فى التقرير اريد ان اذا كان الناتج 0 ان يختفى لايظهر بالتقرير مش عارف اعملها 

وكل ما ظهر بصفر وجدته مدخل بالسالب مش عارف ايه ده رجاء التكرم بمساعدتى اخى مشكور وخالص الدعاء

تم تعديل مارس 3, 2021 بواسطه abouelhassan

[abouelhassan]

انا عرفت المشكلة اخى  استاذى ابوخليل بس ماعرفتش احلها

المشكلة فى الوحدة النمطية بها هذا الكود

Public Function PN_All(N As Double) As Double

    'PN_All : Positive, Negative, All
    'N = iAmount
    
    Dim frm_Option As String
    
    frm_Option = Forms!frm_Main!srch_All_PN
    
    
    If frm_Option = "oll" Then
        PN_All = N
        
    ElseIf frm_Option = "positive" And N > 0 Then
        PN_All = N
        
    ElseIf frm_Option = "Negative" And N < 0 Then
        PN_All = N
        
    End If
    
End Function

والبرنامج بيشوف السالب صفر عند اختيارposative

بيحضر كل البيانات السالبة انها تساوى صفر

الحل عدم التقريب بس مش عارف اعملها ازى

احتاج اضافة للكود لكى لا يرى السالب=0

بارك الله فيك اخى فى الله 

تم تعديل مارس 3, 2021 بواسطه abouelhassan

[abouelhassan]

للرفع رفع الله قدركم

[abouelhassan]

اخى استاذى ابوخليل

ها هو المقصود انا ادخلت ارقام قيمتها -100و-200و-300

وقمت بعمل اختيار للفورم الرئيسى كما يلى بالصورة المفروض انى مختار Positive وهو اكبر من الصفر اى ما هو يساوى صفر او اصغر لا تحضر بيانتاه

ومع ذلك يحضر لى التقرير  اصفار فى هذه الصفحات انا احتاج تعديلها عندما اختار positive احضر بيانات ما هو اكبر من الصفر فقط فقط فاهمنى اخى رجاء التكرم بالمساعدة

بارك الله فيك ولك وبك

 

DATA14.rar

[abouelhassan]

للرفع رفع الله قدركم

في ٤‏/٣‏/٢٠٢١ at 22:29, abouelhassan said:

اخى استاذى ابوخليل

ها هو المقصود انا ادخلت ارقام قيمتها -100و-200و-300

وقمت بعمل اختيار للفورم الرئيسى كما يلى بالصورة المفروض انى مختار Positive وهو اكبر من الصفر اى ما هو يساوى صفر او اصغر لا تحضر بيانتاه

ومع ذلك يحضر لى التقرير  اصفار فى هذه الصفحات انا احتاج تعديلها عندما اختار positive احضر بيانات ما هو اكبر من الصفر فقط فقط فاهمنى اخى رجاء التكرم بالمساعدة

بارك الله فيك ولك وبك

 

DATA14.rar 219.74 kB · 8 downloads

 

[ابوخليل]

عزيزي ابوحسان

انا عملت لك مطلوبك الذي هو عنوان الموضوع ، وطلبك الاخير  مع ان الاصل فتح موضوع جديد به ، الا اني لم اتمكن من الوصول الى حل حسب التصميم الحالي 

فأنت مخير بين ان تنتظر  لعل احد اخوتنا الأعضاء يتمكن من ايجاد حل لك ، وإما ان تفتح موضوعا جديدا بطلبك هذا

[jjafferr]

في الدالة PN_All لم نذكر كيفية التعامل مع القيمة صفر ،

وحتى اذا كتبناها ، ففي التقرير لما نجمع ، بنحصل على اصفار !!

 

الطريقة التالية تعطيك كل الارقام ، ولكن لما تحصل على صفر ، فهي تخفية ، لجميع الحالات All و Positive و Negative

.

وهذا مجرد تنسيق ، من اليسار الى اليمين: القيمة الموجبة ، القيمة السالبة ، القيمة صفر ، القيمة Null :

#;\-#;"";""

 

 

[ابوبسمله]

جزاكم الله خيرا معلمينا الأعزاء @jjafferr و @ابوخليل 💐

 

[abouelhassan]

استاذى الحبيبابوخليل اكثر الله خيرك وزادك من فضله يارب و استاذى الحبيب jjafferr

اكثر الله خيرك وزادك من خيرك وفضله اللهم امين

هذا التنسيق بعد تنفيذه فقط قام أخفاء الاصفار من السجلات وتم استدعائهم للتقرير فارغين 

ما احتاجه تعديل للكود نفسه

   ElseIf frm_Option = "positive" And N > 0 Then
        PN_All = N

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

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

ربنا يحفظك يارب

[jjafferr]

بالنسبة للدالة ، فرجاء التأكد بأنها كما يلي ،

بينما الدالة التي عرضتها في مشاركتك اعلاه (غير صحيحة) ، والموجودة في مرفقك (تم تغييرها الى) :

Public Function PN_All(N As Double) As Double
    'PN_All : Positive, Negative, All
    'N = iAmount
    
    Dim frm_Option As String
    
    frm_Option = Forms!frm_Main!srch_All_PN
    
    
    If frm_Option = "All" Then
        PN_All = N

    ElseIf frm_Option = "Positive" And N > 0 Then
        PN_All = N
    
    ElseIf frm_Option = "Negative" And N < 0 Then
        PN_All = N
        
    End If
    
End Function

.

الموضوع ماله علاقة بالدالة ، 

انت تريد عمل تصفية للسجلات ، لهذا السبب ، تم اضافة جقل الاستعلام ليقوم بهبه المهمة :

.

IIf([Forms]![frm_Main]![srch_All_PN]="Positive",[iAmount]>0,IIf([Forms]![frm_Main]![srch_All_PN]="Negative",[iAmount]<0,[iAmount]))

.

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

 

جعفر

[ابوخليل]

تحية محملة بالورد الى عمان وأهلها من أجل عيني جعفر 

استاذنا انت تتحمل المسؤولية 100% نسبة الى مكانتك كمعلم

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

الآولى : وجود ارقام الصفحات الخاصة بأكسل وهذا لا معنى له في اكسس 

الثانية : ادخال القيم السالبة بواسطة المستخدم  .. وهذا اعجب من الأول 

الخلاصة : يبدو لي ان ابو حسان متمسك باكسل والعمل عليه ، وانما يريد اكسس لعمل التقارير فقط

 

 

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

[abouelhassan]

استاذى حبيبى jjafferr بارك الله فيك وبك ولك يارب يحفظك استاذنا الغالى

استاذى الحبيب ابوخليل والله لا اعمل الا على الاكسيس ولا اعمل على الاكسيل نهائى بفضل الله وفضلكم

اخى فى الله استاذى جعفر الله يرضى عن والديك لا اعرف كيفية عمل الاستعلام لو امكن اى نسخة لدى حضرتك وانا انسخ منها الاستعلام الى اخر نسخة لدى اكون شاكر فضلك والله ربنا يرضى عن والديك يارب

 

[ابوخليل]

2 دقائق مضت, abouelhassan said:

استاذى الحبيب ابوخليل والله لا اعمل الا على الاكسيس ولا اعمل على الاكسيل نهائى بفضل الله وفضلكم

اذا ما فائدة وجود الصفحات ؟

ولماذا يتم ادخال القيم السالبة في الجدول ؟

القيم السالبة هي من عمل اكسس .. تظهر في النتائج