הפעלת קוד vba של מחיקת שדה כאשר הטופס נעול מפני מחיקה

[אוריי]

יש לי טופס נעול מפני עריכה ומחיקת שורות
אני רוצה לעשות פקד שימחוק (רק ע''י הרשאות משתמשים)
הבעיה שהוא לא נותן לערוך אם טופס המקור נעול מפני מחיקה..
יש איזו דרך לעשות את זה?? @OdedDvir

[OdedDvir]

@אוריי אם הטופס נעול אי אפשר להשתמש בפקודה

DoCmd.RunCommand acCmdDeleteRecord

תוכל לבטל זמנית את נעילת המחיקה של הטופס

Me.AllowDeletions = True 'בטל נעילה
DoCmd.RunCommand acCmdDeleteRecord
Me.AllowDeletions = False 'נעל מחיקות

או להריץ שאילתת מחיקה מאחורי הקלעים

[אוריי]

@OdedDvir
עדיין לא הועיל
מחזיר שגיאה כזו

[OdedDvir]

@אוריי האם הטופס מבוסס על שאילתא שלא ניתנת לעריכה?

[אוריי]

@OdedDvir
לא
הוא מבוסס על טופס משני וכתבתי כך

    Form_BookListUser2.AllowDeletions = True 'בטל נעילה
    DoCmd.RunCommand acCmdDeleteRecord
    Form_BookListUser2.AllowDeletions = False 'נעל מחיקות

[OdedDvir]

@אוריי אמר בהפעלת קוד vba של מחיקת שדה כאשר הטופס נעול מפני מחיקה:

הוא מבוסס על טופס משני

טופס לעולם לא מבוסס על טופס, אלא על שאילתא.
מה הערך שרשום במאפיין "מקור רשומה" (RecordSource) של הטופס?

[אוריי]

@OdedDvir
בטופס המשני או המקורי?

[אוריי]

@OdedDvir
BookListUser

[OdedDvir]

@אוריי אמר בהפעלת קוד vba של מחיקת שדה כאשר הטופס נעול מפני מחיקה:

בטופס המשני או המקורי?

בטופס שבו נמצאות הרשומה למחיקה

[OdedDvir]

@אוריי אמר בהפעלת קוד vba של מחיקת שדה כאשר הטופס נעול מפני מחיקה:

BookListUser

האם זו טבלה או שאילתא? אם זו שאילתא תבדוק אם היא ניתנת לעריכה

[אוריי]

@OdedDvir
BookListUser שם השאילתה

ע''פ שאני רוצה גם לנעול את העריכה

זה של הטופס BookListUser1 האמצעי שמקבל את הנתונים מהשאילתא

ומכאן אני לוקח את הנתונים לטופס BookListUser2

[OdedDvir]

@אוריי אמר בהפעלת קוד vba של מחיקת שדה כאשר הטופס נעול מפני מחיקה:

ומכאן אני לוקח את הנתונים לטופס BookListUser2

מה הפירוש?

היכן הצבת את פקד המחיקה?

[אוריי]

@OdedDvir
ב BookListUser2

[OdedDvir]

@אוריי אמר בהפעלת קוד vba של מחיקת שדה כאשר הטופס נעול מפני מחיקה:

ב BookListUser2

אם כך, ברור למה הפקודה DeleteRecord לא זמינה, אתה מנסה למחוק רשומה מ-BookListUser2

[אוריי]

@OdedDvir
צודק טעות שלי
אבל כעת הוא מחזיר שגיאה כזו

עשיתי קוד כזה

[OdedDvir]

@אוריי זה מפני שאתה מנסה לגשת למופע של טופס שלא נוצר...
תנסה את הקוד הבא:

Me!BookListUser1.Form.AllowDeletions = True

[אוריי]

@OdedDvir
ב''ה סוף סוף עובד הרבה תודה