الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الاخ ابو حمد مع التحية

مغلق
بدأه المهاجر2 في 2 نوفمبر 2001 · 13 رد · 771 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

سبق لكم أخي انكم وضعتم كود لدمج قاعدة بيانات بمستندات وورد

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

دمج بيانات الموظفين في قاعدة البيانات عندي الى الطابعة ولكن تظهر لي رسالة خطاء :D

الكود هو :

Dim appWord As Word.Application

Set appWord = CreateObject("Word.Application")

appWord.Visible = False

Strdoc = "D:My Documentsاسم المستند.doc"

appWord.Documents.Open Strdoc

With appWord.ActiveDocument.MailMerge

.Destination = wdSendToPrinter

.MailAsAttachment = False

.MailAddressFieldName = ""

.MailSubject = ""

.SuppressBlankLines = True

With .DataSource

.FirstRecord = wdDefaultFirstRecord

.LastRecord = wdDefaultLastRecord

End With

.Execute Pause:=True

End With

appWord.Quit savechanges:=False

Set appWord = Nothing

أما الخطاء فتظهر لي رسالة

Compile error

Can't find proeict or library

#2

الأخ المهاجر

ضع مرجع لميكروسوفت وورد في القاعدة .

Tools => Refrance ثم اختر ميكروسوفت وورد .

ولك تحياتي

#3

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

#4

الأخ المهاجر

ما هو السطر الذي يتم تظليله باللون الأصفر عند حدوث الخطأ .

ولك تحياتي

#5

هذا بارك الله فيكم

Private Sub أمر21_Click()

#6

الأخ المهاجر

هذا السطر ليس من الكود .

أزله وجرب .

ولك تحياتي

#7

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

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

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

#8

الأخ المهاجر

أرسل لي الملف .

ولك تحياتي

#9

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

الملف عبارة عن قاعدة بيانات كبيرة حوالي 6 ميجا;)

#10

أنسخ منها نسخة أخرى واحذف منها كل الكائنات ما عد النموذج الذي فيه الكود ثم اضغط ثم ارسلها .

ولك تحياتي

#11

ابو حمود بارك الله فيك هذا هو الملف المطوب اضغط هنا

#12

أخي ابو المهاجر

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

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

ولك تحياتي

#13

يابو حمود بارك الله فيك المستند مدموج مع الاستعلام والحقول كلها مدرجة :confused:

#14

لم يبقى لدي سوى حل واحد :( اكتب نص الرسالة التي تظهر لك .

ولسرعة الوصول إلى نص رسالة الخطأ ضع مربع نص على النموذج ثم في أول الكود السابق ضع :

On Error Goto Err_خطأ

وفي الأسفل ضع :

Err_خطأ:

[اسم مربع النص]=Err.Description

لن تظهر لك رسالة وسترى نص الرسالة في مربع النص أنسخه ثم اكتبه هنا .

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

بالمناسبة هل لديك طابعة مثبتة ؟

ولك تحياتي

هذا الموضوع مغلق.

مواضيع مشابهة