דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תכנות
  3. שאלה | איך ניתן להסתיר את לחצן קובץ באקסס 2010 ומעלה

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

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

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

    2022-02-10 23_50_28-NoFileMenu.png

    WWWW תגובה 1 תגובה אחרונה
    0
    • OdedDvirO OdedDvir

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

      אבייא מנותק
      אבייא מנותק
      אביי
      כתב ב נערך לאחרונה על ידי אביי
      #10

      @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 | קטלוג מוצרים
      הלינקיה שלי https://abaye.co/link.html

      חייםיודלביץח ליבלל 2 תגובות תגובה אחרונה
      3
      • אבייא אביי

        @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)
        
        חייםיודלביץח מנותק
        חייםיודלביץח מנותק
        חייםיודלביץ
        כתב ב נערך לאחרונה על ידי
        #11

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

        אבייא תגובה 1 תגובה אחרונה
        1
        • חייםיודלביץח חייםיודלביץ

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

          אבייא מנותק
          אבייא מנותק
          אביי
          כתב ב נערך לאחרונה על ידי
          #12

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

          ניתן ליצור עימי קשר 8140hp+t@gmail.com | קטלוג מוצרים
          הלינקיה שלי https://abaye.co/link.html

          חייםיודלביץח תגובה 1 תגובה אחרונה
          1
          • אבייא אביי

            @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)
            
            ליבלל מנותק
            ליבלל מנותק
            ליבל
            כתב ב נערך לאחרונה על ידי ליבל
            #13

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

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

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

            אבייא 2 תגובות תגובה אחרונה
            1
            • ליבלל ליבל

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

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

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

              אבייא מנותק
              אבייא מנותק
              אביי
              כתב ב נערך לאחרונה על ידי אביי
              #14

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

              ניתן ליצור עימי קשר 8140hp+t@gmail.com | קטלוג מוצרים
              הלינקיה שלי https://abaye.co/link.html

              תגובה 1 תגובה אחרונה
              0
              • אבייא אביי

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

                חייםיודלביץח מנותק
                חייםיודלביץח מנותק
                חייםיודלביץ
                כתב ב נערך לאחרונה על ידי
                #15

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

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

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

                אבייא תגובה 1 תגובה אחרונה
                1
                • חייםיודלביץח חייםיודלביץ

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

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

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

                  אבייא מנותק
                  אבייא מנותק
                  אביי
                  כתב ב נערך לאחרונה על ידי
                  #16

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

                  DoCmd.Maximize
                  

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

                  ניתן ליצור עימי קשר 8140hp+t@gmail.com | קטלוג מוצרים
                  הלינקיה שלי https://abaye.co/link.html

                  תגובה 1 תגובה אחרונה
                  1
                  • ליבלל ליבל

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

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

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

                    אבייא מנותק
                    אבייא מנותק
                    אביי
                    כתב ב נערך לאחרונה על ידי אביי
                    #17

                    @ליבל עכשיו אני נזכר שזה היה המקור שלי
                    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 | קטלוג מוצרים
                    הלינקיה שלי https://abaye.co/link.html

                    תגובה 1 תגובה אחרונה
                    1
                    • חייםיודלביץח חייםיודלביץ

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

                      2022-02-10 23_50_28-NoFileMenu.png

                      WWWW מנותק
                      WWWW מנותק
                      WWW
                      כתב ב נערך לאחרונה על ידי
                      #18

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

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

                      2022-02-10 23_50_28-NoFileMenu.png

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

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

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

                      תגובה 1 תגובה אחרונה
                      3
                      • dovidD dovid העביר נושא זה מ-תכנות ב-
                      תגובה
                      • תגובה כנושא
                      התחברו כדי לפרסם תגובה
                      • מהישן לחדש
                      • מהחדש לישן
                      • הכי הרבה הצבעות


                      בא תתחבר לדף היומי!
                      • התחברות

                      • אין לך חשבון עדיין? הרשמה

                      • התחברו או הירשמו כדי לחפש.
                      • פוסט ראשון
                        פוסט אחרון
                      0
                      • דף הבית
                      • קטגוריות
                      • פוסטים אחרונים
                      • משתמשים
                      • חיפוש
                      • חוקי הפורום