עזרה באקסס איך סוגרים תוכנה אקסס

[יצחק גיטריסט]

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

 

[ארי4791]

קובץ>שמירה בשם>צור ACCDE

 

[יצחק גיטריסט]

קובץ>שמירה בשם>צור ACCDE

לא נותן לי

 

[יצחק גיטריסט]

מי שיודע למה הוא כותב לי את זה אשמח מאוד שיעזור

 

[ארי4791]

צריך קודם לעשות הידור לקוד VBA.
(בתוך הקוד)>Debug>Compile (ואז כתוב שם הקובץ)

 

[יצחק גיטריסט]

צריך קודם לעשות הידור לקוד VBA.
(בתוך הקוד)>Debug>Compile (ואז כתוב שם הקובץ)

אשמח אם תסביר באריכות ותדריך אותי מה לעשות
תודה מראש

 

[יצחק גיטריסט]

הבנתי.

 

[DIAMOND]

אשמח אם תסביר באריכות ותדריך אותי מה לעשות
תודה מראש

נשמח להדרכה בזה
תודה רבה

 

[Yeshivish]

תפעיל פעם אחת את הפונקציה הזו:
לאחמ"כ בכל טופס במאפיין 'שורת תפריטי הקיצור' בחר 'התפריט_שלי...'
או תעשה Loop על כל הטפסים.
שים לב שאז בכל אזורי הטופס לא יהיה שום תפריט אחר אם לא תגדיר אחרת.

בהצלחה

Public Sub תפריט_קיצור()
Dim תפריט As CommandBar
Dim פקד As CommandBarControl

On Error Resume Next
CommandBars("התפריט_שלי").Delete
Set תפריט = CommandBars.Add("התפריט_שלי", msoBarPopup, False, False)

Set פקד = תפריט.Controls.Add(msoControlButton, 12499)
פקד.Caption = "פי די אף"

Set פקד = תפריט.Controls.Add(msoControlButton, 15948)
פקד.Caption = "הדפסה"

Set פקד = תפריט.Controls.Add(msoControlButton, 141)
פקד.Caption = "חיפוש"

Set פקד = תפריט.Controls.Add(msoControlButton)
פקד.Caption = "בחירת לשונית"
פקד.FaceId = "1561"
פקד.OnAction = "בחר_חלון"
פקד.BeginGroup = True

End Sub

Public Sub בחר_חלון()
On Error GoTo שגיאה
DoCmd.RunCommand acCmdMoreWindows
שגיאה: If ERR.Number = 2501 Then Exit Sub Else שגיאות
End Sub