اخواني االاحبة :
عندي سؤال كيف استدعي بعض الاستعلامات أو بيانات واضعها في الوورد ويكون موصولا بالاستعلام ...
مثال لدي بيانات موظفين في الاكسس واريد ان اعمل رسالة بالوورد تتضمن تلك البينات ... ما عليه إلا ان يستدعي تلك البينات ويضعها في اللوورد .. ويجعل لي الخيار في البيانا التي اضعها...
وتقبلوا تحياتي...
ابو محمد
إختصارا لوقت من سيقرأ هذا هو آخر مثال تم نشره فى هذا الموضوع إخراج البيانات الي ملف مبني علي قالب وورد بالكود
http://www.arabteam2000.com/vb/attachment....=&postid=121958
و ذلك بعد كل الاضافات التي أضيفت فى نهاية المشاركات
الطريقة الأخري
الدمج البريدي فى الوورد
مرفق المثال
مشكور استاذ محمد ما قصرت واشكرك على الخدمة الطيبة .
:D
هذا المثال مأخوذ من كتاب وفيه كيفية الارسال الى ملف ورد
المشكلة التي تواجهني عند فتح القاعدة افتح نموذج Issues
ومن شريط القوائم اختر tools ومن تولز اختر
CreateWordMemo
سوف يعطيك خطأ في الكود الرجاء المساعدة في توضيح المشكلة
وفقكم الله
للرفع
للرفع
أخي الكريم/ أبو وليد
السلام عليكم ورحمة الله وبركاته
الكود ليست به مشكله ولكن يفترض أن تضع ملف ورود ( Ch14 Memo )
المرفق مع القاعدة في المسار :C
حل أخر :
أن تقوم بتغيير مسار الكود التالي ليتناسب مع موقع الملف :
C:Ch14 Memo.dot
ملاحظه :
تجد الكود في ملف الوحدة النمطية ( Miscellaneous )
لك تحياتي ،
والله الموفق .
شكرا اخي
المسار صحيح
والقاعدة مع ملف الورد في نفس المسار
هل عملت معك بشكل صحيح
للرفع
نعم الكود يعمل ، و هو رائع
Public Function CreateWordMemo()
' Open a memo in Word and insert text - used by menu command.
Dim rstEmployees As New ADODB.Recordset
Dim appWord As New Word.Application
Dim intPages As Integer, strMessage As String
' Open a recordset based on the EmployeesWithOpenIssues query.
rstEmployees.Open "EmployeesWithOpenIssues", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
' If no one has open issues, display a message and exit.
If rstEmployees.RecordCount = 0 Then
DisplayMessage "There are no open issues to announce."
Exit Function
End If
' Open a document based on the memo template, turn off spell check,
' move to the MemoToLine bookmark, and then display Word.
With appWord
'.Documents.Add "C:Ch14 Memo.dot"
.Documents.Add "D:download
نعم الكود يعمل ، و هو رائع
Public Function CreateWordMemo()
' Open a memo in Word and insert text - used by menu command.
Dim rstEmployees As New ADODB.Recordset
Dim appWord As New Word.Application
Dim intPages As Integer, strMessage As String
' Open a recordset based on the EmployeesWithOpenIssues query.
rstEmployees.Open "EmployeesWithOpenIssues", _
CurrentProject.Connection, adOpenKeyset, adLockOptimistic
' If no one has open issues, display a message and exit.
If rstEmployees.RecordCount = 0 Then
DisplayMessage "There are no open issues to announce."
Exit Function
End If
' Open a document based on the memo template, turn off spell check,
' move to the MemoToLine bookmark, and then display Word.
With appWord
'.Documents.Add "C:Ch14 Memo.dot"
.Documents.Add "D:download
الرجاء تحويل المثال ليعمل مع اكسس 2000 بشكل صحيح
وشرح الكود للاستفادة منه في اي عمل اخر
لم يعمل معي
الرجاء مساعدتي
الكود يقف مره عند Connection
ومره عند With appWord
الرجاء وضع المثال على 2000 وتجربته قبل ذلك
للحاجة القصوى اليه
للرفع
نعم الكود يعمل ، و هو رائع
رجاء من الاستاذ محمد طاهر
ان تطبق الكود على مثال جديد تحت اوفيس 2000
وتضعه هنا فانا احتاجه جدا
رجاء يا ستاذ محمد وارجوا ان تسرع بذلك
وفقك الله
بكل الطرق لم يعمل معي
أخي الكريم
المثال الاصلي هو بتنسيق 2000
و الرسائل التي تظهر لك فى الاغلب سببها المراجع
و لكن ربما لم تواجهني نفس المشكلة لان الاكس بي محمل علي جهازي
فالمراجع مختلفة ؟؟
هذه قائمة المراجع لدي
و ان لم تعمل لديك
فأرجو نشر المثال الذي حاولت فيه
حيث أن الملف أفتعامل معه بتنسيق 2000 من خلال الاكس بي
و ليس لدي اوفيس 2000 محمل حاليا
هو نفس المثال الذي وضعته في البداية ونفس المراجع
وعلما بانني حاولت في جهاز اخر محمل بالاكس بي
ولكن لا فائده
ارجو ان تعمل مثال بالكود وتحوله الى 2000
فانا بامس الحاجة
فلم اشتري الكتاب الا لهذا السبب
حسنا
سأعد المثال و أضعه بإذن الله
بارك الله فيك
المثال بعد التوضيح
بارك الله فيك اخي
لم يعمل معي الظاهر الافيس خربان يقف المؤشر عند
with appword
الف شكر حبيبنا
لقد الغيت الافيس 2000
وحملت الافيس اكس بي وعمل معي
استاذ محمد
لقد حاولت تطبيق الكود على مثال لدي
ونجح بنسبة 70% اتمنى لو تقلي واش الخطأ شرح المطلوب في المثال المرفق
المرفقات
للرفع
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
