كيفية تصدير حقول أكسس للوورد

[حامل المسك]

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

وأسعدكم الله ووفقكم ،،

عملت برنامج بالاستفادة مما طُرح في هذا المنتدى وكذلك من توجيهات الزملاء الكرام في طريقة إرسال الحقول لبرنامج الوورد،،

وحاولت التطبيق لكن ظهر لي رسالة تبين وجود مشكلة كما هو مرفق في المثال،،

وعلى ذلك أرغب في أرسال حقول الأكسس إلى ملف وورد علما بأن نموذج الأكسس يشمل على نموذج رئيس والآخر فرعي والفرعي عبارة عن نماذج مستمرة،،

بمعنى أريد تصدير الحقل asX , azX من الرئيسي و Bc و Bd من الفرعي إلى الوورد..

دمتم بخير،،

 

تصدير للوورد.rarFetching info...

[أ / محمد صالح]

المشكلة في عدم وجود الدالة OpenClsword

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

وهذا ملفك بعد إضافة موديول التصدير إلى وورد

 

إرسال الحقول للوورد.accdbFetching info...

[حامل المسك]

جهد متميز أخي الكريم،،

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

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

t2.rarFetching info...

[أ / محمد صالح]

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

[صالح حمادي]

السلام عليكم

مشاركة مع أستاذنا الغالي محمد صالح حفظه الله

هذين الموضوعين فيهما طلب بإذن الله

 

[حامل المسك]

  في 29‏/6‏/2021 at 10:09, أ / محمد صالح said:

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

Expand  

سلمت راعك الله مرفق المثال

 

  في 29‏/6‏/2021 at 11:07, صالح حمادي said:

السلام عليكم

مشاركة مع أستاذنا الغالي محمد صالح حفظه الله

هذين الموضوعين فيهما طلب بإذن الله

 

Expand  

سلمت رعاك الله رجعت إليها لكن لم أصل للمطلوب ونسأل الله أن يهدنا إليه..

نموذج.docxFetching info...

[أ / محمد صالح]

تفضل أخي الكريم

تم إنشاء bookmarks بنفس أسماء الحقول في ملف الوورد

تم تعديل اسم الحقل bzX في النموذج كان اسمه bz فقط

تم الدمج بين الكودين لكتابة أكثر من سطر بعد العلامة المرجعية بدلالة استعلام

 

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

‏‏إرسال الحقول للوورد bookmarks.rarFetching info...

[حامل المسك]

  في 29‏/6‏/2021 at 14:37, أ / محمد صالح said:

تفضل أخي الكريم

تم إنشاء bookmarks بنفس أسماء الحقول في ملف الوورد

تم تعديل اسم الحقل bzX في النموذج كان اسمه bz فقط

تم الدمج بين الكودين لكتابة أكثر من سطر بعد العلامة المرجعية بدلالة استعلام

 

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

‏‏إرسال الحقول للوورد bookmarks.rar 53.01 kB · 1 download

Expand  

رحم الله أبا رباك وبطنا حملك وبارك لك فيما رزقك من ذرية وعلم ومال وفرج هم وغمك وأنار دربك دنيا وآخرة،،

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

تم تعديل يونيو 29, 2021 بواسطه حامل المسك

[أ / محمد صالح]

المطلوب الأخير غير واضح لي بصورة كافية

إذا كنت تقصد إغلاق مستند الوورد بعد الكتابة فيه وإغلاق الوورد كله فهذا سهل يمكنك تغيير الإجراء الخاص بالزر إلى ما يلي:

