جعل حقل الرصيد فى التقرير يساوى حقل الرصيد فى نموذج التقرير من حيث الفرز ( تنازليا / تصاعديا / وحذف الصفر )

[اسلام سيد]

السلام عليكم

لماذا لا يتأثر (حقل الرصيد) فى تقرير كشف الارصده ( تصاعديا / تنازليا / حذف الصفر ) عندما يتم الفرز فى  نموذج كشف الارصده

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

 

الرصيد.rar

 

 

 

 

[رمهان]

اخيينا ابو جمانه

على فكرة واحنا بنجاوب بنتعلم منك محاسبيا ! ظهر لي انك علمي محاسبيا وباتقان ماشاء الله !

ونرجع لسؤالك ياباشا : 

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

 

بالتوفيق

[اسلام سيد]

اولا جزاكم الله خيرا ، على ثناءك علي  ، فأن اقل من ذالك ، والله يعلم

ما انا الا مقلد اسير على خطى الكبار امثالكم

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

 

الرصيد.rar

 

 

 

[رمهان]

تفضل واسف عالتاخير لانشغالي قليلا !

وهناك مشاركة قديمة كما اتوقع ان هناك مشاركات سابقة لماطلبت ولكن قليلا من البحث !

 

بالتوفيق

الرصيد.rar

تم تعديل نوفمبر 11, 2015 بواسطه رمهان

[jjafferr]

ومشاركة لأخي رمهان ، اليك الرابط التالي في شرحي لفرز التقرير:

http://www.officena.net/ib/topic/63319-التسلسل-التصاعدي-لحقل-في-تقرير-اكسيس/#comment-411276

 

جعفر

[اسلام سيد]

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

جزاكما الله خيرا اساتذتى العظماء

 انا جربت  الملف المرفق فكان اكثر من ممتاز

إلا أنى اكتشفت ملاحظات منها

1- انك غيرت اسم التقرير الى مساعد كشف الارصده بدلا من كشف الارصده

2- هناك إضاف على كود الخاص بزر المعاينة الاول وهى

, , Me.تابع4.Form.Filter

لكن لاحظت الجزء الاول من الكود كما هو

DoCmd.OpenReport "كشف الارصده", acViewPreview

إلا انك غيرت اسم التقرير وكذالك فى الكود قمت ايضا بتغيره الى مساعد كشف الارصده

فبعد هذا الاستنتاج منى  ، قمت انا بجعل الكود فى حدث زر المعاينه عند النقر كالتالى : ( هذا هو تطبيقى انا )

DoCmd.OpenReport "كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter

وما دمت انا لم اغير اسم التقرير ( كشف الارصده ) فلم اغيره فى الكود ( استنتاج منى انا )

3- فى حدث التقرير ( فى الحالى ) وجدت واضع الكود التالى

Private Sub Report_Current()

End Sub

Private Sub Report_Load()
Me.OrderBy = [Forms]![كشف الارصده]![تابع4].[Form].[OrderBy]
Me.OrderByOn = True
End Sub

فوضعته انا فى نفس المكان اللى حضرتك وضعته

فاكتشفت انه موجود ايضا فى حدث ( عند التحميل ) تلاقائيا بعد ان قمت بوضعه فى حدث ( فى الحالى )

-------------------

وهذا هو الشيت بعد ان الاسنتاج والتطبيق

ملف مرفق

بدون.rar

 

ولكن حدث معى خطأ ما لا اعلمه

 

تم تعديل نوفمبر 11, 2015 بواسطه إسلام أبو جومانة

[jjafferr]

تفضل 

 

الظاهر انك ما شفت الرابط اللي وضعته لك

14 ساعات مضت, jjafferr said:

ومشاركة لأخي رمهان ، اليك الرابط التالي في شرحي لفرز التقرير:

http://www.officena.net/ib/topic/63319-التسلسل-التصاعدي-لحقل-في-تقرير-اكسيس/#comment-411276

 

التقرير لا يحترم فرز الاستعلام ،والطريقة لعمل الفرز هي:

.

والنتيجة

 

 

جعفر

257.الرصيد.accdb.zip

[رمهان]

اخي ابو جمانة

لتطبيق فكرة ان ياخذ التقرير فلترة النموذج غيرت اسم التقرير لنفس اسم النموذج المفلتر !

وطبعا راح يتغير اسم التقرير في كود امر فتح التقرير !

 

استاذ جعفر

