فتح ملف وورد من داخل اكسس

[يونس الخطابي]

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

في المجلد المرفق قاعدة بيانات وملفين وورد

في النموذج (faaa ) يوجد زرين امر

الاول : لفتح ملف وورد الاول /  - يعمل بشكل طبيعي أي يفتح ملف الوورد المقصود

الثاني : لفتح ملف وورد الثاني/  -  لايعمل بشكل طبيعي أي انه لايفتح ملف الوورد الثاني

ياترى هل السبب لان ملف الوورد الثاني يوجد فيه ماكرو استبدال انا بحاجه ماسه له ام ان كود فتح الملف فيه خطا

ارجو مساعدتي ان امكن بفتح ملف الوورد الثاني  وجزاكم الله خير

DAAOE.rar

[jjafferr]

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

 

اخي يونس ، اطلعت على ملفي الوورد ، ورأيت بأنك ترسل بيانات له من الاكسس.

سؤال: لماذا تعمل هذا في الوورد ، لماذا لا تستعمل تقرير الاكسس ليقوم بالعمل كاملا ، واذا اردت النتيجة في ملف وورد ، فيمكنك التصدير لملف rtf. والذي يقرأه وورد !!

 

اما الجواب على سؤالك: لماذا لا ينفتح الملف الثاني ، فكما كتبت انت ، لأن به ماكرو 🙂

 

جعفر

[يونس الخطابي]

اشكرك اخي العزيز جعفر المحترم على سرعة الاجابه  جعل الله ذلك في ميزان حسناتك

سؤال: لماذا تعمل هذا في الوورد ، لماذا لا تستعمل تقرير الاكسس ليقوم بالعمل كاملا ، واذا اردت النتيجة في ملف وورد ، فيمكنك التصدير لملف rtf. والذي يقرأه وورد !!

اخي لا اعرف كيف يتم ذلك .

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

[د.كاف يار]

خطأ في صيغة ملف الوورد

استبدل الكود بالتالي في ازرار فتح الملف الثاني و سيعمل بدون مشكلات

Dim X As Object
On Error Resume Next
Set X = CreateObject("Word.Application")

X.Documents.Open CurrentProject.Path & "\althane.doc"
X.Visible = True
X.Activate

X.ActiveDocument.Bookmarks("Idd1").Select
X.Selection.InsertAfter Me.Idd.Value

 

[jjafferr]

ماهي البيانات التي تريدها ان تظهر في كل صفحة :

1. يعني هل البيانات موجودة في قاعدة البيانات ، وماهي الحقول ،
2. وكيف تقرر انك تريد تطبع لفلان او فلان ،
3. وهل تطبع الورقة التي بها البيانات ، او تريد ارسال ملف وورد/pdf لمكان ما ؟؟

 

يمكنك ارفاق صورة من التقرير/ التقارير ، حتى نعرف التنسيق المطلوب.

 

جعفر

[يونس الخطابي]

الاستاذ الفاضل / د كاف يار / هو المطلوب وفقك الله وجعل ذلك في ميزان حسناتك . وبلهجتنا اقول ( دومك تكدر عالطيبات انشاء الله)

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

جواب السؤال الاول/المعلومات موجوده في ملف وورد يتكون من عدة صفحات  اما قاعدة البيانات فقط تتضمن الكلمات التي تكررت في ملف الوورد ونرغب باستبدالها 

جواب السؤال الثاني  / من قاعدة البيانات نختار الاسم الذي نريد طباعة تقرير له ونضع علامة صح في الخليه ( اظهار) ثم نفتح ملف الوورد ومن الاعلى الوظائف الاضافيه ونشغل الماكروا فيتم استبدال كل الكلمات التي نريد استبدالها

جواب السؤال الثالث / نعم نقوم بطباعة ملف الوورد بعد ان تم استبدال الكلمات المطلوبه فيه .

جواب السؤال الرابع / تعذر علي ارفاق التقرير  

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

اكرر / لاتحرمنا من طلتك . تحياتي لك

 

[jjafferr]

تفضل ، الاكسس يعمل كل شيء وبدون تدخل الوورد 🙂

 

هذا النموذج ، يمكنك ادخال البيانات ، والطباعة او معاينة التقرير

.

وهذا التقرير تراه بزر "معاينة التقرير" ويمكنك طباعته ، او تطبعه مباشرة من زر "طباعة التقرير" ، من النموذج

.

جعفر

1461.accdb.zip

[يونس الخطابي]

شكرا جزيلا لك اخي العزيز جعفر المحترم وفيت وكفيت جزاك الله عنا خير الجزاء لاني استفدت كثيرا من التقرير الذي صممته . اتعبتك معي . تحياتي لك

 

[jjafferr]

حياك الله 🙂

 

السؤال التالي:

على اي اساس تطبع هذه القائمة في هذا اليوم بالذات ، ما هو السبب او المعيار ؟

القصد ، انه ممكن عن طريق احد الحقول او حقل جديد ممكن نجعل جميع الاسماء يتم طباعتها مرة واحد بدل ان تبحث عن الاسم ثم تطبعه ، مثلا:

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

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

 

جعفر