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

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

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

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

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

    @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

    WWWW תגובה 1 תגובה אחרונה
    0
    • WWWW מנותק
      WWWW מנותק
      WWW
      השיב לOdedDvir ב נערך לאחרונה על ידי
      #6

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

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

      אבייא תגובה 1 תגובה אחרונה
      0
      • אבייא מנותק
        אבייא מנותק
        אביי
        השיב לWWW ב נערך לאחרונה על ידי
        #7

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

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

        OdedDvirO תגובה 1 תגובה אחרונה
        0
        • OdedDvirO מנותק
          OdedDvirO מנותק
          OdedDvir
          השיב לאביי ב נערך לאחרונה על ידי
          #8

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

          אבייא תגובה 1 תגובה אחרונה
          0
          • חייםיודלביץח מנותק
            חייםיודלביץח מנותק
            חייםיודלביץ
            כתב ב נערך לאחרונה על ידי
            #9

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

            2022-02-10 23_50_28-NoFileMenu.png

            WWWW תגובה 1 תגובה אחרונה
            0
            • אבייא מנותק
              אבייא מנותק
              אביי
              השיב ל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
              • חייםיודלביץח מנותק
                חייםיודלביץח מנותק
                חייםיודלביץ
                השיב לאביי ב נערך לאחרונה על ידי
                #11

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

                אבייא תגובה 1 תגובה אחרונה
                1
                • אבייא מנותק
                  אבייא מנותק
                  אביי
                  השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                  #12

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

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

                  חייםיודלביץח תגובה 1 תגובה אחרונה
                  1
                  • ליבלל מנותק
                    ליבלל מנותק
                    ליבל
                    השיב לאביי ב נערך לאחרונה על ידי ליבל
                    #13

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

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

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

                    אבייא 2 תגובות תגובה אחרונה
                    1
                    • אבייא מנותק
                      אבייא מנותק
                      אביי
                      השיב לליבל ב נערך לאחרונה על ידי אביי
                      #14

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

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

                      תגובה 1 תגובה אחרונה
                      0
                      • חייםיודלביץח מנותק
                        חייםיודלביץח מנותק
                        חייםיודלביץ
                        השיב לאביי ב נערך לאחרונה על ידי
                        #15

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

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

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

                        אבייא תגובה 1 תגובה אחרונה
                        1
                        • אבייא מנותק
                          אבייא מנותק
                          אביי
                          השיב לחייםיודלביץ ב נערך לאחרונה על ידי
                          #16

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

                          DoCmd.Maximize
                          

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

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

                          תגובה 1 תגובה אחרונה
                          1
                          • אבייא מנותק
                            אבייא מנותק
                            אביי
                            השיב לליבל ב נערך לאחרונה על ידי אביי
                            #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
                            • 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
                              • דף הבית
                              • קטגוריות
                              • פוסטים אחרונים
                              • משתמשים
                              • חיפוש
                              • חוקי הפורום