يبدو لي عدم التركيز جيدا هنا ! ومعذور اخوي ! فحوى السؤال : زي ما ارتب في النموذج يؤثر في التقرير ! فالترتيب بالشكل الصريح عن طريق الفرز والتجميع يلغي فكرة مشاركتي والتى هي لما يريد ابو جمانة ولكنه رجع يستفسر عن المربع الذي ظهر بعد تعديلاته على المرفق السابق !

 

عذرا فانا اكتب على عجالة !

 

تحياتي

[jjafferr]

7 دقائق مضت, رمهان said:

ستاذ جعفر

يبدو لي عدم التركيز جيدا هنا ! ومعذور اخوي ! فحوى السؤال : زي ما ارتب في النموذج يؤثر في التقرير

هاي ما انتبهت لها 

 

جعفر

[اسلام سيد]

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

كده تمام ، لقد فهمت واستوعبت الدرس

لكى اقوم بعملية الفلترة داخل التقرير لابد من ان يكون  ( اسم نموذج الاستعلام = اسم التقرير )

ثانيا / وضع الاكواد

يوضع الكود التالى فى الحدث عند النقر على زر المعاينه

 

DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter

ولو اكتفيت بهذا الكود ، لاستفدنا

انه عند فلترة اى عمود وحذف اي قيمه وليكن حذف الصفر من حقل الرصيد

ثم الضغط على زر الاستعلام  لظهر لنا الاستعلام بدون الصفر

يبقى لنا عمل الفرز ( تصاعديا / وتنازليا )

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

 

Me.OrderBy = [Forms]![كشف الارصده]![تابع4].[Form].[OrderBy]
Me.OrderByOn = True

وهنا تم الانتهاء من اهم خطوة لى ممكن استعمالها فى اكثر من موضع

جزاكم الله خيرا

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

بجد ده طمعنى اكثر واكثر

يبقى لى 3 تقارير هامه  فى هذا البرنامج ( ولا يفعلها كثير من المبرمجين ولا المحاسبين )

تقريرين بعملهم على الاكسيل حاليا وتقرير خطر على بالى اثناء عمل البرنامج

إن شاء الله سوف افتح لكل موضوع  مستقل الليلة بمشيئة الله او بعد صلاة الفجر إن كان فى العمر بقية .

 

[اسلام سيد]

السلام عليكم

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

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

لكن عند الطباعه ، طبع لى من(نموذج مساعد الارصده) وليس تقرير مساعد الارصده ، فكانت الطباعه بالاصفار والسالب وغير مرتبه

فما سبب ذالك ؟

ملفات مرفقه باخر تحديث

مشكلة الطباعه واخراج التقارير.rar

 

المشكلة فى

1- الطباعه

2-استخراج التقارير

انا عايزهم يخرجوا بتنسيق التقرير

تم تعديل نوفمبر 12, 2015 بواسطه إسلام أبو جومانة

[jjafferr]

سيدي الكريم

 

غير حدث زر الطباعة الى:

Private Sub أمر9_Click()

    'the print cannot take place directly with the Filter,
    'so we have to open the Report in Preview mode, but hidden so the user doesn't feel
    DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden
    
    'unfortunately, the sorting Order in the Report needs a bit of time to organize
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    'now print the Report
    DoCmd.PrintOut
    DoCmd.Close acReport, "مساعد كشف الارصده"
    
End Sub

 

جعفر

[رمهان]

تفضل المحاولة مع عدم اقتناعي التام لضيق وقتي الا اذا تمام معاك !

والاستاذ جعفر فيه البركة  !

تحياتي

 

مشكلة الطباعه واخراج التقارير1.rar

[رمهان]

كما اريدك التجربة على الحدث عند الفتح بدلا من عند التحميل ولشغلنا السابق 

وهنا للاستاذ جعفر : اليس امر الفتح docmd.openreport  وفي وضع نورمل اي طباعه سيتم تنفيذ الحدث عند الفتح للتقرير ؟

عذرا اكتب من الموبايل اصبح الكمبيوتر بعيد حاليا ولوقت

تحياتي

[اسلام سيد]

15 ساعات مضت, رمهان said:

وهنا للاستاذ جعفر : اليس امر الفتح docmd.openreport  وفي وضع نورمل اي طباعه سيتم تنفيذ الحدث عند الفتح للتقرير ؟

عذرا اكتب من الموبايل اصبح الكمبيوتر بعيد حاليا ولوقت

تحياتي

فعلا معاك حق

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

 

16 ساعات مضت, رمهان said:

تفضل المحاولة مع عدم اقتناعي التام لضيق وقتي الا اذا تمام معاك !

