כיצד להשתמש ב-SetOption כדי להשבית הודעות אזהרה ביישום Access

הערה

Office 365 ProPlus משנה את שמו ל--Microsoft 365 Apps עבור ארגונים. לקבלת מידע נוסף אודות שינוי זה, קרא את הודעה זו בבלוג.

מתון: מחייב מאקרו בסיסי, קידוד וכישורי יכולת פעולה הדדית.

מאמר זה חל רק על מסד נתונים של Microsoft Access (. mdb או. accdb).

סיכום

מאמר זה מראה לך כיצד להשתמש בשיטת Application. SetOption כדי להשבית הודעות אזהרה ביישום של Access.

מידע נוסף

מיקרוסופט מספקת דוגמאות תכנות להמחשה בלבד, מבלי שהאחריות מתבטאת או משתמעת. זה כולל, אך אינו מוגבל, לאחריות המשתמעת של סחירות או כושרו למטרה מסוימת. מאמר זה נכתב בהנחה שאתם מכירים את שפת התכנות המודגמת ואת הכלים המשמשים ליצירת פרוצדורות ולניפוי שגיאות. מהנדסי התמיכה של Microsoft יכולים לסייע בהסברת הפונקציונליות של הליך מסוים, אך הם לא ישנו את הדוגמאות כדי לספק פונקציונליות נוספת או לבנות פרוצדורות שיענו על דרישותיך הספציפיות. שאילתות פעולה ותהליכים אחרים הכוללים, מחיקה או שינוי של נתונים, מציגים בדרך כלל את המשתמש באזהרה שעומדים לשנות את הנתונים. עם זאת, ביישום זמן ריצה רצוי בדרך כלל להשבית את האזהרות משום שבדיקות ואמצעי זהירות מעבר לבקרת המשתמש.

באפשרותך לבצע זאת באמצעות השיטה SetWarnings של האובייקט DoCmd, אך ייתכן שתעדיף להשבית אזהרות עבור היישום כולו. לשם כך, באפשרותך להשתמש בפעולת השירות SetOption של האובייקט Application. עם זאת, אם תעשה זאת, עליך גם להפוך את האזהרות לשוב כאשר היישום ייסגר.

כדי לעשות זאת ביישום פשוט של טופס אחד, בצע את השלבים הבאים:

  1. הפעל את Access ולאחר מכן צור מסד נתונים ריק בשם TestRun.

  2. יבא את הטבלה Customers ממסד הנתונים לדוגמה Northwind. mdb.

  3. צור טופס חדש בתצוגת עיצוב ולאחר מכן הוסף תיבה משולבת לא מאוגדת למקטע הפירוט.

  4. הגדר את המאפיינים הבאים עבור התיבה המשולבת:

    Name: cboCountry
    Row Source: SELECT DISTINCT Customers.Country FROM Customers ORDER BY Customers.Country; 
    
  5. הוסף לחצן פקודה למקטע הפירוט של הטופס ושם אותו cmdDelete.

  6. הגדר את המאפיין בעת לאחר של לחצן הפקודה לשגרת האירוע הבאה:

    DoCmd. OpenQuery "מריו"

  7. סגור את עורך Visual Basic.

  8. שמור את הטופס כ-Deletecuers ולאחר מכן סגור אותו.

  9. צור שאילתה חדשה בתצוגת עיצוב ולאחר מכן הוסף את הטבלה Customers.

  10. ב-Access 2002 או ב-Access 2003, לחץ על מחק שאילתה בתפריט שאילתה .

    ב-Access 2007, לחץ על מחק בקבוצה סוג שאילתה בכרטיסיה עיצוב .

  11. גרור את הכוכבית (*) מרשימת השדות לעמודה הראשונה של רשת עיצוב השאילתה ולאחר מכן גרור את השדה Country לעמודה השניה.

  12. בשורה קריטריונים בעמודה מדינה, הקלד את הטקסט הבא:

    טפסים! ! בסדר! . אני מבין

  13. שמור את השאילתה כ-Qrydeletecuמסטומרים ולאחר מכן סגור אותה.

  14. פתח את הטופס Deletecuers בתצוגת טופס.

  15. בחר מדינה מהתיבה המשולבת, לחץ על לחצן הפקודה ורשום את האזהרה המופיעה. לחץ על לא בתיבת הדו אזהרה.

  16. פתח את הטופס בתצוגת עיצוב ולאחר מכן, בסרגל הכלים, לחץ על לחצן קוד.

  17. בחלון Code, הקלד או הדבק את ההליכים הבאים:

Private Sub Form_Load()

Application.SetOption "Confirm Action Queries", 0
   Application.SetOption "Confirm Document Deletions", 0
   Application.SetOption "Confirm Record Changes", 0

End Sub

Private Sub Form_Unload(Cancel As Integer)

Application.SetOption "Confirm Action Queries", 1
    Application.SetOption "Confirm Document Deletions", 1
    Application.SetOption "Confirm Record Changes", 1

End Sub

  1. סגור את עורך Visual Basic ולאחר מכן שמור וסגור את הטופס.

  2. פתח את הטופס Deletecuers, בחר מדינה ולאחר מכן לחץ על לחצן הפקודה.

    שים לב שלא מופיעה תיבת דו-שיח של אזהרה.

בדוגמה זו, אפשרויות האישור של היישום אינן זמינות כאשר הטופס Deletecuers נטען ומאופשר מחדש בעת טעינתו. ביישום משוכלל יותר, תוכל לבצע את אותן פעולות בטופס הפעלה או במסך ניווט.