طلب الغاء رسالة عند فتح مستند word

[عبد الله الثبيتي]

الأخوة الكرام

السلام عليكم وكل عام وأنتم بخير

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

آمل اعطائي الكود الذي يقوم باختيار نعم اوتو ماتيك دون تدخل المستخدم للرساله أعلاه

كما آمل اعطائي كود عدم الحفظ عند الخروج من المستند عند الاغلاق

ودمتم بخير

[برقش]

أخي عبد الله

لدى مايكروسوفت سبب وجيه لإضافة هذه الرسالة، فهي لحماية المستخدم من تشغيل أوامر SQL مضرّة دون أن يعرف. على كل حال، تجد الشرح في هذه الصفحة الإنجليزية من مايكروسوفت:

http://support.microsoft.com/kb/825765

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

http://support.microsoft.com/?scid=kb;ar;8...mp;x=12&y=7

وهناك تجد الإرشادات لمنع ظهور الرسالة (مع أنه لا يُنصح به) من خلال إجراء تعديلات في الريجستري.

أما بالنسبة لسؤالك الثاني فبما أني لا أعرف بالماكرو فقد وجدت لك هذا الكود على الإنترنت الذي يغلق المستند (لا برنامج الوورد):

Sub CloseMyFile()

ActiveDocument.Close (DoNotSaveChanges)

End Sub

وهو من هذه الصفحة:

http://help.lockergnome.com/office/Close-S...pict936925.html

تم تعديل ديسمبر 15, 2008 بواسطه برقش

[عبد الله الثبيتي]

الاخ الكريم / برقش

السلام عليكم

بالنسبة لكود الاغلاق بدون حفظ فقد قمت بوضعه في حدث عند الاغلاق كما يلي :

Private Sub Document_Close()
ActiveDocument.Close (DoNotSaveChanges)
End Sub 

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

Private Sub Document_Close()
 SendKeys "{tab}"
 SendKeys "{tab}"
 SendKeys "{enter}"
End Sub
 

لكن المشكلة حاولت تطبيق الكود على رسالة تنبيه تشغيل أمر sql عند فتح المستند ولم تفلح المحاولات حتى الان

آمل من لديه خلفية في تطبيق نفس الفكرة برمجيا لنقل الاختيار الى زر موافق ثم تفعيل الضغط على الزر برمجيا أن يوافيني بالطريقه هنا

حفظك المولى ودمت بخير

تم تعديل ديسمبر 15, 2008 بواسطه عبد الله الثبيتي

[محمد طاهر عرفه]

قمت بتنفيذ الحل المشار اليه فى رد الأخ برقش - الجزء الخاص بالوورد 2003

و عمل معي بنجاح

من قائمة

Start

Run

اكتب

Regedit

ثم اتبع التعليمات الاتية

Word 2003
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options 

"SQLSecurityCheck" = dword:00000000
بدء تشغيل محرر التسجيل.
موقع ومن ثم انقر فوق مفتاح التسجيل التالي:
HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options
انقر فوق تحرير , وأشر إلى جديد ثم ثم انقر فوق قيمة DWORD .
تحت الاسم , اكتب:
SQLSecurityCheck 
انقر نقراً مزدوجاً فوق SQLSecurityCheck .
في المربع بيانات القيمة , اكتب: 
00000000 
انقر فوق موافق .

و ل 2007 توجد تعليمات اخري فى نفس الصفحة المشار اليها

الصورة بعد التنفيذ

[عبد الله الثبيتي]

استاذي الأخ / محمد طاهر

السلام عليكم

لقد أمسكتموني طرف الخيط انت والأخ برقش في صياغة الحل برمجيا

بما أنني سوف افتح ملف الوورد من داخل قاعدة بيانات الاكسيس فسوف تكون الإضافة في الريجستري من الاكسيس وحذف ماتم اضافته في الريجستري من اغلاق مستند الوورد بذلك يكون كود اضافة ما أشرتما اليه كما يلي :

Dim WSHShell
Dim obWrd As Object
Dim strFilePath
Set WSHShell = CreateObject("WScript.Shell")
'لتخفيض مستوى أمان الماكرو في الوورد
WSHShell.regWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\WORD\Security\level", 1, "REG_DWORD"
'لإضافة SQLSecurityCheck الى الريجستري واعطائه القيمة 0
WSHShell.regWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options\SQLSecurityCheck", 0, "REG_DWORD"
'فتح ملف الوورد الموجود في مجلد قاعدة البيانات
strFilePath = CurrentProject.Path & "\NAMEDOCUMENT.Doc"
  Set obWrd = CreateObject("Word.Application")
  obWrd.Documents.Open strFilePath
  obWrd.Visible = True
  Set obWrd = Nothing
  OpenDoc = True

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

'ايقاف رسالة عدم وجودSQLSecurityCheck في حالة عدم وجوده
On Error Resume Next
Set a = CreateObject("Wscript.Shell")
'يقوم بحذف "SQLSecurityCheck" المضاف الى الريجستري عند فتحه من الاكسيس
a.RegDelete ("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Options\SQLSecurityCheck")
'للخروج بدون حفظ التغييرات في المستند وهو يقوم بالاجابه على رساله حفظ التغييرات لا
 SendKeys "{tab}": SendKeys "{tab}": SendKeys "{enter}"
'يقوم بتغيير الأمان الى المستوى 3 حيث تم وضعه على المستوى
a.regWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\11.0\WORD\Security\level", 3, "REG_DWORD"

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

officena.rar

تم تعديل ديسمبر 17, 2008 بواسطه عبد الله الثبيتي

[nazem]

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

اشكرك على شرح ولكن ممكن تعطينا

مثال اوضح لنا

وخاصة عند استخدام الاستعلام في اكسس

مثلا استعلام اصق واستعلام الاضافة

دائما تعطينا رسالة كيف ممكن ان نلغي هذه الرسالة

وشكرا

[محمد طاهر عرفه]

مثال رائع و حل ممتاز جداً

و الشكر موصول للأخ برقش من دلنا على الطريقة

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

وصلة للموضوع الى قسم الاكسيس

http://www.officena.net/ib/index.php?showtopic=26374

الأخ ناظم

يرجي مراجعة هذا الموضوع فى قسم الاكسيس و طرج اية استفسارات اضافية بهذا الخصوص فى قسم الاكسيس

http://www.officena.net/ib/index.php?showt...;ئل

و بدون كود

http://www.officena.net/ib/index.php?showt...;ئل

[يوسف أحمد]

الاخ عبد الله الثبيتي

الاخ برقش

الاستاذ محمد طاهر

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

فعلاً موضوع مفيد جداً

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

وحبذا لو يتم اخذ القيمة الحالية ( السجل الحالي ) لنتمكن من الاستفادة القصوى من قوة التنسيقات في مستندات الوورد عوضاً عن تقارير الاكسس

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