والاستاذ جعفر فيه البركة  !

تحياتي

 

مشكلة الطباعه واخراج التقارير1.rar

 

انا جربت استخراج التقارير pdf كانت تمام

اما الطباعه فأمهلنى حتى اطبع غدا إن شاء الله ،

وعذرا على التاخر فى الرد  لانى ليس لدى طابعه فى البيت

 

تم تعديل نوفمبر 13, 2015 بواسطه إسلام أبو جومانة

[اسلام سيد]

18 ساعات مضت, jjafferr said:

سيدي الكريم

 

غير حدث زر الطباعة الى:

Private Sub أمر9_Click()

    'the print cannot take place directly with the Filter,
    'so we have to open the Report in Preview mode, but hidden so the user doesn't feel
    DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden
    
    'unfortunately, the sorting Order in the Report needs a bit of time to organize
    PauseTime = 1    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop

    'now print the Report
    DoCmd.PrintOut
    DoCmd.Close acReport, "مساعد كشف الارصده"
    
End Sub

 

جعفر

ربنا يبارك فيك استاذى الكريم

إن شاء الله هجربه واخبرك

[jjafferr]

أخي الفاضل رمهان 

19 ساعات مضت, رمهان said:

تفضل المحاولة مع عدم اقتناعي التام لضيق وقتي الا اذا تمام معاك !

الكود الذي استخدمته انت هو:

DoCmd.OpenReport "مساعد كشف الارصده", acViewPreview, , Me.تابع4.Form.Filter, acHidden
DoCmd.OpenReport "مساعد كشف الارصده", acViewNormal
DoEvents
DoCmd.Close acReport, "مساعد كشف الارصده"

وهو نسخة اخرى من الكود الذي وضعته انا سابقا 

 

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

لقد حاولت ان آخذ مصدر التقرير ، واضع فيه التصفية والفرز مباشرة ، وارجعه إما بصيغة SQL او Recordset ، بحيث يفتح التقرير على التصفية والفرز مباشرة ، ولكن لم افلح 

 

جعفر

[رمهان]

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

عالعموم انا دائما افكر منطقية الحل قبل تجربته ! 

لا يوحد لدي طابعة للتجربة ولكن حسب المنطق : نلاحظ انا معيار الفلترة يمرر لامر فتح التقرير ولم يتقيد بنوع الفتح ! لاحظ انا اتكلم عن الفلترة وليس الترتيب والذي ذكرت انت اخوي جعفر بان الفتح يتم قبل الفلترة ! فالمنطق يقول ان الامر التالي سيعمل وهو الطباعة وبالفلترة :

DoCmd.OpenReport "مساعد كشف الارصده", acViewNormal, , Me.تابع4.Form.Filter

نلاحظ ان العرض النورمل وهو للطباعة يستقبل جملة الشرط كمعيار ! فعلينا التجربة اولا ونشوف هل المنطق نجحت تجربته !

اكرر نلاحظ ان المقصود الفلترة وليس الترتيب !

2 ساعات مضت, jjafferr said:

لقد حاولت ان آخذ مصدر التقرير ، واضع فيه التصفية والفرز مباشرة ، وارجعه إما بصيغة SQL او Recordset ، بحيث يفتح التقرير على التصفية والفرز مباشرة ، ولكن لم افلح 

 

جعفر

شرايك تغير اسمك : مفلح  !! يمكن تزبط !! اصله كتير هيك اسم عنا بالسعوديه !  هههههههههههههه!

او حط شو اللي براسك وانا احاول انفذها !  وللعلم التقرير لايعترف بالكائن ركوردست كمصدر للبيانات ! مشروع اكسس فقط !

 

تحياتي

[اسلام سيد]

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

-----------------------------------

[ استاذى الحبيب / جعفر  ،...،  استاذي الحبيب / رمهان ]

 [ انتما قرة العين ]

إنى احبكم فى الله ،

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

 

[jjafferr]

 

19 ساعات مضت, رمهان said:

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

العفو أخوي الحبيب رمهان ، وعلى راسي  

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

 

19 ساعات مضت, رمهان said:

لا يوحد لدي طابعة

انا استخدم طابعة pdf الافتراضية من الرابط التالي:

http://www.dopdf.com/ او http://www.primopdf.com/

 

19 ساعات مضت, رمهان said:

فالمنطق يقول ان الامر التالي سيعمل وهو الطباعة وبالفلترة :

DoCmd.OpenReport "مساعد كشف الارصده", acViewNormal, , Me.تابع4.Form.Filter

