*تقارير* ترقيم الصفحات في التقرير

الأخ عاشق الأكسس

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

بالطبع يجب القيام بذلك برمجياً أي عن طريق الكود والفكرة سهلة وهي كالتالي :

سنخبر التقرير كلما وصل إلى مقطع الرأس في مجموعة جديدة بأن يضبط خاصية صفحة page إلى 1

ضع الدالة التالية في وحدة نمطية عامة

function newpaging()



          codeContextObject.page = 1



end function

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

call newpaging

أرجو التجربة وإخباري بالنتيجة

أولا أشكرك أبو هاجر على طرح هذه الفائدة

ثانيا برفقه مثال لما طرحه أبو هاجر وطريقة أخرى بدائية نوعا ما

http://mypage.ayna.com/harith77/NewPageForKind.zip

الأخ خارث

قمت بتنزيل الملف لكن يظهر أن فيه خطأ إذ لم أستطع فك الضغط عنه

الرسالة المعروضة " لا يمكن للنظام العثور على الملف المحدد "

الملف بدون ضغط

http://mypage.ayna.com/harith77/NewPageForKind.mdb

وبالضغط بواسطة rar

http://mypage.ayna.com/harith77/NewPageForKind2.rar

الأخ حارث

أشكرك على سرعة التجاوب

بالنسبة للطريقة الثانية التي أرفقتها في عليها ملاحظتان

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

الثانية حول استخدام دالة IIF مع أكثر من خيارين بالصيغة التالية

KindName: IIf([Kind]=1;"طالب";IIf([kind]=2;"موظف";"متسبب"))

فمع أن النتيجة في العبارة السابقة صحيحة إلا أن من المعلوم أن الأفضل في مثل هذه الحالة استخدام دالة Switch بالصيغة التالية

KindName: Switch([Kind]=1;"طالب";[Kind]=2;"متسبب";[Kind]=3;"موظف")

هذه بعض الملاحظات التي أردت توضيحها ولك شكري على تفاعلك

الأستاذ أبو هاجر

الأستاذ حارث

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

====

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

للفائدة فقط وأنت غني عن مثل هذه المعلومة من إنسان مبتدأ مثلي .

=====

شكرا

أخي أبو هاجر

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

بالنسبة للملاحظة الأولى فقد قلت إن الكود بدائي وهو حيلة وليس حلا

والحقيقة أني أهوى الحيل ، وأرى أن المران عليها مهم لي ولمن هو مثلي، ذلك أن إحاطتي بمعظم الدوال والوظائف مستحيل ، وما أجهله منها أكثر بكثير مما أعلمه ، لهذا ألجأ إليها أحيانا لأني أجدها أسرع من البحث عن الدالة أو الوظيفة التي تؤدي الغرض مباشرة ، خاصة مع ضعفي في اللغة الانجليزية مما يصعب علي الرجوع للتعليمات .

بالنسبة للملاحظة الثانية : صدقني أنها أول مرة أعرف دالة Switch

ولهذا لا تسل عن بغضي للالقاب لمن هو مثلي، ذلك أنها أحيانا تحرجنا وتجعلنا نخجل من الظهور بمظهر المتعلم خاصة فيما يتعلق بالبدهيات في البرمجة .

أخي الكريم حارث

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

فائدة

في المثال السابق يمكننا أيضاً استخدام دالة أخرى من دوال ما يسمى تدفق البرنامج وهي دالة Choose بالصيغة التالية :

KindName: Choose([Kind];"طالب";"متسبب";"موظف")

وهذه الدالة مفيدة في حالة استخدام مجموعة من القيم الثابتة مثل 1-2-3- إلخ ورغبتك في تفسيرها أو تحويلها إلى قيم نصية في الاستعلام أو النموذج أو التقرير

أخوي وأستاذي حارث

حتى لو كنت لا تعرف من اللغة الإنجليزية سوى حرف أو حرفين فقط;)

فأنت أستاذ وخبير أكسس ومعلم وكل لقب سواء كبير أو صغير فأنت أحق به

=============

أقسم لك بالله أني ضعيف جدا جدا في اللغة الإنجليزية بدرجة لا تتصورها ولكني أحفظ فقط ((( أحفظ ))) أماكن الأكواد وعملها فقط دون معرفة ترجمتها:o

=============

فلا تخجل بالظهور بأي لقب يسند إليك وبصفتك معلم فأنت معلم معلم معلم معلم وأنا أقولها وبكل فخر أعتز بأنك أحد أساتذتي في هذا المنتدى .. ولا يهون باقي أخواني في المنتدى:D

أكوادك تأتي بطريقة سهلة ممتنعة .. حلولك تأتي بما نريد وزياده:cool:

أعذرني ويعذرني الجميع فمن إعجابي بك أصبحت أكتب بلا تركيز وأكرر الكلمات

وكل ما نستطيع قوله هو جزاك الله عنا ألف خير وبارك في علمك ونفع به المسلمين .. آمين

=====

أخوي أبو هاجر

لك مني كل التحية والتقدير وأقف لك وقفة إعجاب وشكر (f)(f)

ونحن جميعاً في هذا المنتدى لا زلنا نتعلم فلا تبخل علينا بذلك رغم أني متأكد من ذلك .. جزاك الله ألف خير وجعل كل ما تكتبه في ميزان أعمالك

====

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

وشكرا لسعة صدركم محبكم جميعاً أخوكم : فهد الدوسري(f)(f)