|و| نسخ سجلات مختاره من نموذج الى الوورد

[rawya]

السلام عليكم ورحمة الله ..

تحياتي ...

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

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

و جزاكم الله خيراً

[الدكتور خضر الرجبي]

السلام عليكم

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

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

الطريقة الأولى وهي العادية:

1. في الجدول Ctrl+A لتحديد كل السجلات التي في الجدول

2. ثم Ctrl+C لنسخ المحددة إلى الحافظة.

3. في الوورد Ctrl+V ويتم وضع الجدول في وورد منسقا تلقائيا.

الطريقة الثانية بواسطة نشر التقرير بواسطة وورد وهي كما يلي:

1. في أكسيس ننشأ تقريرا مبنيا على الجدول المراد نسخه.

2. في وضع العرض للتقرير نختار Publish it with Microsoft Office Word

3. يتحول التقرير إلى وورد وفي وورد

4. نحدد الكل Ctrl+A

5. نختار Table--> Convert --> Text to Table

مع الاحترام

[rawya]

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

تحياتي ..

اشكرك اخي الفاضل واعتذر لاني لم اوضح ما اريد بالتحديد

حقيقة فاني ارغب بعمل كل هذا عن طريق كود موجود على زر معين على نموذج .. وقد بحثت و حاولت كثيراً وافضل ما استطعت التوصل اليه هو الكود التالي

DoCmd.OpenTable "myTbl"
DoCmd.SelectObject acTable, "myTbl"
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

لكن هنا يتم فتح الجدول و عرضه في حين اريد ان يتم كل شي بشكل مخفي ، المشكلة الاخرى هو انه يتم نقل اسم الجدول واسماء الحقول بالاضافة الى حقول الجدول .

أرجو ان اجد عندكم حلاً .. فاني شارفت على اليأس :)

[سهل احمد العريشي]

بسم الله الرحمن الرحيم

أختي العزيزه من بعد أذن الأخ خضر

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

أخيكم سهل أحمد ( ابو نعيم )

تم تعديل مارس 18, 2005 بواسطه سهل احمد العريشي

[rawya]

مرحبا اخ سهل ..

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

ومما يريد المستخدم "to make his life easy " ان ينسخ بعض السجلات التي يختارها في النموذج ويضيفها كحقول في تقرير يكتبه على برنامج الوورد مرقمة بترتيب اختياره لها .

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

وهذا هو الكود

DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

تقبلوا تحياتي

[الدكتور خضر الرجبي]

السلام عليكم

اختي راوية ، بارك الله فيك

جربي ما يلي ولا تيأسي :

DoCmd.OutputTo acTable, "mytbl", acFormatTXT, "c:\rawya.doc", False

مع الاحترام

[rawya]

جربت الكود لكن لم ينقل اي شيء :)

[الدكتور خضر الرجبي]

السلام عليكم

مش معقول ، إذا كان الجدول mytbl موجود في القاعدة التي جربت عليها ووضعت الكود في حدث عند النقر لز أمر فإنه سوف يعمل نسخة عن الجدول ويسميها rawya.doc ويضع الملف في \:c ولا تنسي أختي راوية أنك أنت من طلبت أن يتم كل شيء بالخفاء فالبتأكيد ستلاحظين وكأنه لم يحدث شيء ولكن بالفعل حدث ولكن بشكل مخفي ، أليس هذا ما تريدنه أم أنني لم أفهمك ؟

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

مع الاحترام

تم تعديل مارس 18, 2005 بواسطه خضر الرجبي

[rawya]

آسفه أخي .. ولكني لم انتبه انه تم انشاء ملف جديد فألتبس علي الأمر

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

لحل المشكله سأقوم بالتالي

- اضيف جدول للاختيارات به رقم تلقائي و حقل القيمة

- عند النقر مرتين على الحقل في النموذج ينتقل الى الجدول المذكور

- عند النقر على زر "نسخ" تنتقل هذه القيم التي تم اختيارها والمحفوظة بالجدول إلى الذاكرة

طبعا مسألة النسخ هذه هي اللي مدوختني و محيرتني ..لاني مهما فكرت بالتحايل فدائما يتم نسخ الهيدرز او أسماء الحقول أيضا وهو ما لا اتمناه أو بالأحرى " لا يتمناه المستخدم "

مع شكري الجزيل لكم جميعا .. وجزاكم الله كل الخير

