اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود تجاهل رسائل الاستعلامات الاجرائية


الردود الموصى بها

اخواني اعضاء المنتدي

هل بالامكان افادتي عن الكود الذي يقوم بإخفاء الرسائل الخاصة بالاستعلامات الجرائية "الحاق, حذف , تحديث" فانا اريد اخفاءها عن طريق الكود وليس عن طريق الخيارات وقد قمت بتجربة الامر Echo بدون فائدة ... مع الشكر لكم جميعا..

  • Thanks 1
رابط هذا التعليق
شارك

  • 5 months later...

طبق ما ذكره الأستاذ أمير عاطف .

ويمكن أن تضع ما تريد من الرسائل باستخدام عبارة

msgbox فمثلا يمكن كتابة السطر التالي بعد سطر تجاهل رسائل الاستعلامات وقبل تشغيل الاستعلام

MsgBox "انتبه أنت على وشك نقل البيانات هل تريد نقلها الآن", , "تنبيه"

وطريقة كتابة الرسائل عموما هي كما يلي:

أولا كتابة msgbox تم القوسين الصغيرين " ثم اكتب العبارة التي تريد خروجها في الرسالة وتغلقها بالقوسين الصغيرين . أي أن العبارة محصورة بين الأقواس الصغيرة .

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

إذا كنت لا تحتاج هذه فاضغط حرف الواو مرة أخرى حتى تختفي .

يمكنك الآن كتابة نص آخر بين قوسين صغيرين لظهوره كعنوان للرسالة على الشريط الأزرق

وهذا أيضا حسب الرغبة حيث يمكنك تجاهلها إن كنت لا تريدها

رابط هذا التعليق
شارك

  • 2 weeks later...

هل أستطيع أن أمنع رسايل التأكيد ! يعني لما أعمل مثلا أستعلام ألحقي بتظهر لي رسالة تقول أنت على وشك تشغيل أستعلام ألحاقي مما يؤدي الى تحديث بياناتك . نعم أو لا أو ألغاء . أنا مش عايزة كذه . عايزة مثلا نفذ بدون ذي الرسالة :lol: ... ممكن ! وكيف !

رابط هذا التعليق
شارك

ممكن ذلك عن طريق خاصية قاعدة البيانات في شريط الأدوات:

1 خيارات

2 تخصيص

3 تحرير و بحث

4 تجدين خانات تأكيد أزيلي علامات صح حسب رغبتك.

أظن أن هذا حلا و يمكن أن يتم ذلك عن طريق الكود.

رابط هذا التعليق
شارك

وإذا كنت تفتحين الإستعلام بواسطة زر أمر فظعي الكود التالي في حدث عند النقر للزر

الكود التالي استخدميه إذا كنت تريدين استبدال الرسائل برسائل خاصة بك

        DoCmd.SetWarnings = False
    
    If MsgBox(" الرسالة التي تريدينها أن تظهر ", vbMsgBoxRight + vbYesNo + vbDefaultButton2, "") = vbYes Then
        DoCmd.OpenQuery "أكتبي هنااسم الاستعلام"
        DoCmd.SetWarnings = True
   Else
    MsgBox "الرسالة التي تريدينها أن تظهرعند التراجع عن النسخ ", vbMsgBoxRight, ""
   
    End If
الكود التالي بدون ظهور أي رسائل
        DoCmd.SetWarnings = False
    
        DoCmd.OpenQuery "أكتبي هنااسم الاستعلام"
        DoCmd.SetWarnings = True

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information