إبراهيم عطا

جزاك الله عنا خير الجزاء

9 hours ago, essam rabea said:

أ.إبراهيم عطا

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

 

Years: Val(CalcYears([تاريخ الميلاد];"1/10/2019"))

وللتأكد شغل الإستعلام المسمى ConvertToInt بالمرفق والذى ينشئ جدول جديد إسمه Tbl_YearToInt إفتحه فى وضع التصميم .. ستجد أن الحقل Years نوعه رقم.

جربت الكود ولكن لم يفلح، والأهم من ذلك معرفتي بحضرتك وشاكر على تعبك.

2 minutes ago, essam rabea said:

تفضل أ. @إبراهيم عطا

Test.accdb 724 kB · 0 downloads

سلمت لنا فكرك ويداك أستاذ عصام لعظيم صنعك معنا وإن كنت أتمنى أن يكون الأمر في الاستعلام نفسه. وشكرا شكرا شكرا.
 

6 hours ago, essam rabea said:

أ.إبراهيم عطا

المرفق لا يوجد به نماذج .. علما بأنك أضفت للإستعلام حقل 

Expr1: Int([Years])

والذى يقوم بدوره بتحويل النص الى رقم وللتأكد شغل الإستعلام المسمى ConvertToInt بالمرفق والذى ينشئ جدول جديد إسمه Tbl_YearToInt إفتحه فى وضع التصميم .. ستجد أن الحقل Expr1 نوعه رقم.

المثال المرفق.rar 106.7 kB · 0 downloads

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

8 hours ago, إبراهيم عطا said:

تفضل أستاذي الفاضل النموذج المطلوب التعديل عليه باستعلام تحويل السنين إلى رقم

المثال المرفق.rar 131.88 kB · 5 downloads

وفقكم الله وأعانكم، المطلوب التعامل مع الحقل السنين كرقم أي يتم فرزه واستهدافه باختيار أحد الأرقام في وضع التصميم للاستعلام المسمى تحويل النص إلى رقم

1 hour ago, essam rabea said:

أ.إبراهيم عطا

جرب 

Int(TextBox)

أو أرفق مثال للتطبيق عليه

تفضل أستاذي الفاضل النموذج المطلوب التعديل عليه باستعلام تحويل السنين إلى رقم

المثال المرفق.rar

الفضلاء مشرفي ورواد منتدانا العظيم، الذي كم تعلمنا منه وأسعفنا في الملمات.

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

أطمع في أن أجد الحل لديكم كما عودتمونا.

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

محاولة فهرسة.rar

On 6/23/2019 at 6:25 AM, ابا جودى said:

وتتوالى نفحات الاستاذ القدير والمعلم الجليل الاستاذ @أبو آدم 

ان شاء الله لى عودة بعد العمل 

On 6/23/2019 at 6:25 AM, ابا جودى said:

وتتوالى نفحات الاستاذ القدير والمعلم الجليل الاستاذ @أبو آدم 

ان شاء الله لى عودة بعد العمل 

ونحن في شوق لعودتك الكريمة لتحل لنا مسألة عدم التكرار

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

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

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

4 hours ago, ابا جودى said:

بصراحة الاول لم اكن افهم المطلوب الاى اتضحت الرؤيا واعجبتنى جدا فكرة الكود ماشاء الله

لكن استاذى الجليل ومعلمى القدير الاستاذ @AlwaZeeR  فضلا وكرما لى تساؤل 

لماذ تنتهى كلها بالصفة 13

اليس من المفترض ان تبدأ برقم بداية الصفخة للمدسة وتنتهى عند اخر صفحة لها ؟!

ام انى لم افهم جيدا ؟

جزاك الله عنا وعمن سيتخدمه خير الجزاء.

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

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

وإليك تلك القاعدة، فتفضله مشكورا مأجورا .

NA_ReportIndex.mdb

3 hours ago, AlwaZeeR said:

تفضل الكود يعمل بشكل سليم

قم بتطبيق ما يلي

::

يوضع الكود في حدث عند الطباعة لتذييل الصفحة

PageFooterSection

ضع مربع نص في نفس قسم التذييل وضع فيه

=[Pages]