نعم ، ولكنه لم يعمل معي 

 

اقتباس

19 ساعات مضت, رمهان said:

شرايك تغير اسمك : مفلح  !! يمكن تزبط

 

رحم الله والديك على النصيحة ، احنا العمانيين مشهورين بطرق اخرى نخلّي الامور تضبط 

 

جعفر

 

[اسلام سيد]

السلام عليكم

انا جربت كود استاذ / رمهان

استخراج التقارير تمام كما ذكرت

اما الطباعه ، انا قمت

1- بحذف الصفر

2- وحذف السالب

3- وترتيب الارقام من الكبير الى الصغير

---------------------------------------------

لما طبعت فعلا

1- حذف الصفر والسالب من التقرير ، لكن لم يقوم بالترتيب خالص !

2- معلش الوقت كان ضيق اليوم ولم اجرب كود الاستاذ / جعفر ، غدا إن شاء الله هجربه

 

 

 

[jjafferr]

بالنسبة لترتيب التقرير ، رجاء العمل بمثل ما قلته في الرابط اعلاه

http://www.officena.net/ib/topic/64815-جعل-حقل-الرصيد-فى-التقرير-يساوى-حقل-الرصيد-فى-نموذج-التقرير-من-حيث-الفرز-تنازليا-تصاعديا-وحذف-الصفر/?do=findComment&comment=421960

 

جعفر

[اسلام سيد]

في ١٢‏/١١‏/٢٠١٥ ١١:٥٨:١٩, رمهان said:

تفضل المحاولة مع عدم اقتناعي التام لضيق وقتي الا اذا تمام معاك !

والاستاذ جعفر فيه البركة  !

تحياتي

 

مشكلة الطباعه واخراج التقارير1.rar

 

السلام عليكم

---------------------------

* الاستاذين الخبيرين تاج رأسى ( رمهان و جعفر ) بارك الله فيهما

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

يعنى انا عملت ( فرز فى حقل الرصيد من الكبير الى الصغير ) ثم حذفت ( الصفر والسالب )

ثم عملت معاينة للطباعه فكانت تمام كما ذكرت لكم ( لم اجد فى المعاينه الصفر ولا السالب والترتيب منضبط )

اما عند الطباعه الفعلية ، ايضا لم يظهر لى الصفر ولا السالب لكن كانت غير مرتبة على الاطلاق

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

قولت اجر الحدث عند الفتح ، على الشغل السابق ، الاكواد الاولى ، فلم تنجح للاسف

فلله الحمد رب السموات ورب الارض ،  على ماوصلنا اليه

وإن شاء الله عما قليل سأسارع فى باقى عرض 3 تقارير متتالية (مواضيع هامه ) وطلب المساعده و الاستفسار

جزاكم الله خيرا

 

تم تعديل نوفمبر 16, 2015 بواسطه إسلام أبو جومانة

[jjafferr]

تفضل

 

بنفس الطريقة في هذا الرابط

http://www.officena.net/ib/topic/64815-جعل-حقل-الرصيد-فى-التقرير-يساوى-حقل-الرصيد-فى-نموذج-التقرير-من-حيث-الفرز-تنازليا-تصاعديا-وحذف-الصفر/?do=findComment&comment=421960

 

 

جعفر

257.1.مشكلة الطباعه واخراج التقارير1.accdb.zip

[اسلام سيد]

 

 

10 ساعات مضت, jjafferr said:

تفضل

 

بنفس الطريقة في هذا الرابط

http://www.officena.net/ib/topic/64815-جعل-حقل-الرصيد-فى-التقرير-يساوى-حقل-الرصيد-فى-نموذج-التقرير-من-حيث-الفرز-تنازليا-تصاعديا-وحذف-الصفر/?do=findComment&comment=421960

 

 

جعفر

257.1.مشكلة الطباعه واخراج التقارير1.accdb.zip

 

جزاكم الله خيرا

رووووووووووعه ، استاذ / جعفر ، أيها الهاترك ، لك منى كل تحية ومحبة وود وتقدير

----------------------------------------------------------------

لى استفسار بخصوص كود استخراج التقارير عند فتحة  (يكون امامى ، اختيارين اما ( اخراج التقارير او الاغلاق وعدم اخراج التقارير )

عند اخراج التقارير تمام مبدئيا ، لكن عند الاغلاق تظهر لى رسالة لا احب ان تظهر ، فما حلها

 

 

 

 

 

لو تروا ان افتح موضوع جديد فلا مشكلة

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