תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

    שאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה

    תכנות
    5
    18
    181
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • חייםיודלביץ
      חייםיודלביץ נערך לאחרונה על ידי

      שלום וברכה

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

      גם כשאני סוגר את הקובץ לפרסום עדיין מופיע שם אפשרויות הדפסה ועוד.

      תודה

      ללא שם.png

      OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • OdedDvir
        OdedDvir @חייםיודלביץ נערך לאחרונה על ידי

        @חייםיודלביץ אתה תהיה חייב ליצור סרגל מותאם מראש.
        עיין כאן: https://www.access-programmers.co.uk/forums/threads/ribbons-and-getting-rid-of-the-file-tab.303592/
        יש בסוף דוגמא להורדה.

        חייםיודלביץ WWW 2 תגובות תגובה אחרונה תגובה ציטוט 2
        • חייםיודלביץ
          חייםיודלביץ @OdedDvir נערך לאחרונה על ידי

          @odeddvir אמר בשאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה:

          @חייםיודלביץ אתה תהיה חייב ליצור סרגל מותאם מראש.
          עיין כאן: https://www.access-programmers.co.uk/forums/threads/ribbons-and-getting-rid-of-the-file-tab.303592/
          יש בסוף דוגמא להורדה.

          תודה!! בדיוק מה שחפשתי, והאמת חפשתי הרבה באתר הזה ולא מצאתי דוגמא טובה שמסתירה את הכל כמו מה שאתה הבאת.

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

          תגובה 1 תגובה אחרונה תגובה ציטוט 1
          • WWW
            WWW @OdedDvir נערך לאחרונה על ידי

            @odeddvir אמר בשאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה:

            יש בסוף דוגמא להורדה.

            הצלחת להסתיר את הטאב קובץ?
            בתמונה הוא מביא שמה אופציה כזאת, אבל למעשה בקובץ זה עדיין מופיע. (אופיס 365)

            WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

            OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • OdedDvir
              OdedDvir @WWW נערך לאחרונה על ידי

              @www בסרגל שנוצר על ידי הקוד הבא:

              <customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
                  <ribbon startFromScratch="true">
                  </ribbon>
                  <backstage>
                      <tab idMso="TabPrint" visible="false"/>
                      <tab idMso="TabOfficeFeedback" visible="false"/>
                      <button idMso="ApplicationOptionsDialog" visible="false"/>
                  </backstage>
              </customUI>
              

              התוית File עדיין נשארת, אך היא לא מכילה כלום:
              28852e1f-a40d-4dec-97ca-a57852ceece2-תמונה.png

              WWW תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • WWW
                WWW @OdedDvir נערך לאחרונה על ידי

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

                WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

                אביי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                • אביי
                  אביי @WWW נערך לאחרונה על ידי

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

                  ניתן ליצור עימי קשר במייל 8140hp+t@gmail.com | קנה לי פיצה! | פתיחת קווים בפרטנר במייל הנ"ל

                  OdedDvir תגובה 1 תגובה אחרונה תגובה ציטוט 0
                  • OdedDvir
                    OdedDvir @אביי נערך לאחרונה על ידי

                    @אביי תודה, באופן אישי אני אשמח יותר אם תשתף כיצד ביצעת זאת.

                    אביי תגובה 1 תגובה אחרונה תגובה ציטוט 0
                    • חייםיודלביץ
                      חייםיודלביץ נערך לאחרונה על ידי

                      @WWW אצלי זה גם אופיס 365 וזה נראה ככה, אם אצלך זה אחרת אולי הורדתי קובץ שונה ממך מהאשכול הנ"ל יש שם כמה.

                      2022-02-10 23_50_28-NoFileMenu.png

                      WWW תגובה 1 תגובה אחרונה תגובה ציטוט 0
                      • אביי
                        אביי @OdedDvir נערך לאחרונה על ידי אביי

                        @odeddvir זה לא אני כתבתי, זה קוד שקיים אצלי כבר כמה שנים ואני לא זוכר מה מקורו ייתכן שמכאן, אני רק ערכתי בו כמה שיפוצים קטנים ותיקוני באגים שצצו מדי פעם. עכ"פ זה המודול:

                        Option Compare Database
                        Option Explicit
                        
                        
                        'הסתרת המסך הראשי של האקסס
                        'גילוי מסך ראשי
                        'Call ShowWindow(hWndAccessApp, SW_NORMAL)
                        ' הסתרה של מסך ראשי
                        'Call ShowWindow(hWndAccessApp, SW_HIDE)
                        
                        
                        
                        Global Const SW_HIDE = 0
                        Global Const SW_SHOWNORMAL = 1
                        Global Const SW_SHOWMINIMIZED = 2
                        Global Const SW_SHOWMAXIMIZED = 3
                        
                        Global Const SW_NORMAL = 4
                        Global Const SW_MINIMIZE = 5
                        Global Const SW_MAXIMIZE = 6
                        Global Const ERROR_SUCCESS = 7
                        
                        #If VBA7 Then
                            Private Declare PtrSafe Function apiShowWindow Lib "user32" _
                                    Alias "ShowWindow" (ByVal hWnd As Long, _
                                                        ByVal nCmdShow As Long) As Long
                        #Else
                            Private Declare Function apiShowWindow Lib "user32" _
                                                                   Alias "ShowWindow" (ByVal hWnd As Long, _
                                                                                       ByVal nCmdShow As Long) As Long
                        #End If
                        
                        Function fSetAccessWindow(nCmdShow As Long)
                        
                            Dim loX As Long
                            Dim loForm As Form
                            Dim loReport As Report
                        
                            On Error Resume Next
                        
                            Set loForm = Screen.ActiveForm
                            Set loReport = Screen.ActiveReport
                        
                            If Err <> 0 Then
                                loX = apiShowWindow(hWndAccessApp, nCmdShow)
                                Err.Clear
                            End If
                        
                            If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
                                MsgBox "Cannot minimize Access with " _
                                    & (loForm.Caption + " ") _
                                    & "form on screen"
                        
                                MsgBox "התוכנה מוזערה לשורת המשימות" _
                                     & (loForm.Caption + " ") _
                                     & "", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "הודעת מנהל מערכת"
                            ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
                                MsgBox "Cannot hide Access with " _
                                     & (loForm.Caption + " ") _
                                     & "form on screen"
                            Else
                                loX = apiShowWindow(hWndAccessApp, nCmdShow)
                            End If
                            fSetAccessWindow = (loX <> 0)
                        End Function
                        

                        וזה המימוש:

                        Call fSetAccessWindow(0)
                        

                        ניתן ליצור עימי קשר במייל 8140hp+t@gmail.com | קנה לי פיצה! | פתיחת קווים בפרטנר במייל הנ"ל

                        חייםיודלביץ ליבל 2 תגובות תגובה אחרונה תגובה ציטוט 3
                        • חייםיודלביץ
                          חייםיודלביץ @אביי נערך לאחרונה על ידי

                          @אביי יש כבר פתרון עבור הדוחות או רק כמו ש @hubhcbh כתב פעם שזה צריך להיות בתוך טופס וכו' [לא מוצא את המקור בדיוק]

                          אביי תגובה 1 תגובה אחרונה תגובה ציטוט 1
                          • אביי
                            אביי @חייםיודלביץ נערך לאחרונה על ידי

                            @חייםיודלביץ אני מבין מדבריך שהדבר הזה הוא מפורסם.. 🙂
                            ולגבי הדוחו"ת אתה צודק, צריך לקמבן.

                            ניתן ליצור עימי קשר במייל 8140hp+t@gmail.com | קנה לי פיצה! | פתיחת קווים בפרטנר במייל הנ"ל

                            חייםיודלביץ תגובה 1 תגובה אחרונה תגובה ציטוט 1
                            • ליבל
                              ליבל @אביי נערך לאחרונה על ידי ליבל

                              @אביי אמר בשאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה:

                              @odeddvir זה לא אני כתבתי, זה קוד שקיים אצלי כבר כמה שנים ואני לא זוכר מה מקורו, אני רק ערכתי בו כמה שיפוצים קטנים ותיקוני באגים שצצו מדי פעם.

                              זה נראה לי טמון בארכיון של פרוג

                              אביי 2 תגובות תגובה אחרונה תגובה ציטוט 1
                              • אביי
                                אביי @ליבל נערך לאחרונה על ידי אביי

                                @ליבל יכול להיות, אני לא זוכר מה המקור, אבל הגיוני...
                                פרוג חסום אצלי, אז אני לא יכול לבדוק..

                                ניתן ליצור עימי קשר במייל 8140hp+t@gmail.com | קנה לי פיצה! | פתיחת קווים בפרטנר במייל הנ"ל

                                תגובה 1 תגובה אחרונה תגובה ציטוט 0
                                • חייםיודלביץ
                                  חייםיודלביץ @אביי נערך לאחרונה על ידי

                                  @אביי אמר בשאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה:

                                  @חייםיודלביץ אני מבין מדבריך שהדבר הזה הוא מפורסם.. 🙂
                                  ולגבי הדוחו"ת אתה צודק, צריך לקמבן.

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

                                  אביי תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                  • אביי
                                    אביי @חייםיודלביץ נערך לאחרונה על ידי

                                    @חייםיודלביץ בעיקרון מספיק שתוסיף לאירוע הפתיחה של הדו"ח את הקוד הזה 🙂

                                    DoCmd.Maximize
                                    

                                    ואז הוא ייפתח במסך מלא אבל יראה...

                                    ניתן ליצור עימי קשר במייל 8140hp+t@gmail.com | קנה לי פיצה! | פתיחת קווים בפרטנר במייל הנ"ל

                                    תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                    • אביי
                                      אביי @ליבל נערך לאחרונה על ידי אביי

                                      @ליבל עכשיו אני נזכר שזה היה המקור שלי
                                      https://www.kova.co.il/2014/06/15/לפתוח-מסך-של-access-בלי-להציג-את-הרקע-של-access-application-ב/

                                      @OdedDvir ויש שם גם את זה:

                                      Dim acs As Object
                                      Set acs = CreateObject("Access.Application")
                                      acs.Application.UserControl = False
                                      acs.Application.Visible = False
                                      acs.OpenCurrentDatabase "C:MyFolderMyDB.accdb"  
                                      acs.Close
                                      
                                      

                                      ניתן ליצור עימי קשר במייל 8140hp+t@gmail.com | קנה לי פיצה! | פתיחת קווים בפרטנר במייל הנ"ל

                                      תגובה 1 תגובה אחרונה תגובה ציטוט 1
                                      • WWW
                                        WWW @חייםיודלביץ נערך לאחרונה על ידי

                                        @חייםיודלביץ אמר בשאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה:

                                        @WWW אצלי זה גם אופיס 365 וזה נראה ככה, אם אצלך זה אחרת אולי הורדתי קובץ שונה ממך מהאשכול הנ"ל יש שם כמה.

                                        2022-02-10 23_50_28-NoFileMenu.png

                                        צריך להוסיף את השורה:

                                                <tab idMso="TabOfficeFeedback" visible="false"/>
                                        

                                        WWW.netfree@gmail.com || קשבק! החזר כספי לבנק על רכישות באינטרנט || עונים על סקרים ומרוויחים כסף!

                                        תגובה 1 תגובה אחרונה תגובה ציטוט 3
                                        • 1 / 1
                                        • פוסט ראשון
                                          פוסט אחרון
                                        בא תתחבר לדף היומי!