التصدير لاكسل

اختي الكريمة : نادية ابو خاطر

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

تفضلي الملف بعد التعديل بناء على طلبك تحويل التقارير الى ملف اكسيل

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

ثانيا : انتبهي لطريقة تحويل التقرير الى ملف اكسيل حسب الخطوات المشروحة على الصوره :

1. اختاري السنه ( مهم جدا )

2. اختاري واحدة من ( الدرجة العملية او التخصص او المعدل التراكمي ) واحده فقط منها

3. سيظهر رقم الإحصائية في النموذج في الخانة التي اخترتي منها في الخطوه 2

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

5. اضغطي الآن على زر امر ملف الأكسيل .

سيتم مباشرة تحويل التقرير واغلاقه وفتح ملف الأكسيل بنفس اسم الإحصائية التي اخترتيها .

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

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

za-Nadih-Last.rar

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

بالتوفيق

اختي الفاضلة زهره

بارك الله بك

عند ضغط اي زر في البرنامج تظهر هذه الرسالة ولا يكمل

ارجو الافادة عن هذا الملف واذا كان موجود اين اجده

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

وفق الله لما يحب ويرضى

اخي الفاضل : مالك

المشكلة لديك انت في برنامج الأكسيس لأنه نسخة 2003

هذا الملف الخاص بالأحت نادية معمول على اكسيس 2007 بصيغة ACCDB وتم تحويله الى اكسيس 2003 بصيغة MDB

البرنامج يعمل بشكل ممتاز على اكسيس 2007 ولكنه يعاني من مشاكل على اكسيس 2003 لأن النسخة التي تم عمله به احدث من اكسيس 2003

الحل :

اذهب الى محرر الأكواد VBE وافتح الكود ثم اذهب الى ادوات ثم المكتبات

ستجد المكتبه الموجوده رقمها 12 كما هو مشار له في الصوره غيرها الى رقم 11 اذا كنت تستخدم اكسيس 2003

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

بالتوفيق

بارك الله بك 100%

وكل عام وانت بخير+

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

شكرا لك اختى زهرة وبارك الله فيكم وزادك الله علما ومنفعة لانك لا تبخلي فيه عن غيرك

ولكن في كل مرة انا دائما اغلبك لاني اطلب منك الشرح للخطوات

واكون شاكرة لك كثيير كثيير

اختي الفاضلة نادية

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

وكل عام وانتم بخير

الموضوع بسيط ولا يحتاج الى شرح

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

Public Function zaExport1()
    DoCmd.OpenReport "rptALL", acViewPreview, "", "", acHidden
    DoCmd.OutputTo acOutputReport, "rptALL", "Excel97-Excel2003Workbook(*.xls)", "احصائية الدرجة العلمية" & ".xls", True, "", 0, acExportQualityPrint
    DoCmd.Close acReport, "rptALL"
End Function

Public Function zaExport2()
    DoCmd.OpenReport "rptALL", acViewPreview, "", "", acHidden
    DoCmd.OutputTo acOutputReport, "rptALL", "Excel97-Excel2003Workbook(*.xls)", "احصائية التخصص" & ".xls", True, "", 0, acExportQualityPrint
    DoCmd.Close acReport, "rptALL"
End Function

Public Function zaExport3()
    DoCmd.OpenReport "rptALL", acViewPreview, "", "", acHidden
    DoCmd.OutputTo acOutputReport, "rptALL", "Excel97-Excel2003Workbook(*.xls)", "احصائية المعدل التراكمي" & ".xls", True, "", 0, acExportQualityPrint
    DoCmd.Close acReport, "rptALL"
End Function

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

1. يتم فتح التقرير في الوضع المخفي لأننا لا نحتاجه مفتوحا في العرض العادي عند اخراج البيانات

2. يتم اخراج البيانات من التقرير الى ورقة بيانات في ملف اكسيل ثم يتم فتح ملف الأكسيل بنفس اسم التقرير المطلوب .

3. يتم اغلاق التقرير المفتوح الذي فتحناه في الوضع المخفي .

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

استدعاء وظيفة اخراج تقرير احصائية الدرجة العلمية لملف اكسيل

Private Sub cmdExcel1_Click()
Call zaExport1
End Sub

استدعاء وظيفة اخراج تقرير احصائية التخصص لملف اكسيل

Private Sub cmdExcel2_Click()
Call zaExport2
End Sub

استدعاء وظيفة اخراج تقرير احصائية االمعدل التراكمي لملف اكسيل

Private Sub cmdExcel3_Click()
Call zaExport3
End Sub

بالتوفيق