[Access] Ausgeblendes Haupfenster - Bericht öffnet nicht


#1
Grüß Gott,

mit dem Makro Code

Visual Basic:
Option Compare Database
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

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(hWindow, nCmdShow)
nCmdShow = SW_NORMAL
nResult = ShowWindow(Me.hwnd, nCmdShow)
End Sub
kann man dies nervige Hauptfenster ausblenden. Das Startforumlar dass man über Optionen einstellen kann öffnen sich ja eh.
Mit den Schaltflächen die man mithilfe der Entwurfsansicht öffnen/einfügen kann, lässt sich ja auch auf die sonstigen Forumlar verlinken.
Das hänge ich aber bei den Berichten fest. Der Oben genannte Code wird natürlich in allen Formularen gebraucht.
Entwurfsansicht -> Rechtsklick -> Eigenschaften -> Enthält Modul 'ja'
Soweit so gut, dann über Alt + F11 in den Editor und da den oben genannten Code eingeben.
Aber wie mache ich das mit den Berichten? Die Berichte sind auf PopUp gestellt. Bei den Berichten klappt der Code nicht, muss da ein anderer rein. (Die Berichte werden aus dem Formular heraus durch eine Schaltfläche geöffnet)

Danke
 
Zuletzt bearbeitet von einem Moderator:

Neue Beiträge