حدوث خطاء اتناء تصدير الاستعلام الى تقرير اكسل

[SAROOK]

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

لدي في المرفقات قاعدة بيانات تحدد المواد الدراسية (لكل صف من صفوف السنوات الاولى والثانية والثالثة حسب كل عام دراسي ) في تقرير اكسس وهو يعمل بكفاءة  .

عندما اردت ان يتم تصدير  استعلامات  المواد  الى تقرير اكسل عن طريق النموذج( w_moka_mid9) وهذه الاستعلامات  (  yeartable11 وyeartable22 وyeartable33 ) تظهر رسالة خطاء مرفق صورته 

حاولت ان اصل الى مصدر الخطاء فلم استطع 

تحياتي 

حدوث خطاء عند تصدير الاستعلام.rar

[SAROOK]

للرفع

[ابو البشر]

23 ساعات مضت, SAROOK said:

رسالة خطاء مرفق صورته 

حاولت ان اصل الى مصدر الخطاء فلم استطع

اخي الكريم من وجهة نظري الشخصية ::: لديك بعض الأخطاء منها :::::

* استخدام الكلمات او العبارات المحجوزة للأكسس

* تكرار بعض مسميات الحقول في الاستعلامات 

* الحقول المحسوبة 

* ايضا ادخال المواد التدريسية لماذا لم تتم بشكل سجلات بدلا من ادخالها افقيا

على كل حال ( لو كنت مصر على طريقتك تفضل بعض الحل للمشكلة )

اعمل زر وضع فيه هذه الشيفره

Dim sXlsFile As String
sXlsFile = CurrentProject.Path & "\ww1.xlsx"
DoCmd.SetWarnings False
If Not IsNull(Forms!w_moka_mid9!MM) Then
    Select Case Forms!w_moka_mid9!MM
        Case Is = "الاولى"
            DoCmd.RunSQL " SELECT [year-table1].[full-name], [year-table1].[natio-no], [year-table1].exper, [year-table1].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _
                        " FROM [year-table1] " & _
                        " WHERE ((Not ([year-table1].EXPR5) Is Null));"
        Case Is = "الثانية"
            DoCmd.RunSQL " SELECT [year-table2].[full-name], [year-table2].[natio-no], [year-table2].exper, [year-table2].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _
                        " FROM [year-table2] " & _
                        " WHERE ((Not ([year-table2].EXPR5) Is Null));"
        Case Is = "الثالثة"
            DoCmd.RunSQL " SELECT [year-table3].[full-name], [year-table3].[natio-no], [year-table3].exper, [year-table3].cerf, [EXPR2] & "", "" & [EXPR3] & "", "" & [EXPR4] AS EXPR6 INTO year_table " & _
                        " FROM [year-table3] " & _
                        " WHERE ((Not ([year-table3].EXPR5) Is Null));"
    End Select
    Call Export_Excel_officena_by_aba_judy(sXlsFile, "SELECT * FROM year_table", 6)
    DoCmd.DeleteObject acTable, "year_table"
Else
    MsgBox "اختر جداول السنة المطلوب عرض تقريرها", vbCritical, "انتبــــــه"
End If
DoCmd.SetWarnings True

 

تم تعديل April 22 بواسطه ابو البشر

[SAROOK]

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

بارك الله فيك بشمهندس ابو البشر كفيت ووفيت . لقد عمل الكود بكفاءة جزاك الله كل خير

وياريت ان امكن لو يكون هناك شرح بسيط للكود

واود هنا استوضح منك بشمهندس ان اذنت

عن  مثال عن كلمة محجوزة لكي استدرك واعدل هذا الخطا

 و الحقول المحسوبة هنا هل تعني بشمهندس ان اي حقل يكون محسوب سوف يسبب خلل في استعلام  ويفضل ان لا يكون محسوب ؟

و بالنسبة لادخال المواد لقد صممتها بهذا الشكل كي تكون كل المواد ظاهرة معا في نفس الفورم وبجانب بعض 

اشكرك كثيرا بشمهندس 

تحياتي لشخصك الكريم 

 

[ابو البشر]

28 دقائق مضت, SAROOK said:

ان امكن لو يكون هناك شرح بسيط للكود

الكود السابق اخي وباختصار يقوم بانشاء جدول مؤقت باسم year_table في كل مرة يجلب البيانات من استعلام معين حسب جدول السنة ( الاولى - الثانية - الثالثة ) عن طريق select case

ثم يقوم بتصدير البيانات لملف الاكسل ... ثم حذف الجدول المؤقت

28 دقائق مضت, SAROOK said:

مثال عن كلمة محجوزة لكي استدرك واعدل هذا الخطا

هنا مثال ممتاز لاخونا الاستاذ @ابوخليل مثلا عند no ابحث في مثال اخونا تجدها من ضمن الكلمات المحجوزة

في 7‏/11‏/2011 at 17:25, ابوخليل said:

اخي الكريم

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

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

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

اليك الحل هدية العيد :

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

لان ذلك يؤدي الى ظهور أخطاء أمام المبرمج يخفى عليه سببها .

 

آمل ان تجدوا الفائدة ،،،

dbx.rar

الحقول المحسوبة اعني بها في الجدول .... حاول تعملها في الاستعلام او التقرير او النماذج .... والله اعلم

 

تم تعديل April 22 بواسطه ابو البشر

[SAROOK]

زادك الله من علمه ونفع بك الناس

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