كيفية إخراج البيانات من الاكسس بصورة منظمة الي الوورد

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

و أكرر بوجود شرح له فى بداية هذا الموضوع :rolleyes:

أما إن لم ترد التعامل معه ، و تصر علي الاسلوب الحالي ، فيمكنك علي الاقل فتح الملف ووضع البيان فبهو طباعته و غلقه دون الحفظ قبل فتح ما يليه

و يبدو أنك وصلت الي ذلك

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

مع تحياتي

الف شكرا استاذ محمد

ان ارى ان فكرة جعلها كلها بالكود فى ملف واحد

وذلك لعدة اسباب منها

اختلاف الاستعلامات في البرنامج وما طرحته هو مثال فقط

اتمنى ان يتح لك وقتك تجربت ومحاولة عمل ذلك وهو ما بقي له

وعلى كل الف شكرا

فقد كنت لي خير سند

ولن استطيع ان اوفيك حقك

فبارك الله لك ورزقك من نعيمه

من رد سابق لك

يوجد اشارة مرجعية و احدة و يبدأ التحرك منها لعدد غير محدد

باستخدام ال Tab فى الوورد

عزيزي لو كان في النموذج في الوورد جدول يتسع لعشر دورات

ولدى الموظف اثنى عشر دورة بذلك سيكون هناك مشكلة للخانات

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

وفقك الله

لا أعتقد بوجود مشكلة لان الوورد عند انتهاء الجدول و ضغط tab يفتح تلقائيا سطر جديد فى الجدول

جرب و أخبرني ان لم يحدث لنبحث عن حل آخر

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

و لكن برأيي أم هذا حل لا يستحق المحاولة لأنه حل غير محترف الي حد ما، و لا أدري مدي امكانيته لأني لم أجرب و لكن يبدو لي ممكنا بإذن الله ،ـ و أريد الوصول الي حل أكثر إحترافا ليستحق المحاولة ، فهل لديك أفكار لذلك ؟؟

بارك الله فيك

نعم اخي tabتضيف سطر الى الجدول

ولكن عزيزي

لو افترضنا اننا نريد فقط اخر خمس دورات

كيف اخبره ان يذهب الى اخر خمس سجلات

next 5

هل ينفع ان اضعها مكان

next

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

و لكن برأيي أم هذا حل لا يستحق المحاولة لأنه حل غير محترف الي حد ما، و لا أدري مدي امكانيته لأني لم أجرب و لكن يبدو لي ممكنا بإذن الله ،ـ و أريد الوصول الي حل أكثر إحترافا ليستحق المحاولة ، فهل لديك أفكار لذلك ؟؟

السلام عليكم

اذا كانت المشكلة فى توفير وقت الطباعة فقط

فاعتقد أنه فى الزر الثالث فى المثال المرفق حل للمشكلة

فما يحدث هو تكوبن ملف لكل سجل و طباعته مع عدم حفظه ثم الذهاب الي الملف التالي

أرجو التجربة فقد اعددته علي عجل

Public Function CreateWordMemo2()

    

    Dim rstEmployees As New ADODB.Recordset

    Dim appWord As New Word.Application

    Dim intPages As Integer, strMessage As String



    rstEmployees.Open "coruser", _

        CurrentProject.Connection, adOpenKeyset, adLockOptimistic



 '----------------------------------------------------------

      Dim j As Integer ', k As Integer

        For j = 1 To rstEmployees.RecordCount

         With appWord

         

        .Documents.Add "C:tafog.dot"

        .Selection.GoTo wdGoToBookmark, name:="name"

        .Selection.TypeText rstEmployees!name & "   "

        '.Visible = True

        .PrintOut

        .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges, OriginalFormat:=wdWordDocument



         End With

              

            rstEmployees.MoveNext

    

        Next

 '--------------------------------------------------------------



  



End Function

sendtoword_abuwaleed_taher_4.rar

جميل جدا وبالنسبة لتحديد السجلات الاخيرة

كما شرحت في الرد قبل السابق

لطباعة آخر 3 سجلات

Public Function CreateWordMemo3()

    Dim rstEmployees As New ADODB.Recordset

    Dim appWord As New Word.Application

    Dim intPages As Integer, strMessage As String

    rstEmployees.Open "coruser", _

        CurrentProject.Connection, adOpenKeyset, adLockOptimistic

 '----------------------------------------------------------

      Dim j As Integer, k As Integer

      ' to print the last 3 only

      k = 0

      rstEmployees.MoveLast

        For j = 1 To rstEmployees.RecordCount

        k = k + 1

        If k > 3 Then Exit Function

         With appWord

        .Documents.Add "C:tafog.dot"

        .Selection.GoTo wdGoToBookmark, name:="name"

        .Selection.TypeText rstEmployees!name & "   "

        '.Visible = True

        .PrintOut

        .ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges, OriginalFormat:=wdWordDocument

         End With

            rstEmployees.MovePrevious

        Next

 '--------------------------------------------------------------

End Function

sendtoword_abuwaleed_taher_5.rar

وفقك الله

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

سأثبت الموضوع قليلا

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

مع تحياتي

ملاحظة : آخر مثال يكفي

إختصارا لوقت من سيقرأ هذا هو آخر مثال تم نشره فى هذا الموضوع

إخراج البيانات الي ملف مبني علي قالب وورد بالكود

المثال الأخير :

http://www.arabteam2000.com/vb/attachment....=&postid=121958

و فيه يتم نقل قالبي الوورد Templates الي ال C:

و يلاحظ وجود اشارات مرجعية فى القوالب لتحديد نقط البداية للكتابة Bookmarks

الطريقة الأخري

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

الشرح :

http://www.arabteam2000.com/vb/attachment....=&postid=111399

اخي محمد

الف شكر لك

هناك رسالة خطأ تضهر لو تكان هناك حقل فارغ

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

ثانيا :

كيف اجعله يحفظ مستند الورد المنشأ بأسم محدد مسبقا + تاريخ يوم الحفظ وان يضعها في مجلد جديد يقوم البرنامج بصناعته

بارك الله فيك

up

للرفع

وللاهمية القصوى السؤال الاول