Hide'd alle rammer rundt om en form

Kunne "minformular.borderstyle = 0" være et bud?
VH Anders

Desværre nej, men jeg har også udtrykt mig forkert.
Hvis man tager hele applikationen så er der Ribbon og Navigationspanelet.
Undertrykker man dem (Skjuler / Hide) er der en baggrund tilbage. Jeg kan ikke finde
navnet på denne noget steds - men det er denne baggrund jeg skal have skjult,
således at kun formen ses

Jeg har fundet nedenfor viste koder der skjuler window baggrund.
Imidlertid virker det ikke ved et kald udefra, fra en anden App.
Det virker kun ved et direkte kald til den aktuelle App.
Dvs kun denne ene App. må "køre"
Er der nogen der har en løsning herpå, så 2 App kan "køre"?

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)
Exit Sub
Dim loX As Long
Dim loForm As Form
On Error Resume Next
Set loForm = Screen.ActiveForm

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

Your not expalining what you want very well :-(

Are you trying to hide access and just have a single form visible?

Also >>> "..... virker det ikke ved et kald udefra, fra en anden App.
Det virker kun ved et direkte kald til den aktuelle App. "

Can you explain what you are doing here?

Jeg prøver at forklare:

Jeg har en App 1 der kalder en anden App 2

App 2 viser en Form.
Denne Form ønskes vist uden
Ribbon og Navigationspanelet samt window baggrund
Ribbon og Navigationspanelet kan jeg Hide men ikke window baggrund

De koder jeg har vist ovenfor Hider window baggrund korrekt når App 2 startes alene - men det virker ikke når App 2 kaldes af App 1

How do you call(start) app 2 from app1?

Dim stAppName As String, strPath As String
 
  strPath = CurrentProject.Path

  stAppName = strPath & "\App2.accdb"
 
Dim appAccess As New Access.Application
appAccess.OpenCurrentDatabase (stAppName)

Have you tried using autoexec, this should run when app2 starts.
It will open your start-up form, inthis example frmHideAccess, then calls the funcion to hide access, fSetAccessWindow .

Function autoexec()
On Error GoTo ERR_EXIT
   
    DoCmd.OpenForm "frmHideAccess"
    fSetAccessWindow SW_HIDE
       
    Exit Function
ERR_EXIT:
    fSetAccessWindow SW_SHOWNORMAL
   
End Function

Jeg prøver det - tak

Jeg kan ikke få det til at virke
Hele formen hides/skjules
Det skal kun være windows formen - altså den bagved liggende form
Selve den aktive form skal vises

You must be doing something wrong, it works fine here. Only difference is that app 2 is an mdb file.

Jeg har accdb - kan det være fejlen

For at være sikker på vi forstår det samme
1)  bliver alt skjult
2) eller kan formen ses UDEN Ribbon og Navigationspanelet samt Window/Access baggrund (Den grå bagvedliggende form)

Det er 2) jeg ønsker men det er 1) jeg får

send me an example of app1 and app2 so I can see waht you are doing.
ekspertenATsanthell.dk
AT = @

If the code to hide access window works in app 2 twhich is an accdb fiel,m then it should work >>
2) eller kan formen ses UDEN Ribbon og Navigationspanelet samt Window/Access baggrund (Den grå bagvedliggende form)

Jeg har en fejl. Se ovenfor

Function fSetAccessWindow(nCmdShow As Long)
Exit Sub  <============== skal ikke med
Dim loX As Long

Efter dette viser det sig ALT Hides ved SW_HIDE = 0

Det er ikke det jeg søger.
Formen skal vises men baggrundsformen (Har ikke noget navn. Er nogen gange benævnt Windows form) skal hides

???
Exit Sub  <============== skal ikke med

Thats from your code!
But you say in #3 "Det virker kun ved et direkte kald til den aktuelle App. ", so at some time your code must have worked....Ikke?

"Det er ikke det jeg søger.
Formen skal vises men baggrundsformen (Har ikke noget navn. Er nogen gange benævnt Windows form) skal hides "

If its not working then how do you know it not what your looking for?

I can hide ALL of thge Access environment and only have a single form visible, the code I use is similar to what you show in #3 but without the Exit Sub, which I had noticed, but because you said "Det virker kun ved et direkte kald til den aktuelle App. " I assumed that it was just a typo.

Hej Terry
Medens jeg var ved at lave et eksempel til dig fandt jeg fejlen
Med:
Global Const SW_HIDE = 0
Hides både Access windows form samt den aktive form
Den aktive form SKAL ikke Hides
Når jeg bruger:
Global Const SW_SHOWMINIMIZED = 2
Får jeg det jeg ønsker.
Men...... så er windows ikke hidet men kun minimeret. Det kan jeg dog leve med

1000 tak for hjælpen

There must still be something wrong!

Option Compare Database

Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3


Private Declare Function apiShowWindow Lib "user32" _
    Alias "ShowWindow" (ByVal hwnd As Long, _
          ByVal nCmdShow As Long) As Long

Function autoexec()
On Error GoTo ERR_EXIT
   
    DoCmd.OpenForm "frmHideAccess"
    fSetAccessWindow SW_HIDE
       
    Exit Function
ERR_EXIT:
    fSetAccessWindow SW_SHOWNORMAL
   
End Function

Function fSetAccessWindow(nCmdShow As Long)
'Usage Examples
'Maximize window:
'      ?fSetAccessWindow(SW_SHOWMAXIMIZED)
'Minimize window:
'      ?fSetAccessWindow(SW_SHOWMINIMIZED)
'Hide window:
'      ?fSetAccessWindow(SW_HIDE)
'Normal window:
'      ?fSetAccessWindow(SW_SHOWNORMAL)
'
Dim loX  As Long
Dim loForm As Form
    On Error Resume Next
    Set loForm = Screen.ActiveForm
    If Err <> 0 Then 'no Activeform
      If nCmdShow = SW_HIDE Then
        MsgBox "Cannot hide Access unless " _
                    & "a form is on screen"
      Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
      End If
    Else
        If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
            MsgBox "Cannot minimize Access with " _
                    & (loForm.Caption + " ") _
                    & "form on screen"
        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
    End If
    fSetAccessWindow = (loX <> 0)
End Function

Jeg har nu sendt et testeksempel

a modified version is on the way, thats if @c.dk is the correct address?

Yes it is  correct

Jeg har ikke modtaget mailen
mail2yoATc.dk
AT = @

Maybe its in your SPAM or rejected because it conatins an accdb file.
I've resent as ZIP

have you received it?