اذهب الي المحتوي
أوفيسنا

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

قام بنشر

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

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

  • Thanks 1
  • 5 months later...
قام بنشر (معدل)

في البداية اشكرك على الرد ..... ولكن

انا لا اريد الغائه فقط .... واخفائها

انا اريد تعديله ( تعديل الرساله ) التي تظهر ... ممكن ذلك

تم تعديل بواسطه القناص
قام بنشر

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

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

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

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

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

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

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

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

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

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

  • 2 weeks later...
قام بنشر

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

قام بنشر

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

1 خيارات

2 تخصيص

3 تحرير و بحث

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

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

قام بنشر

عن طريق الكود يكون كالتالي:

في بداية الكود:

DoCmd.SetWarnings = False

في نهاية الكود:

DoCmd.SetWarnings = true

قام بنشر

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

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

        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

قام بنشر

الله يخليك ياأخ مصلح دائما سباق لوضع الحلول الله يعطيك العافيه . وياليت تشوف موضوع تكرار السجلات والله محتارة فيه :o ومتوقفه بسببه ولي هو تكرار السجلات. تحياتي :fff:

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