Dim X As Object, db  As DAO.Database, rs As DAO.Recordset, bc As String, bd As String
Set X = CreateObject("Word.Application")
X.Documents.Open CurrentProject.Path & "\asdf.docx"
X.Visible = True
X.ActiveDocument.Bookmarks("asx").Select
X.selection.InsertAfter AsX
X.ActiveDocument.Bookmarks("azx").Select
X.selection.InsertAfter azX

Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT TTa.asX, TTa.azX, TTB.Bc, TTB.Bd FROM TTa INNER JOIN TTB ON TTa.ÇáãÚÑÝ = TTB.Ba WHERE TTa.ÇáãÚÑÝ= " & ÇáãÚÑÝ & ";", dbOpenSnapshot)
With rs
.MoveLast
.MoveFirst
For I = 1 To .RecordCount
    bc = bc & IIf(bc = "", "", vbCrLf) & Nz(rs.Fields(2).Value, "")
    bd = bd & IIf(bd = "", "", vbCrLf) & Nz(rs.Fields(3).Value, "")
    .MoveNext
Next I
End With
Set rs = nothing
Set db = nothing

X.ActiveDocument.Bookmarks("bc").Select
X.selection.InsertAfter bc
X.ActiveDocument.Bookmarks("bd").Select
X.selection.InsertAfter bd

X.ActiveDocument.Close savechanges:=True
X.Quit
Set X = Nothing

MsgBox "done"

ما معنى مع ملاحظة أن ملف الوورد سيكون للقراءة فقط؟؟؟؟؟

الملفات التي للقراءة فقط لا يمكن الكتابة فيها سواء يدويا أو بالكود

[حامل المسك]

حياك الله أخي وأعتذر أثقلت عليك،،

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

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

أو تأتي رسالة بأن الملف قيد العمل ويتطلب إغلاقه..

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

سلمك الله ورعاك ومن كل سوء حماك..

تجربة.rarFetching info...

[kanory]

مشاركة مع الاساتذة الكرام بارك الله فيهم ...

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

[حامل المسك]

  في 29‏/6‏/2021 at 19:10, kanory said:

مشاركة مع الاساتذة الكرام بارك الله فيهم ...

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

Expand  

نعم سلمك الله ورعاك هذا الذي سيتم بإذن الله لكن ظهر مشكلة في الكود ولم يعمل لأني عدلت بعض الأشياء 😢

[د.كاف يار]

تفضل هذا التعديل

 

تصدير للوورد.zipFetching info...

[حامل المسك]

  في 30‏/6‏/2021 at 01:47, د.كاف يار said:

تفضل هذا التعديل

 

تصدير للوورد.zip 114.35 kB · 1 download

Expand  

فكرة رائعة في حفظ الملف،، لكن المشكلة في النماذج المستمرة لم تظهر كاملة من النموذج الفرعي

  في 29‏/6‏/2021 at 14:37, أ / محمد صالح said:

تفضل أخي الكريم

تم إنشاء bookmarks بنفس أسماء الحقول في ملف الوورد

تم تعديل اسم الحقل bzX في النموذج كان اسمه bz فقط

تم الدمج بين الكودين لكتابة أكثر من سطر بعد العلامة المرجعية بدلالة استعلام

 

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

‏‏إرسال الحقول للوورد bookmarks.rar 53.01 kB · 4 downloads

Expand  

وفي هذا الكود ظهرت النماذج المستمرة كاملة وفق المطلوب

ولكن عندما عدلت على البرنامج لدي لم تضبط معي

  في 29‏/6‏/2021 at 18:44, حامل المسك said:

حياك الله أخي وأعتذر أثقلت عليك،،

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

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

أو تأتي رسالة بأن الملف قيد العمل ويتطلب إغلاقه..

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

سلمك الله ورعاك ومن كل سوء حماك..

تجربة.rar 202.87 kB · 0 downloads

Expand  

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

[أ / محمد صالح]

ما أجمل التعاون من أجل قضاء حوائج بعضنا البعض

دمتم بخير أحبابي المشاركين

وتفضل أخي الكريم

هذا هو ملفك حسب الكود السابق لي

تم إضافة أمر حفظ الملف باسم هذا الاسم هو رقم المعرف وتاريخ ووقت التصدير

وعدم حفظ الملف الأصلي مع إغلاقه

‏‏إرسال الحقول للوورد bookmarks.rarFetching info...

[د.كاف يار]

  في 30‏/6‏/2021 at 02:11, حامل المسك said:

فكرة رائعة في حفظ الملف،، لكن المشكلة في النماذج المستمرة لم تظهر كاملة من النموذج الفرعي

