تقرير شهري بالغياب

[علي المصري]

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

في برنامج المتابعة اليومية للطلاب يتم تسجيل الغياب اليومي للطلاب

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

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

بمعنى الاسم امامه جميع ايام الشهر

مع تظليل ايام الجمعة والسبت من كل أسبوع

المطلوب اريده كما بالصورة

 

[jjafferr]

وعليكم السلام أستاذ علي 

 

يمكن "تقريبا" عمل كل شئ في الاكسس 

 

بس لوسمحت:

1. ارفق قاعدة بيانات فيها بيانات ،
2. واعمل لي سواء بالاكسل او الوورد او بصورة ، النتيجة النهائية اللي تريدها 

 

جعفر

[علي المصري]

شكرا أستاذ جعفر وجزاك الله خيرا

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

بيانات كل فصل ( شعبة ) خلال الشهر بالكامل كما موضح بالصورة

عند لغة انجليزية ولغة عربية اريد ان يحتفظ الاكسيس باخر اختيار

أي انه اذا اخترت اللغة الإنجليزية عند فتح قاعدة البيانات للمرة الثانية اجدها على اللغة الإنجليزية للواجه

Follow.rar

تم تعديل سبتمبر 29, 2015 بواسطه علي المصري

[jjafferr]

عند لغة انجليزية ولغة عربية اريد ان يحتفظ الاكسيس باخر اختيار

أي انه اذا اخترت اللغة الإنجليزية عند فتح قاعدة البيانات للمرة الثانية اجدها على اللغة الإنجليزية للواجه

تم عمل هذه الجزئية 

 

ولكن ، وللرجوع للسؤال الاصلي ، ما اجبت على سؤالي:

واعمل لي سواء بالاكسل او الوورد او بصورة ، النتيجة النهائية اللي تريدها 

.

ولوسمحت ن تخبرني كيف اوصل الى التقرير الذي تريده ، فبرنامجك ماشاءالله بحر 

 

جعفر

[علي المصري]

شكرا استاذنا الفاضل جعفر

 

الشكل النهائي للتقرير مرفق في ملف الاكسيل

اريده في تقرير جديد

 

111.rar

تم تعديل سبتمبر 30, 2015 بواسطه علي المصري
اضافة مرفق

[jjafferr]

السلام عليكم استاذ علي 

 

اعتذر عن التأخير ، ولكن العمل اخذ كل هذا الوقت 

 

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

 

ثم استخدم التقرير التالي (لم اقم بربط التقرير برمجيا مع اي زر):

وعليك ان تعمل التنسيق الشرطي لبقية حقول الشهر (انسخ التنسيق الشرطي من الحقل 1 الى بقية الحقول 8 الى 31 ، مع مراعاة تغيير اسم الحقل).

 

الشئ المهم هو ان المرفق 221.Folow up V.2.accdb.zip يجب تغيير صيغة الملف الى 7z (الموقع لا يقبل ارفاق هذه الصيغة) ، وذلك لأن هذه الصغيه هي الوحيدة التي استطعت من خلالها ضغط قاعدة البيانات لرفعها على الموقع ، واذا لم تملك البرنامج لفك هذه الصيغة ، فيمكنك انزاله مجانا من الموقع www.7-zip.org .

 

العمل اعتمد على الاستعلامات:

Absents ، 

Absents_Crosstab_1-2 ،

وتم عمل التقرير على اساس الاستعلام Absents_Crosstab_2-2

 

جعفر

221.Folow up V.2.accdb.zip

 

واستعمل الطريقة في الرابط التالي ، لتستبدل علامة الصح (لأيام الغياب) بدلا عن الرقم 1:

http://allenbrowne.com/ser-52.html

 

 

تم تعديل سبتمبر 30, 2015 بواسطه jjafferr

[علي المصري]

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

شكرا على اهتمامك بالموضوع وجزاك الله خيرا

 

جاري التجربة

بارك الله فيك

 

 

 

تم تعديل أكتوبر 1, 2015 بواسطه علي المصري

[علي المصري]

شكرا جزلا تم التنفيذ على اتم وجه

فلله الحمد والمنه

وجعله في ميزان حسناتك

 

[jjafferr]

حياك الله أخي الاستاذ علي 

واذا حبيت ، ممكن اغير لك الرقم 1 (للغياب) ، بعلامة صح او بحرف غ 

 

جعفر

 

الشئ المهم هو ان المرفق 221.Folow up V.2.accdb.zip يجب تغيير صيغة الملف الى 7z 

 

وطريقة تغيير الواحد الى علامة الصح ، او حرف الـ غ ، هي في التنسيق فقط 

 

جعفر

Folow up V.2.accdb.zip

[jjafferr]

اساذنا العزيز

 

وهنا عملت على تصغير حجم قاعدة بياناتك ، فصغرت من 56MB الى 12MB

 

 

جعفر

Folow up V.2.zip

[علي المصري]

شكرا جزيلا استاذنا الفاضل

جزاك الله خير

سؤال آخر من فضلك

هل يمكن دمج التأخر مع الغياب في نفس التقرير الذي تفضلتم بعمله

بمعني

انه في نفس اليوم يتم تسجيل الغياب للطلاب والتأخر

فالطالب الغائب يسجل امامه في هذا اليوم غ والمتاخر يسجل امامه ت

شكرا

[jjafferr]

حياك الله 

ومعلومات المتأخرين وين احصلها؟

 

جعفر

[علي المصري]