[الدكتور خضر الرجبي]

السلام عليكم

الأخت راوية ، بارك الله فيك

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

راوية = مسائل صعبة

الأن وضح السيناريو تماماً ، سأحاول إيجاد حل (أن شاء الله)

مع الاحترام

[rudwan]

السلام عليكم

أخي خضر بارك الله فيك

الأخت راويه متميزه في عالم البرمجه , و أنا أعرف مشاركاتها السابقه , فهي لاتطرح سؤالها

الا عندما يستعصي عليها الحل .

و علينا جميعا أن نقابل اجتهادها بما نستطيع أن نقدم لها من حلول تفيدنا و تفيدها بنفس الوقت

و أنت قدها و قدود :(

[الدكتور خضر الرجبي]

السلام عليكم

أختي راوية وأخي رضوان تحياتي لكم.

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

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

2. يجب تغيير استراتيجية الحل وهناك استراتيجية ستكون ناجحة بالتأكيد وهي أن تقوم الاخت راوية بتعبئة المعلومات التي يختارها المستخدم (المدلل) في مربع نص خفي في النموذج وعندما يضغط على زر النسخ يتم تحويل التركيز لذلك المربع والنسخ منه.

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

مع الاحترام والتقدير

تم تعديل مارس 19, 2005 بواسطه خضر الرجبي

[rudwan]

مشكور أخي خضر على جهدك المتميز

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

و لكن طالما أنك جربت ووصلت الى هذه النتيجه فهذا بحد ذاته جهد مشكور .

و المهم هو التجريب مهما كانت طريقة الحل المقترحه

[rawya]

السلام عليكم ورحمة الله ..

الشكر موصول للإخوة خضر ورضوان

جزاكم الله خير على تعاونكم وصبركم على طلباتي التي لا تنتهي ..

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

وهذا هو الكود على زر "النسخ"

Me.selectedQry.Requery
Me.selectedQry.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

حيث selectedQry هو النموذج الفرعي و احتجت لاعادة طلب البيانات Requery لان الاختيار يتم كما ذكرت في نفس النموذج.

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

تحياتي الخالصة ......

[الدكتور خضر الرجبي]

السلام عليكم

أختي راوية ، ما شاء الله عليك

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

ثانياً : بما أنك تمتلكين هذه القدرات البرمجية والمنطق والحس البرمجي العميق (فقد أعجبتني طريقة تفكيرك ) فهلا تواصلت مع بعض الأخوان والأخوات أكثر وهكذا تساعدينا في حل المسائل وتطورين مهاراتك بالبرمجة.

ثالثاً: سيكون هذا دافعا قويا ومحفزا لترقيتك في القسم تدريجا وربما الأشراف :d .

وأذكرك بإحدى مداخلاتك التي قرأت معظمها

وان كانت الاسئلة المطروحة قد اثارت بي "صدمة" كمبتدئة ولكن هذا يؤكد على ضرورة تكاتف الخبراء .. و التعاون مطلوب بأي حال خصوصاً ان شريحة مستخدمي الاكسس تبدو لي كبيرة .. في الوقت الذي يتطلع فيه بعض المستخدمين إلى تحكم أكبر وانتاج برامج أكثر فعالية و سهولة للمستخدم هذا بالاضافة الى وجود بعض المشكلات في الاكسس كما لاحظت من خلال المنتدى

فهذه الدعوة للتكاتف والتواصل كانت منك إبتداءً .

مع احترامي وتفهمي الكامل أن لكل شخص في النهاية ظروفه الخاصة به والتي هي أحيانا أقوى من تطلعاته ورغباته.

وشكرا لك

مع الاحترام

[rawya]

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

اخواني الكرام ..

اولا اشكركم جدا جدا على تشجيعكم وتواصلكم

وثانياً فقد تمكنت اخييييييييراً والحمدلله من حل المشكلة كما هو مطلوب تماماً :(

والطريقة هي كالتالي :

- فتح وثيقة وورد جديدة

- ادراج جدول به عمودين وعدد من الصفوف مساوٍ لعدد الحقول في الجدول

- اضافة القيم للجدول

- نسخ الجدول الى الذاكرة

- اغلاق وثيقة الوورد

ارجو ان تتاح لي فرصة لادراج المثال في المنتدى .. وجزاكم الله خيراً

copyToWord.rar

تم تعديل مايو 5, 2005 بواسطه rudwan