وفي هذا الكود ظهرت النماذج المستمرة كاملة وفق المطلوب

ولكن عندما عدلت على البرنامج لدي لم تضبط معي

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

Expand  

 

تفضل هذا تعديلي 

 

2تصدير للوورد.zipFetching info...

[حامل المسك]

الله يعطيكم العافية ياكرام ويبارك جهودكم،،

ما شاء الله تبارك الله ، زادكم الله من واسع فضله،،

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

فأرفقت لكم جزئية من البرنامج الأصلي لأستنير بتعديلاتكم مع ملاحظة عدم وجود جدول في ملف الوورد،،

مع شديد اعتذاري أني أخذت من وقتكم الثمين، لكن لا أخفيكم سرا من أمس أحاول تنزيل الكود لكن 😢

برنامجي2.rarFetching info...

[أ / محمد صالح]

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

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

والاستعلام في الكود هو هذه السطور

Set rs = CurrentDb.OpenRecordset("SELECT TTa.asX, TTa.azX, TTB.Bc, TTB.Bd FROM TTa INNER JOIN TTB ON TTa.المعرف = TTB.Ba WHERE TTa.المعرف= " & المعرف & ";", dbOpenSnapshot)
With rs
.MoveLast
.MoveFirst
For I = 1 To .RecordCount
    bc = bc & IIf(bc = "", "", vbCrLf) & Nz(rs.Fields(2).Value, "")
    bd = bd & IIf(bd = "", "", vbCrLf) & Nz(rs.Fields(3).Value, "")
    .MoveNext
Next I
End With
Set rs = Nothing

طبعا مع تغيير جملة select لما يتناسب مع النموذج الفرعي الجديد

[حامل المسك]

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

[حامل المسك]

أ. محمد صالح،،

د. كاف يار،،

كفيتم ووفيتم ،، 

بحمد الله تمت التعديلات وعملت الاستعلامات.. ووصلنا للمطلوب وفق توجيهاتكم الرشيدة السديدة،،

بارك الله لكم في علمكم وعملكم ووفقكم لكل خير،،

شكرا لكم،، ثم شكرا لكم ،، 

[حامل المسك]

  في 30‏/6‏/2021 at 01:47, د.كاف يار said:

تفضل هذا التعديل

 

Expand  

وفقكم الله ورعاكم،،

إذا ظهرت مثل هذه المشكلة فأين الخلل؟

 

تم تعديل أكتوبر 3, 2021 بواسطه حامل المسك

[حامل المسك]

[د.كاف يار]

فقط قم بإضافة المكتبة

[حامل المسك]

سلمت،، رائع جدا جدا،،

الكود يعمل على إضافة صف جديد في الجدول الذي في الوورد، ويبقي صف للعنوان،،

إذا كنت أرغب في أن يكون الإداراج في الوورد من أول صف بمعنى لايوجد في الجدول صف عنوان أريد وضع المعلومات مباشرة،،

فهل بالإمكان ذلك سواء بحذف الصف الأول من الجدول أو نحوه،،

[حامل المسك]

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

بمعنى لا أريد أن يكون في الجدول صف للعنوان

 Set rs = CurrentDb.OpenRecordset("SELECT * FROM BRation where noob=" & Me.noa)
    
    If Not rs.BOF And Not rs.EOF Then
        rs.MoveFirst
        While (Not rs.EOF)
        Set oTable = Wapp.ActiveDocument.Tables(1) 'تحديد الجدول
         Set NewRow = oTable.Rows.Add '  اضافة سطر جديد للجدول
        
        NewRow.Cells(1).Range.Text = Nz(rs.Fields(4), "-")
       ' NewRow.Cells(2).Range.Text = Nz(rs.Fields(4), "فارغ")
       ' NewRow.Cells(3).Range.Text = Nz(rs.Fields(2), "-")
       ' NewRow.Cells(4).Range.Text = Nz(rs.Fields(3), "-")
    
         
            rs.MoveNext
        Wend
    End If
    rs.Close