PDA

Vollständige Version anzeigen : Berichtsvorschau als Pop-Up


walt4
20.09.2001, 14:53
Hallo ersma,

auf einem Formular lasse ich über eine Schaltfläche eine Berichtsvorschau öffnen! Leider erscheint die Berichtsvorschau immer im Hintergrund (hinter dem Formular). Wer kann helfen?
Danke schon mal

Walter

Stema
20.09.2001, 14:56
Hallo Walter,

dann ist das Formular sicherlich als Pop up-Formular definiert. Wenn das nicht sein muß, dann ändere das einfach in den Eigenschaften des Formulars.

TGA_Project
21.09.2001, 10:45
und wenn du trotzdem den bericht aus einem modalen fenster im vordergrund öffnen möchtest, nimm diesen code. du öffnest den report einfach mit der function hier unten anstatt dem normalen openreport() und schon läuft es wie geschmiert...

thx 2 terry kreft !!

cu
mario


Use the OpenReport sub in the code below by Terry Kreft in the same manner as you use the OpenReport method.

'************ Code Start **********
'This code was originally written by Terry Kreft.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Code Courtesy of
'Terry Kreft

Sub OpenReport(ReportName As String, Optional View As Integer, Optional _
FilterName As String, Optional WhereCondition As String)
Dim loFormArray() As String
Dim loform As Form
Dim intCount As Integer
Dim intX As Integer
For Each loform In Forms
If loform.Visible Then
ReDim Preserve loFormArray(intCount)
loFormArray(intCount) = loform.Name
loform.Visible = False
intCount = intCount + 1
End If
Next
DoCmd.OpenReport ReportName, View, FilterName, WhereCondition
Do While IsVisible(acReport, ReportName): DoEvents: Loop
For intX = intCount - 1 To 0 Step -1
Forms(loFormArray(intX)).Visible = True
Next
End Sub
Function IsVisible(intObjType As Integer, strObjName As String) As Boolean
Dim intObjState As Integer
intObjState = SysCmd(acSysCmdGetObjectState, intObjType, strObjName)
IsVisible = intObjState And acObjStateOpen
End Function
'*********** Code End **************

------------------
Entstehende Heimat für Programmierer: www.devsource.de (http://www.devsource.de)