طباعة ملف مرفق مباشرة من الأكسس

[Hamdi Edlbi-khalf]

السلام عليكم

لدي قاعدة بيانات فيها جدول غير منضم لأي نموذج و ذلك لتخزين ملف ورد واحد به.

هل توجد طريقة لطباعة الملف -و هو على صورة  مرفق-  ؟

 

و شكراً 

[ابو جودي]

انا مش فاهم ممكن مرفق عل الصورة تتضح اكثر

[Hamdi Edlbi-khalf]

مرحباً أستاذ 

@ابا جودى

الفكرة لا تزال على الورق و لم أقم بعمل نموذج لها بعد و هي على الترتيب التالي:

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

ما أبحث عنه هو عند طباعة المراسلة تطبع معها المرفقات و التي هي عبارة عن ملف ورد من عدة أوراق.

الطريقة التي توصلت إليها كانت بإضافة ملف الورد إلى تقرير و من ثم طباعة التقرير .

و سؤالي كان عن إمكانية تخزين ملف الورد بصورة مرفق بالقاعدة وإمكانية طباعته دون تصديره أو فتحه ( أو على الأقل أن يتم ذلك بصورة مخفية).

[ابو جودي]

1 ساعه مضت, Khalf said:

مرحباً أستاذ 

@ابا جودى

الفكرة لا تزال على الورق و لم أقم بعمل نموذج لها بعد و هي على الترتيب التالي:

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

ما أبحث عنه هو عند طباعة المراسلة تطبع معها المرفقات و التي هي عبارة عن ملف ورد من عدة أوراق.

الطريقة التي توصلت إليها كانت بإضافة ملف الورد إلى تقرير و من ثم طباعة التقرير .

و سؤالي كان عن إمكانية تخزين ملف الورد بصورة مرفق بالقاعدة وإمكانية طباعته دون تصديره أو فتحه ( أو على الأقل أن يتم ذلك بصورة مخفية).

 

اتفضل تم بفضل الله تعالى  
طبعا تحتاج بعد التعديلات التى تلائم كل سجل لبرنامجك 

Test To Print External File.rar

تم تعديل يونيو 22, 2019 بواسطه ابا جودى

[ابو جودي]

انتظر ان يخبرنى كل من قام بالتجربة بالنتيجة

هل تمت التجربة بنجاح ام لا

[ابو جودي]

اخى وحبيبى واستاذى @Khalf

ما هى نتيجة التجربة ؟؟؟

هل وجدت ضالتك 

قمت بعمل االاعجاب على سؤالى عن التجربة فلم افهم هل وجدت ضالتك ام لا 

اعجبتك الطريقة ام لا

[Hamdi Edlbi-khalf]

السلام عليكم

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

أستاذ @ابا جودى

عمل رائع.

و قد أجلت الإجابة حتى تحميل المرفق.

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

تم تعديل يونيو 22, 2019 بواسطه Khalf

[ابو جودي]

1 دقيقه مضت, Khalf said:

السلام عليكم

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

أستاذ @ابا جودى

عمل رائع.

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

هو المرفق هاد ثابت ما بتغير اصلا

[Hamdi Edlbi-khalf]

1 دقيقه مضت, ابا جودى said:

هو المرفق هاد ثابت ما بتغير اصلا

نعم أستاذي 

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

[ابو جودي]

تحت امرك 

[Hamdi Edlbi-khalf]

😚

 أخجلتني بلطفك

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

[Hamdi Edlbi-khalf]

شكراً لك أستاذ @ابا جودى

أعتقد أن السؤال وصل إلى حل مقبول و مناسب و الأفضل وضع سؤال آخر لجزئية تصدير المرفقات.

[Hamdi Edlbi-khalf]

و أخيراً توصلت للحل بمعونة أحد الأكارم قبل وضع الجزء الثاني من السؤال

و الفضل في معظمه لك يا @ابا جودى الغالي

أكرمك الله  و رعالك

Dim db As DAO.Database
  Dim rss1 As DAO.Recordset
  Dim rss2 As DAO.Recordset

  Set db = CurrentDb
  Set rss1 = db.OpenRecordset("T11") ' أسم الجدول

  Set rss2 = rss1.Fields("F11").Value  ' أسم الحقل
  While Not rss2.EOF
    rss2.Fields("FileData").SaveToFile CurrentProject.Path 'مسار قاعدة البيانات
    rss2.MoveNext
  Wend

  Set rss2 = Nothing
  rss1.Close
  Set rss1 = Nothing
  Set db = Nothing

 

[ابو جودي]

 

3 دقائق مضت, Khalf said:

و أخيراً توصلت للحل بمعونة أحد الأكارم قبل وضع الجزء الثاني من السؤال

و الفضل في معظمه لك يا @ابا جودى الغالي

أكرمك الله  و رعالك

Dim db As DAO.Database
  Dim rss1 As DAO.Recordset
  Dim rss2 As DAO.Recordset

  Set db = CurrentDb
  Set rss1 = db.OpenRecordset("T11") ' أسم الجدول

  Set rss2 = rss1.Fields("F11").Value  ' أسم الحقل
  While Not rss2.EOF
    rss2.Fields("FileData").SaveToFile CurrentProject.Path 'مسار قاعدة البيانات
    rss2.MoveNext
  Wend

  Set rss2 = Nothing
  rss1.Close
  Set rss1 = Nothing
  Set db = Nothing

 

انا اول مرع بصراحة اتعامل مع المرفقات

كنت ابحث وكنت ادرس الكود 

https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field2-savetofile-method-dao

ثم لتعلم ان الفضل كله لله عزوجل 

هو العليم و لو لا تفضله سبحانه وتعالى علينا ما اهتدينا 

[Hamdi Edlbi-khalf]

الان, ابا جودى said:

انا اول مرع بصراحة اتعامل مع المرفقات

كنت ابحث وكنت ادرس الكود 

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

 

تدارك:

لقد حاولت مع نفس الكود و بحثت عن بدائل لكن الإيرور لم يفارق العمل و من الأفضل تحضير الكود قبل الغد و قد أسعفني الله بما قدمته و بمساهمة الأخ الفاضل

تم تعديل يونيو 22, 2019 بواسطه Khalf

[ابو جودي]

1 دقيقه مضت, Khalf said:

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

ونعم الاهل انتم 

بل شرف لى و وسام عزة وكرامة التعرف الى اخوانى فى هذا الصرح الشامخ