PDA

Vollständige Version anzeigen : Report läßt sich nicht mehr anzeigen


Hondo
05.10.2001, 12:16
Hallo,
habe ein Formular das ein Bericht aufruft. Dazu folgender Code:
Private Sub formJahrWahlWeiter_Click()
Dim stDocName As String
stDocName = "uebersichtStoffratio"
DoCmd.Close
DoCmd.OpenReport stDocName, acPreview
DoCmd.RunCommand acCmdFitToWindow
End Sub
Starte ich dieses Formular per Hand wird der Bericht angezeigt. Starte ich das Formular aus dem Switchboard heraus passiert garnichts. Vieleicht liegt es daran, daß ich das Datenbankfenster ausblende (mit API)
Vor dem Ausblenden hat es mal funktioniert.
Wer hilft?
Gruß Andreas

Hondo
05.10.2001, 12:37
Hab grad noch mal getestet, liegt tatsächlich am ausblenden des Fensters:
Private Function ausblenden()
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 Function

Allerdings wird jetzt der Bericht hinter!! dem Switchboard liegend angezeigt.

Hondo
09.10.2001, 08:35
Hallo,
bestimmt hat der eine oder andere schon mal das Datenbankfenster ausgeblendet. Warscheinlich haben die meinen Beitrag nicht gesehen, und darum noch mal On Top.
Gruß Andreas