Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Anwendungsfenster





Frage

Hallo zusammen habe da mal eine Frage wie Blende ich das Anwendungsfenster bei Access aus habe schon in div. suchmaschienen geschaut find einfach nichts wenn mir jemand helfen könnte wäre ich dankbar (das Anwendungsfenster sollte ausgeblendet werden aber das formular sichtbar)

Antwort 1 von takeshi

Was genau meisnt du mit Anwendungsfenster? Falls das eine reguläre Bezeichung für einen Teil von Access ist entschuldige ich mich hiermit.

Wenn du das Datenbankfenster meinst, in dem alle Elemente der Datenbank (Tabellen, Abfragen etc.) meinst ist das ganz einfach. Klicke auf den Menüeintrag Extras und dann auf Start. Dort kannst du dann auswählen, was beim Start der Datenbank angezeit wird und was nicht. Du kannst auch die Menü- und Symbolleisten ausblenden lassen und auch ein Startformular einrichten, dass automatisch beim Start geöffnet wird.

Wenn du alle ausgeblendeten Elemente wieder brauchst, dann halte beim Öffnen der Datenbank die Schifttaste gedrückt. Somit werden die Starteinstellungen nicht geladen und du kannst deine Datenbank weiter bearbeiten.

Ich hoffe du meintest diese Funktion

Wenn nicht, entschuldige ich mich für meinen überflüssigen Senf.

mfg

takeshi

Antwort 2 von salgi

danke für den hinweis aber das ist auch nicht nach dem was ich suche

ich meine ist es möglich das nur mein start formular sichtrbar ist und nicht die access anwendung mit dem grauen hindergrund

Antwort 3 von Knubbel

Hi salgi,

vielleicht meinst du dies:

Makro AUTOEXEC
* Ausführen Befehl --- Fenster ausblenden
* ÖffnenFormular ---- Dein Startformular
* Maximieren

mfg Knubbel

Antwort 4 von salgi

habe es selber raus bekommen

danke

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





Private Sub Form_Load()
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


Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: