Office: (Office 2010) Access Startmenü/Schaltfläche

Hallo,

unter Windows haben die meisten Fenster in der rechten oberen Ecke mehrere Systemschaltflächen, mit denen man sie minimieren, in normaler Größe anzeigen oder maximieren kann - falls du davon schon einmal etwas gehört haben solltest.

Ich beziehe mich jetzt auf das weiße Rechteck innerhalb des großen grauen Rechtecks. Dieses hat in der rechten oberen Ecke 3 Symbole, soweit ich das erkennen kann. Auf das äußerst rechte dieser 3 Symbole, das ein Quadrat/Rechteck symbolisiert, klickst du. Daraufhin wird der graue äußere Bereich vom weißen inneren Rechteck ausgefüllt.

 

Das meine ich aber nicht. Es soll WEG!!!! dass es dann ausgefüllt ist weiß ich. Aber es soll ganz weg sein. Nicht verdeckt, nicht minimiert einfach weg sein.
Dass wirklich NUR das Formular noch da ist. Sodass auch wirklich NICHTS mehr verändert werden kann.

Ich schätze mal ich bin einfach nicht in der Lage genau zu erklären was ich wissen/machen möchte.

Bei PowerPoint kann man es ja z.B. auch als Präsentations Format speichern. Sodass die ganzen Symbolleisten auch nicht mehr da sind, man nichts mehr verändern kann und die Präsentation direkt startet.

 

Stell mal in den Formular-Eigenschaften Popup auf ja und die Bildlaufleisten auf Nein.
Maximieren kannst Du das Formular dann über VBA

Gesendet von meinem CLT-L29 mit Tapatalk

 

Also so wie ich das verstehe will er das Access Fenster ausblenden so das nur seine Aplication zu sehen ist. Dazu Musst du erst einmal alle Formulare mit der Eigenschaft "Popup" kennzeichnen. Dann ein VBA Befehl im Startformular der das Access Fenster ausblendet. VBA müsste ich erst nachschlagen ist nicht so mein spezialgebiet :)
Im Formular eintragen unter "beim Laden"

Option Compare Database
Option Explicit

'API-Aufruf und Konstanten zum Ausblenden und Einblenden eines Fensters
Const SW_HIDE = 0 ' Fenster ausblenden
Const SW_NORMAL = 1 ' Fenster wiederherstellen bzw. einblenden

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



Als Prozedur dann festlegen



Private Sub Form_Open(Cancel As Integer)
Dim hWindow As Long
Dim nResult As Long
Dim nCmdShow As Long

hWindow = Application.hWndAccessApp
nCmdShow = SW_HIDE
nResult = ShowWindow(ByVal hWindow, ByVal nCmdShow)
Call ShowWindow(Me.hwnd, SW_NORMAL)
End Sub

LG Diskus123

 

etwas genauer nachzulesen hier unter Punkt1.11

Diskus