יצירת הודעה בעת יציאה מאקסס

הנושא בפורום 'פורום תוכנות מייקרוסופט אופיס' פורסם ע"י חיים יודלביץ, ‏1/1/18.

  1. חיים יודלביץ

    חיים יודלביץ משתמש פעיל

    הצטרף:
    ‏18/12/17
    הודעות:
    136
    תודות :
    46
    נקודות:
    29
    שלום

    האם יש אפשרות שבכל יציאה מקובץ האקסס לא משנה מאיפה בין מלחצן סגור בין דרך שורת המשימות
    אז יופיע הודעה לדוגמה "האם ברצונך לצאת"?

    האם יש איזהו שם שצריך לתת למודול, כמו לדוגמה של המודול מה יפתח בפתיחת הקובץ?

    בתודה מראש לעוזרים
     
  2. אפקטיביות

    אפקטיביות משתמש פעיל

    הצטרף:
    ‏6/10/14
    הודעות:
    291
    תודות :
    43
    נקודות:
    29
    להוסיף טופס ריק
    שייפתח מוסתר בעת שהאקסס נפתח
    ובטופס להוסיף אירוע
    קוד:
    Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Are you sure you want to close the program?", vbYesNo) = vbNo Then
    Cancel = True
    Else
    Exit Sub
    End If
    End Sub
     
  3. חיים יודלביץ

    חיים יודלביץ משתמש פעיל

    הצטרף:
    ‏18/12/17
    הודעות:
    136
    תודות :
    46
    נקודות:
    29
    תודה רבה!
     
    רוצה לתכנת אוהב/ת את זה.
  4. אבישי 1980

    אבישי 1980 משתמש חדש

    הצטרף:
    ‏8/4/18
    הודעות:
    2
    תודות :
    3
    נקודות:
    4
    אפשר גם:
    Private Sub btnExit_Click()
    Dim a As String
    Dim b As String
    Dim c As String
    b = "האם ברצונך לצאת מהמערכת"
    c = "?"
    a = MsgBox(c & b, vbYesNo, "יציאה מהמערכת")
    If a = vbYes Then
    DoCmd.Quit
    Else
    MsgBox "[הודעה]"
    End If
    End Sub​