تعديل تقرير

[عبدالعزيز محمد]

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

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

لدي قاعدة بيانات لمدرسة كما في المرفق

 لدي مشكلة وهي أنني قمت بعمل تقرير-مجمع-ReportAllTeachers يوضح بيانات الموظفين حسب اسمائهم وتقرير آخر ReportTeachersSalaries يوضح بيانات الموظفين حسب الشهر –حسب اسم الموظف

وهذان التقريران يعملان بنجاح ولكن عندما أود عمل تقريرحسب اسم الموظف (ReportTeachersSalaries) لا يعمل

ملاحظة:أود كتابة عبارة في مربع النص بالتقريرReportTeachersSalaries كما هي مكتوبة في الكود الخاص بفتح التقارير في نموذج المعلمين.

وبالتجربة تتضح المسألة .

نأمل أن يكون السؤال واضحا

معلمين.rar

[Shivan Rekany]

اتفضل

 

معلمين.rar

[عبدالعزيز محمد]

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

تقبل الله منا ومنكم وعيدكم مبارك

أشكرك على سرعة الرد

وأود طلبا  لا أمرا الأتي: في التقرير ReportTeachersSalaries حقل txt_Title يتم الكتابة فيه المرة الأول –تقرير عن مرتبات الموظفين شهر: ....- وفي المرة الثانية –تقرير عن مرتب الموظف: ...  - فأريد كتابة رقم الشهر في المرة الأولى في الحقل txt_Title وفي المرة الثانية كتابة اسم الموظف التي تعرض بياناته في التقرير في الحقل txt_Title في مكان النقط

نأمل أن يكون الطلب واضحا .

[Shivan Rekany]

الان, عبدالعزيز محمد-عاشق البرمجة said:

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

تقبل الله منا ومنكم وعيدكم مبارك

أشكرك على سرعة الرد

وأود طلبا  لا أمرا الأتي: في التقرير ReportTeachersSalaries حقل txt_Title يتم الكتابة فيه المرة الأول –تقرير عن مرتبات الموظفين شهر: ....- وفي المرة الثانية –تقرير عن مرتب الموظف: ...  - فأريد كتابة رقم الشهر في المرة الأولى في الحقل txt_Title وفي المرة الثانية كتابة اسم الموظف التي تعرض بياناته في التقرير في الحقل txt_Title في مكان النقط

نأمل أن يكون الطلب واضحا .

احذف هذا السطر من الكود في تقرير

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)
Rem ===كتابة عنوان في التقرير بناء على ما كتب في أمر فتح التقرير ===
'    Me.txt_Title = Me.OpenArgs
End Sub

واضف هذا الكود

Private Sub Report_Load()
        If Forms!formteachers!OPTIONS_REPORTS = 2 Then
                Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááÔåÑ ( " & Forms!formteachers!COMBOX_MONTH & " ) "
            ElseIf Forms!formteachers!OPTIONS_REPORTS = 3 Then
                Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááãæÙÝ ( " & Forms!formteachers!COMBOX_TEACHER_NAME.Column(1) & " ) "
        End If
End Sub

اليك المرفق بعد تعديل

 

 

معلمين.rar

[عبدالعزيز محمد]

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

هذا هو المطلوب

[عبدالعزيز محمد]

السلام عليكم 

بعد تحفل بشكل صحيح ولكن عند اضافة موظفين او تغيير اسمائهم او مسح اسماء الموظفين واضافة موظفين جدد لا يعمل تظهر رسالة لا توجد بيانات 

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

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

[عبدالعزيز محمد]

محتاجه ضروري....

[عبدالعزيز محمد]

السلام عليكم

مازلت انتظر......

[Shivan Rekany]

5 ساعات مضت, عبدالعزيز محمد-عاشق البرمجة said:

السلام عليكم

مازلت انتظر......

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

2 ساعات مضت, عبدالعزيز محمد-عاشق البرمجة said:

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

معليش مرة أخرى أنا لحوح بعض الشيء في التعلّم

اذن ارفق القاعدة اللي بها المشكلة

تم تعديل سبتمبر 5, 2017 بواسطه Shivan Rekany

[عبدالعزيز محمد]

السلام عليكم

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

معليش مرة أخرى أنا لحوح بعض الشيء في التعلّم

 

تم تعديل سبتمبر 5, 2017 بواسطه عبدالعزيز محمد-عاشق البرمجة

[عبدالعزيز محمد]

lمعلمين.rar

[Shivan Rekany]

2 ساعات مضت, عبدالعزيز محمد-عاشق البرمجة said:

lمعلمين.rar

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

SELECT TabTeachers.TEACHER_NAME
FROM TabTeachers
ORDER BY TabTeachers.TEACHER_NAME;

والان القي نظرتا الى المرفق

lمعلمين.rar

[عبدالعزيز محمد]

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