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

[אביי]

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

[OdedDvir]

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

[חייםיודלביץ]

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

[אביי]

@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)

[חייםיודלביץ]

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

[אביי]

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

[ליבל]

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

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

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

[אביי]

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

[חייםיודלביץ]

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

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

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

[אביי]

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

DoCmd.Maximize

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

[אביי]

@ליבל עכשיו אני נזכר שזה היה המקור שלי
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

[WWW]

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

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

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

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