كيف يمكن عرض وطباعة بيانات الموظفين على الوورد

الأخ المهاجر

لقد بحث عن طلبك ولكن لم أجد شيء في هذا الموضوع ، وحقيقة أول مرة انتبه لهذا الأمر مع أهميته .

هناك حل قد ينفع بعض الشيء اختر الجدول الذي ترغب في ظهور بياناته في الوورد بالنقر عليه في إطار قاعدة البيانات ثم قائمة أدوات اختر ارتباطات أوفس ثم نشر بواسطة MS Word وإذا كنت لا ترغب في ظهور كل البيانات فأنشئ استعلام جديد ثم طبق عليه ماذكرته سابقا .

ولك تحياتي

السلام عليكم

المطلوب موجود فى وورد

Tools

Mai Merge

الأخ مصراوي

لقد قام بالدمج هو لا يسأل عنه .

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

ولك تحياتي

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

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

الأخ المهاجر

هذا كود بسيط باستخدام SendKeys ولكن يعيب عليه أنه إذا كانت لغة الكتابة الحالية انجليزية فلن يعمل :

DoCmd.SelectObject acTable, "اسم الجدول", True

'DoCmd.SelectObject acQuery, "اسم الاستعلام", True

SendKeys "%"

SendKeys "د"

SendKeys "ط"

SendKeys "ط"

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

ولك تحياتي

بارك الله فيه يا ابوحمود

وعذرا على ضعف الاستيعاب عندي

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

وش عملها

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

وقد طلبت أنت كود يعمل هذا الشيء هل نسيت أنظر ردك السابق ؟

ولك تحياتي

أنظر في هذا الرابط ستجد مايفيدك أن شاء الله :-

http://arabteam.nicmatic.com/vb/showthread...3?threadid=4156

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

next record

فيما يلي مثال على اكسس وورد 2000 أرجو أن يفي بالغرض ، وأن أكون فهمت مقصود الإخوة :

(انقر بالزر الأيمن واختر حفظ الهدف باسم) :

http://mypage.ayna.com/harith55/www.zip

(يوضع المجلد word2 بعد فك الضغط على سطح المكتب)

السلام عليكم

شكرا أخي حارث على هذه المعلومة الممتازة

ولكن الا ترى انها صعبة عندما يكون عدد الموظفين كبير جدا

وتحتاج لكل واحد ان تضع له nex record اما كيف يكون

ولكن يمكن هناك اكواد توضع في الاكسس تقوم بهذا العمل

حيث انني احتاج الى طباعة قائمة تتكون احيانا من 20 صفحة للموظفين

ضع جدول مكون من صفوف تملأ صفحة ، ويحتوي كل صف على next record

ثم قم بدمج المستند في ملف جديد أو إرسال الدمج إلى الطابعة ، بهذا تتم طباعة جميع الموظفين في جداول ولا تحتاج لإدراج next record إلا في عدد من الصفوف بقدر ما تملأ صفحة واحدة (20 صف مثلا) .

اخواني الكرام جربوا هذا الكود :

Private Function authorp() 'تحويل المعلومات الى الوورد

On Error Resume Next

DoCmd.Hourglass True 'الساعة الرملية

Dim rec As Recordset, db As Database

Dim strg, strg1, strg2, strgp, counts As String

Dim flagp As Integer

Set db = CurrentDb()

Set rec = db.OpenRecordset("basic_data")

'---------------- تحويل من الاكسس ال الوورد -----

Dim WordObj As Object

Dim Count As Integer

Set WordObj = CreateObject("word.basic")

WordObj.filenew

WordObj.paraup 1

WordObj.paradown 1, 1

WordObj.bold 1

WordObj.FontSize 25

WordObj.INSERT strgp + Chr(13)

WordObj.INSERT "=========================" + Chr(13)

WordObj.endofdocument

Do

'-------------------- ادخال المعلومات الى الوورد ------

WordObj.FontSize 20

WordObj.INSERT strg

WordObj.INSERT Chr(13)

counts = rec!countp

mem.Seek "=", counts, 1

WordObj.FontSize 14

WordObj.INSERT rec!memp

WordObj.insertpara

rec.MoveNext

Loop Until rec.EOF

'---------------------- close file -------------

WordObj.fileclose (1)

exit_function2:

rec.Close: db.Close

DoCmd.Hourglass False 'الساعة الرملية

End Function

مدري اخوي ممكن تشرح الكود هذا لاني ما شوف اسماء جداول ولا استعلامات وبارك الله فيك

اخي المهاجر2

السلام عليكم

اسم الجدول basic_data وهذا المثال لتحويل معلومات من الاكسس الى الوورد ويمكن تغيرر خصائص الوثيقة من خطوط واحجامها وغيرها واذا تطلب الامر اكثر من ذلك ممكن ان اعمل قاعدة بيانات وارسلها لكم

تحياتي للجميع

تحية طيب للجميع انا اضفت كود لدمج المستند بالطابعة ولكن

تظهر لي هذه الرسالة

وبعد يظهر في الوحدة النمطية :

اخي المهاجر2

الصورة غير واضحة

اخوي بارك الله فيك

فتحت الموقع من جهاز آخر والصورة واضحة جداً ما فيها اي شي