*كود* كيف استبد الرسائل الأفتراضية

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

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

و بذلك بمعرفة رقم الخطأ يمكن تغيير الرسالة كالتالي

 If Err.Number = 3204 Then
    MsgBox " A database with the same name exists in the same location ! ", 64, "Duplicate Backup Name"

  ElseIf Err.Number = 3356 Then
    MsgBox "Another user is Currently using the Database" + Chr(10) + Chr(13) + "Wait Until No Other Users are Using the Database !", 16, " Other Users WArning Message "
   'MsgBox Err.Description

و قد قام أحد الاخوة سابقا بنشر قاعدة بها أرقام الاخطاء كلها أو معظمها

أو لمعرفة رقم الخطأ :

On Error GoTo errsub 
 errsub:
MsgBox Str(Err.Number) + Err.Description

يا سلام عيك يا اخ مصراوي

كما عهدناكم لا هوادة في الردود سريع ومباشر الله يعطيك ألف عافية يعجبني ردك السريع ولو لم توفق في الإجابة 100% 0

أخي الفاضل أصبت فهذا الكود أو الأكواد خاصة بالأخطاء ولكن الرسائل التي تضهر عند ما يتم حذف سجل أو إلحاق سجل بواسطة الإستعلامات أو لغة سي كيو إل (SQL ) ليست رسائل أخطأ وإنما رسائل إعلامية أو كما يسمونها " رسائل تنبيهيه وتحذيرية " وقد حاولت وضع عبارة أو الكود التالي:

 Debug.Print "dataErr="; DataErr

في حدث عند الخطأ على النموذج ثم ضغط مفتاحي ( Ctrl + G ) بعد ظهور الرسالة لمعرفة رقم الخطأ ولكن ظهر لي بأن ذلك ليس خطأ وإنما رسائل تنبيهيه أو تحذيرية 0

شاكراً لك ولا نستغني أن تبحثوا في قواميسكم الغزيرة فربما تجدون الحل وتفيدوننا به بارك الله فيك0

أخي مصراوي : أنا من كان قد نشر قاعدة بيانات أخطاء أكسيس .

بالنسبة لإيقاف رسائل أكسيس فأنا أوقفها بالكود التالي :

 RES = MsgBox("اضغط موافق ليتم حفظ الأصناف المدخلة  ؟ ", 49, "رسالة تبيـــه ")

    If RES = 1 Then

    DoCmd.SetWarnings False

        

    DoCmd.Close

     End If

ونأسف على التأخر بالرد .

أشرف خليل

والكود هذا يكفي لوحده

DoCmd.SetWarnings False

والله ما قصرتم يا شباب لكن رسائل الحذف وإلحاق البيانات بواسطة الإستعلامات أو لغة "SQL " ليست رسائل أخطأ حتى تتعامل معها الأكواد التي كتبتمهوها 0

أخي 5060

أنا أضع هذا الكود فقط قبل أمر تشغيل استعلامات الحذف أو الإلحاق أو التحديث .

DoCmd.SetWarnings False

جربه فقط .

أشرف خليل

الأخ /أشرف

لك مني جزيل الشكر والعرفان نعم لقد أصبت فيما قدمت ولكن أعذرني يا عزيزي لا تعلم مدى تأثير تلك الرسائل وقد جربت الكود في المرة الأولى بطريقة خاطئة وإنما المرة الثانية سارت معي الأمور كما أريد 0

أكرر أعتذاري وشكري معا بارك الله فيك وزادك علماً ونور0

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

أشرف خليل

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

أما لمنع ظهور الرسائل نهائيا فأبسط طريقة لإلغائها يعني أن تتم الأمور دون ظهور تلك الرسائل هي إلغائها من مربع الحوار خيارات (أدوات => خيارات => تحرير/بحث) ثم إزل علامة صح من مربعات التدقيق تغييرات السجلات والاستعلامات الإجرائية .

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

وهذه إعادة للجزء المطلوب من نفس الموضوع :

(15) Confirm Record Changes : تغييرات السجلات

هل ترغب في ظهور رسائل للتأكيد عند حذف سجل أو عند لصق سجل أو عند قص سجل .

True لتمكين ظهور رسائل التأكيد وFalse لعدم ظهورها .

مثال لإخفاء رسائل التأكيد :

SetOption "Confirm Record Changes", False

(16) Confirm Document Deletions : حذف المستندات

عند اختيار True تظهر رسائل للتأكيد عند حذف كائن جدول أو استعلام أو نموذج أو تقرير ... الخ .

True لتمكين ظهور رسائل التأكيد وFalse لعدم ظهورها .

مثال لإخفاء رسائل التأكيد :

SetOption "Confirm Document Deletions", False

(17) Confirm Action Queries : الاستعلامات الإجرائية

وهي استعلامات الحذف والتحديث والإلحاق وإنشاء جدول .

إذا اخترت True تظهر رسائل تاكيد العملية وإذا اخترت False لا تظهر هذه الرسائل .

مثال لإخفاء رسائل التأكيد :

SetOption "Confirm Action Queries", False

وللجميع التحية

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

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

أرسلت هذا السؤال الي مندي A3 الذي ذكره الأخ أشرف قريبا فى رابط المواقع النافعة المثبت

و جاءت الاجابة مقتضبة و مختصرة و الي حد ما كافية و لم تزد علي ما قلتم

و كان السؤال و الاجابة كاتالي

mtarafa
(Stranger) أنا !!!
Sun Jan 27 04:12 PM
  Default System Meesage  
 Can we stop the default system Messages 
like "you are about to delete a record , are you sure "

Re: Default System Meesages  [re: mtarafa] Reply  


Look up Set Warnings in Access Help files. 
Also you can set the conformation of Document
 deletions, Record changes and Actions queries 
by choosing Tools/Options in Access Main Menu 
then choose the Edit/Find tab. 

HTH 
RDH 

Ricky Hicks 
Birmingham, Alabama USA

لدي إضافة بسيطة :

بالنسبة للكود

DoCmd.SetWarnings False

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

DoCmd.SetWarnings True

الإخوة الكرام .. تحية طيبة وبعد

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

لماذا لا نستخدم الـ ِADO في التخلص من الرسائل فإنها كما تعلمون تنفذ الأوامر من غير رسائل

مثال :

Dim DB as New ADODB.Conniction

Dim Sql AS String

Sql="UPDATE tblName SET UnitPrice=UnitPrice+100"

SET DB=CurrentProject.Conniction

DB.Execute Sql

اريد ان أحذف الرسالة التالية

انت على وشك الحاق صف 1/ صفوف

بمجر النقر على نعم ..... الخ

اريد ان اقوم بالحفظ من دون ظهور هذه الرسالة

فأين ا لكود السليم لذلك واين أضعه هل في خانة

حدث بعد التحديث أم ماذ

شاكرين لكم

سؤالي نفس سؤال الأخ asaz

هل أحصل على إجابة شافية ؟؟؟

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

أو عند الحدث الذي تريد

فمثلا عند أمر حذف فى زر

تضع

docmd.setwarning False

فى أول الكود

ثم

docmd.setwarning true

فى نهاية الامر لتفعيل الرسائل ثانية

أو تتركها بدون تفعيل اذا أردت

أما بالنسبة للحذف العادي

فجرب وضعها فى حدث ( عند الحذف )

الأخ أحمد

أعتقد أنه لا داعي لاستخدام ال

ِ

ado

او

dao

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

اما فى حالة مشروع أكسس ، أو خلفية سي كيو ال سيرفر فالوضع يختلف