وسميه ما شئت

قم بتغيير مسميات الجدول الخاص بتخزين الفهرس لان المسميات الموجودة في الكود محجوزة للنظام

مثلا انا سميتها

Wpage

pageName

هذا هو الكود بعد التعديل

Dim db As Database  'To reference what db we're in
Dim rs As DAO.Recordset  'This holds the records to loop
Dim strSQL As String 'Your SQL statement
Dim GrpStPage As String
Dim GrpLastPage As String
GrpStPage = Page
GrpLastPage = Pages

'Objects like databases & records need to be "set"
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
'Now rs is equal to your select statement
With rs
.AddNew
.Fields("Wpage") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage
.Fields("pageName") = Me.CategoryName
.Update
End With

واذا لم تستطع التطبيق ارفق مثالا صغيرا للتطبيق عليه

 

 

أولا أدعو الله أن يثيبك خير الجزاء على  سرعة الرد والاستجابة.

ثانيا: إليك قاعدة البيانات التي بها التقرير المنشود.

وفقك الله على كل حال.

طباعة فهرس للتقرير الموجود.accdb

الفضلاء عمالقة الأكسيس في منتدى أوفيسنا، 

تحية طيبة وبعد

كم تعلمنا منكم بما أضفى على الأعمال سهولة وإجادة.

لدينا سؤال نسأل أن يعلمكم الله إجابته.

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

 فرجاء أفيدونا بشرح هذا الكود. وهو: 

Private Sub GroupFooter0_Print(Cancel As Integer, PrintCount As Integer)
Dim db As Database  'To reference what db we're in
Dim rs As DAO.Recordset  'This holds the records to loop
Dim strSQL As String 'Your SQL statement
Dim lCount As Long 'This will tally the hours
GrpLastPage = Page
'Objects like databases & records need to be "set"
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
'Now rs is equal to your select statement
With rs
.AddNew
.Fields("page") = "من صفحة " & GrpStPage & " إلى صحفة " & GrpLastPage
.Fields("Name") = Me.CategoryName
.Update
End With
End sub

جزاك الله كل خير كم ساعدنا هذا الإجراء!

جزاك الله خيرا أنت وصاحب الفكرة.

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

عد أسماء المواد في استعلام.rar

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

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

مطلوب عد الحقول في حقل في هذا الاستعلام.rar

السادة الفضلاء سلام الله عليكم لدي مرفق  به استعلام احتاج أن يقوم بعد قيم حقول في حقل واحد مع العلم أن القيم عبارة عن ناتج معادلة وكلما جربت دالة للعد يعد الحقل وإن لم يكن به بيان ولكم جزيل الشكر

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

أخي الكريم

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

وهذه الملاحظة أن الأكسل يفهم الرقم المتوسط رقما لليوم , فلذلك أقوم بإدخال الشهر أولا ثم اليوم ثم السنة.فأجد بذلك مرادي .

أستاذي : كمال النحال ,

تحية طيبة وبعد ,

شكرًا لكم على جميل ترحيبكم بانضمامي لموقعكم المبجل وأعتذر عن تأخير الرد لأسباب تعود لصعوبة دخول جهازي على الشبكة ,

وشكر خاص باهتمامكم وسرعة استجابتكم .

إبراهيم عطا

أخي الفاضل أخوي, تحية عاطرة لك ونشكرك على حسن متابعتك وسرعة استجابتك وهذه لم تكن أول مرّة تتفضّل علينا مما علمك الله .فتح الله عليك وثبّتك وألهمك علمًا غزيرًا .

أخوك إبراهيم عطا

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

___________________.rar

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

أستاذي الجليل أخوي شاكر لكم حسن تعاونكم وسرعته مع أني قرأتها بعد أربع ليالٍ من كتابتها ظنا مني بأن الرد ربما يتأخر , وأعترف بأن هذه ليست المرة الأولى التي نهلت فيها من هذا المنهل الموقر وأعضائه ,وأخص بالذكر والشكر أخي الجليل .وجعله الله في ميزان حسناتك .

وأرجو أن تفسر لي سبب عرض أكسس لي رسالة طلب إدخال قيمة معلمة قبل عرض التقرير .