نفس الجدول

MainTble

والاستعلام

QLate

شكرا على الاهتمام

 

[علي المصري]

للرفع

[jjafferr]

وعليكم السلام أستاذ علي 

 

عذرا على التأخر في الرد ، كنت في ابوظبي من يوم الاثنين ، وبعيد عن كمبيوتري 

 

هذا هو التقرير:

.

وعلشان يعمل ، فيجب النقر على الزر الجديد لطباعة التقرير:

.

وهذا الزر يستعمل الكود التالي:

Private Sub cmd_rpt_Absent_Late_Click()

    If Len(Me.cmb_Month & "") = 0 Then
        MsgBox "Can't leave the Month Empty"
        Exit Sub
    ElseIf Len(Me.Grades & "") = 0 Then
        MsgBox "Can't leave the Grades Empty"
        Exit Sub
    ElseIf Len(Me.Sections & "") = 0 Then
        MsgBox "Can't leave the Sections Empty"
        Exit Sub
    End If
    
    'Delete the data from
    MySQL = "Delete * From tbl_Absent_Late"
    CurrentDb.Execute (MySQL)
    
    DoCmd.SetWarnings fasle
    
        'DoCmd.OpenQuery "Absents_Crosstab_1-3"
        DoCmd.OpenQuery "Absents_Crosstab_2-3"
        DoCmd.OpenQuery "Absents_Crosstab_3-3"
    
        'DoCmd.OpenQuery "Late_Crosstab_1-3"
        DoCmd.OpenQuery "Late_Crosstab_2-3"
        DoCmd.OpenQuery "Late_Crosstab_3-3"
        
    DoCmd.SetWarnings True
    
    DoCmd.OpenReport "rpt_Absent_Late", acViewPreview
    
End Sub

 

جعفر

221.Folow up V.2.accdb.zip

[علي المصري]

الأستاذ الفاضل جعفر

لا اجد الكلام الذي يكفيك حقك في هذا العمل الرائع الذي قدمته لي

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

وزادك علما

 

[jjafferr]

وعليكم السلام أستاذ علي

 

ولا تُسدي الكلمات حقكم في تعليمكم اجيالاً 

 

جعفر

[علي المصري]

أستاذنا الفاضل جعفر

تظهر رسالة

13

type missmatch

عند تعديل مصدر بيانات

cmb_month

من

SELECT Format(['Date],"mmm-yy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2 FROM MainTble GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm") ORDER BY Format(['Date],"yy"), Format(['Date],"mm"); 

إلى

SELECT Format(['Date],"mmm-yyyy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2 FROM MainTble GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm") ORDER BY Format(['Date],"yy"), Format(['Date],"mm"); 

فما الخطأ في ذلك

اريد ان يظهر الشهر في القائمة المنسدلة كما يلي

أكتوبر - 2015  مثلاً

وليس أكتوبر - 15

شكرا

[jjafferr]

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

 

تفضل:

SELECT Format(['Date],"mmm-yyyy") AS Month_Year, Format(['Date],"yy") AS Expr1, Format(['Date],"mm") AS Expr2
FROM MainTble
GROUP BY Format(['Date],"mmm-yyyy"), Format(['Date],"yy"), Format(['Date],"mm")
ORDER BY Format(['Date],"yy"), Format(['Date],"mm");

 

جعفر

[jjafferr]

السلام عليكم أستاذ علي 

بعد ما اخذت غفوة ، لاحظت ان الكود اللي اعطيتك مشابه للكود اللي انت وضعته 

وبعد البحث ، اتضح اني في التقرير rpt_Absent_Late ، عملت كود علشان اتصيد هذا الخطأ ، ولكني لم افعّله 

 

في نهاية التقرير ، بدلا عن:

	If Err.Number = 1 Then
        'Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

اكتب

    If Err.Number = 13 Then
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If

 

جعفر

[علي المصري]

شكرا جزيلا ً لك وجعله في ميزان حسناتك

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

طلب اخير

في التقرير الذي قمت حضرتك بعمله

هل يمكن ان نضع الشرط التالي

اذا كانت قيمة

myLang = 1

في جدول  tbl_MyLang

تظهر الأسماء باللغة العربية

وإذا كانت تساوي 2 تظهر الأسماء باللغة الانجليزية

حيث ان الأسماء متوفرة باللغتين في جدول أسماء الطلاب

 

 

[علي المصري]

 تم حل هذه المشكلة بحمد الله

قمت بإضافة

SNameEng 

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

ثم كتبت هذا الكود في مصدر حقل الاسم في التقرير

=IIf(DLookUp("[MyLang]";"tbl_MyLang";"[Auto_ID]=" & 1)=1;[SName];[SNameEng])

تم بحمد لله حل المشكلة

ودا بفضل الله ثم مساهمات العلامة الكبير الأستاذ جعفر

 

شكرا جزيلا

[jjafferr]

حياك الله أستاذ علي ، وعذرا على التأخر في الاجابة 

 

نعم تستطيع ان تستخدم الكود كما ذكرت ، ولكن الامر Dlookup ثقيل على البرنامج ، وهو سيستخدم 31 مرة (صحيح الكمبيوترات سريعة هذه الايام ، وقد لا تلاحظ البطئ ) ،

ولكني افضل ان نجعله في الكود ، بحيث تفحص اللغة بكود شبيه للذي وضعته انت ، وعلى اساس اللغة تستخدم if else 

 

جعفر

[hatem10288]

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