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

[zhamid]

السلام عليكم ..... وجمعه مباركه للجميع

عند تضدير التقرير الى الاكسل لا يظهر ( Header & Footer ) في الاكسل
فكيف يمكن اظهر  ( Header & Footer ) في الاكسل عند التصدير من الاكسس الى الاكسل 
مرفق مثال على ذلك

شاكرا لكم حسن تعاونكم

db1.rar

[zhamid]

في 5/12/2017 at 01:38, zhamid said:

لسلام عليكم 
فقط للتذكير......  وين الشباب

 

[jjafferr]

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

 

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

ولكن بحيلة بسيطة تستطيع ارسال Header الى الاكسل مع تقريرك ،

استعمل حقل النص ، واستعمل هذا الكود لإضافة بقية الكلمات اليه:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)

    Me.Text77 = "List Of New Monthly subscription " & vbCrLf & _
                "( K4 ) " & Format(Date, "mmmm\.yyyy")
End Sub

 

جعفر

[Amr Ashraf]

14 دقائق مضت, jjafferr said:

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

 

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

 

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

[jjafferr]

الى الاكسل ، لا ، ليس بطريقة مباشرة

 

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

لذا يمكنك العمل على هذا التصدير بالتحكم في الاكسل ، بتجزئته ، هكذا:

1. سنتعامل مع الاكسل عن طريق النموذج وليس التقرير ،

2. ارسال البيانات ، والتي عادة تكون من الاستعلام ، الى الاكسل ، بحيث تبدأ من السطر A4 ، وهنا تستطيع استعمال الوحدة النمطية من برنامجي:

والتي استعملتها هنا:

3. ارسال قيمة مربع نص (كالذي في رأس التقرير) ، الى الحقل B2 من الاكسل ،

4. ارسال قيمة اخرى الى الحقل B3 من الاكسل ،

5. ارسال قيم اخرى في نهاية الصفحة الاكسل ، ... وهكذا ، بإستخدام الكود مثل الموجود هنا (جزء ارسال البيانات الى الاكسل):

 

جعفر

[zhamid]

شكرا لردكم

ولكن ياريت الايضاح بنفس المثال 

[Amr Ashraf]

 

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

[jjafferr]

1 دقيقه مضت, Amr Ashraf said:

 

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

يالله ، البركة فيك ، في اعطاء الحل لهذا الموضوع ، بكرة باذن الله

 

جعفر

[Amr Ashraf]

6 دقائق مضت, jjafferr said:

يالله ، البركة فيك ، في اعطاء الحل لهذا الموضوع ، بكرة باذن الله

 

جعفر

ان شاء الله ربنا ييسر لو اتوفر لدى وقت بعد الشغل نجرب فيها 

[jjafferr]

السلام عليكم😊

 

الصباح إن شاء الله سأعمل على فكرة جائتني ، فاننظر ردي ان شاء الله في جمع الأفكار اعلاه😊

 

جعفر

[ابو جودي]

في 5/12/2017 at 01:38, zhamid said:

السلام عليكم ..... وجمعه مباركه للجميع

عند تضدير التقرير الى الاكسل لا يظهر ( Header & Footer ) في الاكسل
فكيف يمكن اظهر  ( Header & Footer ) في الاكسل عند التصدير من الاكسس الى الاكسل 
مرفق مثال على ذلك

شاكرا لكم حسن تعاونكم

db1.rar

 

هل هذه النتيجة مرضية ؟

التصدير الى ملف اكسل معد مسبقا.rar

[ابو جودي]

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

تم تعديل مايو 14, 2017 بواسطه ابا جودى

[Amr Ashraf]

13 ساعات مضت, ابا جودى said:

 

هل هذه النتيجة مرضية ؟

التصدير الى ملف اكسل معد مسبقا.rar

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

[Shereen Ahmed]

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

بارك الله فيكم جميعا 

اود ان اطلب طلب اذا وضع شرك في الاستعلام فإنه لا يصدر البيانات الي الاكسيل فكيف افعل ذلك مع الشكر

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

 

[عبد الفتاح كيرة]

الشرط يوضع قبله eval ()

=eval (المعامل )

وذلك فى كود التصدير

[jjafferr]

4 ساعات مضت, Shereen Ahmed said:

اود ان اطلب طلب اذا وضع شرك في الاستعلام فإنه لا يصدر البيانات الي الاكسيل فكيف افعل ذلك

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

 

الشرط في الاستعلام يعمل تصفية للبيانات ، ولكن في نهاية الامر ستكون هناك بيانات (طبعا ممكن لا تكون بيانات كذلك) ،

لذلك ، فنتيجة الاستعلام هي التي سيتم ارسالها للاكسل

 

جعفر

[ida]

في ١٣‏/٥‏/٢٠١٧ at 22:42, jjafferr said:

Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer) Me.Text77 = "List Of New Monthly subscription " & vbCrLf & _ "( K4 ) " & Format(Date, "mmmm\.yyyy") End Sub

السلام عليكم 

صديقي ما عرفت اتعامل مع الكود وين احطو ب mudel جديد الا بالتقرير 

ارجو ان تدلني

لاني عايز اصدر التقرير ذي ما  انا مصممو بالاكسس على الاكسل