معرفة اجمالي السعر

[أبو سلمى]

الاخوه الكرام أعضاء المنتدى / السلام عليكم ورحمة الله

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

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

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

اجمالي السعر.rar

تم تعديل مارس 28, 2016 بواسطه ahlamy90

[أبو سلمى]

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

اين المساعدة ؟؟؟؟؟

 

[أبو سلمى]

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

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

اجمالي السعر.rar

[jjafferr]

وعليكم السلام 

 

هذا الكود يقوم بالعمل:

Option Compare Database
Option Explicit          'Optional, but recommended for every module.
    
Dim curTotal As Currency 'Variable to sum [Amount] over a Page.
    
'
'From http://allenbrowne.com/ser-11.html
'

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)

    Me.PageTotal = curTotal
End Sub

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    curTotal = 0             'Reset the sum to zero each new Page.
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

    If Me.PrintCount = 1 Then curTotal = curTotal + Me.السعر
End Sub

.

.

.

 

جعفر

339.اجمالي السعر.mdb.zip

[أبو سلمى]

أستاذي الكريم / جزاكم الله خيرا وجاري العمل عليه

استاذي الكريم / جزاكم الله خيرا على مساعدتكم

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

 

    If Me.PrintCount = 1 Then curTotal = curTotal + Me.الثمن

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

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

 

[jjafferr]

وعليكم السلام 

 

غيّر الكود السابق الى هذا الكود:

If Me.PrintCount = 1 Then curTotal = curTotal + nz(Me.الثمن,0)

 

جعفر

[أبو سلمى]

سلمت يداك وجزاكم الله خيرا وزادكم علما ونفع الله بكم المسلمين أستاذي الكريم 

[jjafferr]

[أبو سلمى]

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

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

تم تعديل مارس 29, 2016 بواسطه أبو سلمى

[jjafferr]

وعليكم السلام 

 

اذا سمحت لي اشرح لك شئ بسيط عن التقرير:

.

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

.

من هذا نلاحظ ان الاكسس ينتهي من (تنسيق وحسابات وقفل) رأس الصفحة رقم 2 ، ثم يصل الى ذيل الصفحة رقم 4 ويعطي النتيجة ،

ولأنه اقفل رأس الصفحة رقم 2 ، فلا يمكن ان نرسل اي معلومة له 

 

انا اعتذر ، فلا اعرف طريقة لعمل ما طلبته 

 

 

جعفر

[أبو سلمى]

أستاذي الكريم / جزاكم الله حيرا على هذا الشرح المبسط 

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

If Me.PrintCount = 1 Then curTotal = curTotal + nz(Me.الثمن,)

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

[jjafferr]

حياك الله 

 

هذا الرابط به شرح كامل للامر Nz:

 

 

جعفر

[أبو سلمى]

جزاكم الله خيرا ونسألكم الدعاء لي في ظهر الغيب وأن يرحم الله والدي 

[jjafferr]

علينا الدعاء ان شاء الله ، ونسأل الله القبول 

[أبو سلمى]

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

[jjafferr]

آمين رب العالمين 

اشكرك على هذا الدعاء الجميل 

[أبو سلمى]

الشكر موصول لكم