PDA

Vollständige Version anzeigen : Formular eigenständig laufen lassen


Andy27
22.10.2001, 12:41
Hallo Zusammen.

Ich habe ein Formular erstellt und es ist alles so wie ich es habe will. Nun will ich das ganze aber ohne Access laufen lassen. Geht das?

Gruß Andy27

horse79
22.10.2001, 14:19
Hello,

das geht schon, du mußt Access aber verstecken, dass es der User nicht mitbekommt. Also Access-Fenster wegmachen und Access aus der Taskbar entfernen.

Füge folgendes ein im Allgemeinen Deklarationsbereich des Formulares:

Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

und bei der Eigenschaft beim Öffnen des Formulares:

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

Dann stell die Eigenschaft des Formulares auf PopUp.

Mach unbedingt ne Schaltfläche, dass ein anderes Formular öffnet, dass im Deklarationsbereich das selbe stehen hat wie in deinem "verstecktem" Formular , und bei der Eigenschaft beim öffnen:

(Du kommst sonst nicht mehr an deine Tabellen und das Datenbankfenster ran.)

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)
Call ShowWindow(hWindow, SW_NORMAL)
End Sub

Mach aber unbedingt ne Sicherungskopie der Datenbank.