تصدير بيانات أكسس إلى جدول في الوورد

[صالح حمادي]

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

نعاني دائما من تصدير البيانات إلى الوورد للتعديل عليها أو لأي غرض آخر و خاصة الجداول

أقدم لكم هذا المثال البسيط الذي يقوم بتصدير البيانات لملف وورد معد مسبقا و يقوم بملئها في أماكنها و كلما زاد سجل زاد له سطر في جدول الوورد 

و هذا هو المثال فيه نسختين 2003 و نسخة 2010

التصدير لملف وورد معد مسبقا.rarFetching info...

[ازهر عبد العزيز]

روعة ولتك تجلب لنا أيضا طريق العكس أي تصدير الورد الى اكسس 

تم تعديل يوليو 29, 2019 بواسطه ازهر عبد العزيز

[qassim-t]

بارك الله فيك استاذا صالح

[ابو ياسين المشولي]

ابداعاتك اخي صالح حمادي

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

[jjafferr]

شكرا اخي صالح 🙂

 

هذه من الاسئلة المطلوبة ، تعبئة جدول 🙂

 

جعفر

[kanory]

ما شاء الله عليك أخ @صالح حمادي فكرة جديرة بالتجربة .... بارك الله فيك .... دائما تتحفنا بالجميل ...

[صالح حمادي]

  في 29‏/7‏/2019 at 15:48, ازهر عبد العزيز said:

روعة ولتك تجلب لنا أيضا طريق العكس أي تصدير الورد الى اكسس

Expand  

إن شاء الله نبحث عن ذلك في وقتها.

  في 29‏/7‏/2019 at 15:54, qassim-t said:

بارك الله فيك استاذا صالح

Expand  

 

  في 29‏/7‏/2019 at 15:55, ابو ياسين المشولي said:

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

Expand  

 

  في 29‏/7‏/2019 at 19:39, kanory said:

ما شاء الله عليك أخ @صالح حمادي فكرة جديرة بالتجربة .... بارك الله فيك .... دائما تتحفنا بالجميل ...

Expand  

كل الشكر على مروركم الكريم

  في 29‏/7‏/2019 at 18:09, jjafferr said:

هذه من الاسئلة المطلوبة ، تعبئة جدول 🙂

Expand  

نعم أستاذ جعفر و هذا ما جعلني أبحث عنها مليا

[محمد القدسي]

سلمت يداك استاذ @صالح حمادي 

استاذي العزيز كيف يمكن جعل هذا العنوان ( منتدى أوفيسنا قسم الأكسس تصدير البيانات إلى جدول وورد )

يفتح في الصفحة رقم 2 او 3 وهكذا بحيث يكون عنوان رئيسي لكل صفحة

وجزاكم الله خيرا وبارك فيكم جميعا

[ابوآمنة]

  في 29‏/7‏/2019 at 21:42, محمد القدسي said:

استاذي العزيز كيف يمكن جعل هذا العنوان ( منتدى أوفيسنا قسم الأكسس تصدير البيانات إلى جدول وورد )

يفتح في الصفحة رقم 2 او 3 وهكذا بحيث يكون عنوان رئيسي لكل صفحة

 

Expand  

قم بالتعديل على القالب "recap1.dot" واجعل العنوان الذي تريده يتكرر في رأس وتذليل الصفحة كما في الصورة

واحفظ ملف الوورد بنفس التسمية "recap1.dot"  حفظ كنوع : ‫قالب Microsoft Word 97 - 2003‬ ‎(.dot)‎ 

بجوار  البرنامج

 

وشكراً لك أستاذي صالح

للتحرير على رأس وتذليل الصفحة اضغط مرتين على رأس الصفحة 

[محمد القدسي]

والله اخي ابو امنة اني صفر في الوورد ولم استطيع اعرف اين راس وتذييل الصفحة

[محمد القدسي]

اشكركم اساتذتي قد عرفت اين راس وتذييل الصفحة 

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

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

[ابوآمنة]

  في 30‏/7‏/2019 at 20:44, محمد القدسي said:

اشكركم اساتذتي قد عرفت اين راس وتذييل الصفحة 

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

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

Expand  

لا أعلم

[محمد القدسي]

تسلم اخي على تعاونكم 

 

[صالح حمادي]

  في 30‏/7‏/2019 at 21:01, ابوآمنة said:

لا أعلم

Expand  

ههههههههه

من قال الله أعلم علمه الله ما لا يعلم تذكر ذكر اسم الله أخي ابوآمنة و إن شاء الله سوف أشرح الطريقة

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

و هذه صورة إنشاء إشارة مرجعية في الوورد:

و هذا كود إرسال البيانات إلى مكان الإشارة المرجعية في ملف الوورد الموجود بجانب البرنامج:

Dim wApp As Word.Application 'Object
Dim wDoc As Word.Document 'Object
Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open(CurrentProject.Path & "\recap1.dot")
wApp.Visible = True 'False
wDoc.Bookmarks("fname5").Range.Text = "Officna"
wApp.ActiveDocument.SaveAs (CurrentProject.Path & "\1988_Doc.Docx")
wApp.Quit
Set wDoc = Nothing
Set wApp = Nothing

 

[ابوآمنة]

أشكرك أستاذي الفاضل صالح على هذه المعلومات القيمة .

الحمد لله الذي علمنا ما ينفعنا ونفع بما علمنا وزادنا علما وعملا .

ماذا لو أردنا أن نرسل القيم لملف الوورد ونقوم بتحويل الملف pdf ثم نحفظه كهيئة  شهادة واحدة / مجموعة شهادات .

ويتم تسمية ملف pdf باسم المستفيد .

[صالح حمادي]

  في 31‏/7‏/2019 at 06:41, ابوآمنة said:

ماذا لو أردنا أن نرسل القيم لملف الوورد ونقوم بتحويل الملف pdf ثم نحفظه كهيئة  شهادة واحدة / مجموعة شهادات .

ويتم تسمية ملف pdf باسم المستفيد .

Expand  

افتح موضوع جديد لسؤالك هذا و ضع مثال لتطبيق عليه و إن شاء الله نجد لك حلا.

[asd1390]

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

[صالح حمادي]

  في 16‏/4‏/2020 at 06:53, asd1390 said:

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

Expand  

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

أي تصدير تقصد يا ريت توضح المطلوب أكثر

[asd1390]

  في 29‏/7‏/2019 at 15:31, صالح حمادي said:

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

نعاني دائما من تصدير البيانات إلى الوورد للتعديل عليها أو لأي غرض آخر و خاصة الجداول

أقدم لكم هذا المثال البسيط الذي يقوم بتصدير البيانات لملف وورد معد مسبقا و يقوم بملئها في أماكنها و كلما زاد سجل زاد له سطر في جدول الوورد 

Expand  

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

test333.rarFetching info...

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

[صالح حمادي]

  في 20‏/4‏/2020 at 13:35, asd1390 said:

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

Expand  

الأكواد لا توجد بها أي خطأ

يجب عليك إضافة مكتبة Microsoft Word 14.0 Object Library في محرر أكواد فجوال بسيك

كما توضح الصورة التالية:

[asd1390]

الله يعطيك العافية ابغى شرح كامل للمثال ممكن اخوي

[صالح حمادي]

السلام عليكم

هذا المثال عبارة عن تصدير بيانات أكسس إلى جدول في ملف وورد و ذلك بالإعتماد على الإشارات المرجعية في الوورد

و هذا شرح الكود المستخدم:

Dim wApp As Word.Application
Dim wDoc As Word.Document
Dim wDocOriginal As String
wDocOriginal = CurrentProject.Path & "\recap1.Dot"

Set wApp = CreateObject("Word.Application")
Set wDoc = wApp.Documents.Open(wDocOriginal)

هنا قمنا بتعريف المتغيرات و إنشاء تطبيق وورد جديد و نفتح فيه مستند recap1.Dot المرفق مع البرنامج

wApp.Visible = True 

جعل التطبيق ظاهر عند تنفيذ عملية التصدير

wDoc.Bookmarks("cell1").Select

هنا وضع المؤشر على الإشارة المرجعية cell1 في مستند الوورد

For i = 1 To [sub_tbl].Form![c_rec]

فتح حلقة دورانية من أجل الدوران على جميع السجلات

wApp.Selection.MoveRight Unit:=wdCell, Count:=1

هذا الكود يعني نقل مؤشر الفأرة إلى الخلية الموالية

wApp.Selection.TypeText Text:=[sub_tbl].Form![ID]

كتابة العبارة الموجود في [sub_tbl].Form![ID] داخل الخلية النشطة أو المحددة في الوورد

wApp.ActiveDocument.SaveAs (CurrentProject.Path & "\1988_Doc.Doc")

wApp.Quit

Set wDoc = Nothing
Set wApp = Nothing

هنا نقوم بحفظ مستند الوورد في ملف جديد و بعدها نغلقه

[asd1390]

الله يعطيك الف عافية اخي صالح

شاهد اخي الملف المرفق لا يعمل

a1.rarFetching info...

تم تعديل أبريل 22, 2020 بواسطه asd1390

[صالح حمادي]

الأخطاء هي كالتالي:

1- راجع تسميات الحقول نكتب me.id و لا نكتب [ta].Form![id]

2- الإشارة المرجعية يجب وضعها في آخر خلية للسطر الأول و ليس الجدول ككل

3- ملف الوورد من الأفضل يكون بإمتداد dot لكي لا يتم التعديل عليه

a1.rarFetching info...

[asd1390]

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

والله يوفقك في الدنيا والاخرة