PDA

Vollständige Version anzeigen : Formular beim Öffnen von Bericht nicht schließen


herr rossi
22.03.2004, 19:54
Hallo,

ich verwende u.a. den folgenden Code um einen Bericht über ein Formular zu selektieren und diesen zu öffnen.

Nun wird das Formular nicht mehr angezeigt, wenn der Bericht geöffnet wurde. Kann mir jemand hier auf die Sprünge helfen?


Private Sub btnAnzeigen_Click() 'Bericht Formular anzeigen
On Error GoTo Err_btnAnzeigen_Click

Dim stDocName As String
Dim strKombiWert As String

'Kombifeldname (und evtl. die Spalte) anpassen:
strKombiWert = Me!cboAuswahl.Column(0) 'verweist auf die 1. Spalte des Kombifeldes

Select Case strKombiWert
Case Is = "Werk" '"Zeitraum und Werk" im Kombifeld gewählt

stDocName = "rptAuswertung_nach_Zeitraum_und_Werk"
Me.Visible = False
DoCmd.OpenReport stDocName, acViewPreview

Case Is = "Einkäufer" '"Zeitraum" im Kombifeld gewählt

stDocName = "rptAuswertung_nach_Zeitraum_und_Werk"
Me.Visible = False
DoCmd.OpenReport stDocName, acViewPreview

Case Is = "Lieferant"
stDocName = "rptAuswertung_nach_Zeitraum_und_Werk"
Me.Visible = False
DoCmd.OpenReport stDocName, acViewPreview

End Select

Exit_btnAnzeigen_Click:
Exit Sub

Err_btnAnzeigen_Click:
MsgBox Err.Description
Resume Exit_btnAnzeigen_Click

End Sub


Danke.

Schöne Grüße,

Herr Rossi alias Vinzenz

Engeli
22.03.2004, 20:10
Hallo

Me.Visible = false

macht das Formular unsichtbar.

Gruss Markus

Arne Dieckmann
22.03.2004, 20:15
Beim Ereignis "Beim Schliessen" des Berichtes musst Du das Formular wieder sichtbar machen mit:



Private Sub Report_Close()

Dim strFormName as String
strFormName="MeinFormular"

If fct_IsFormOpen(strFormName)>0 Then
Forms(strFormName).Visible=True
End If

End Sub

Dazu brauchst Du dann in einem Standard-Modul (unter Module):

Public Function fct_IsFormOpen(ArgName As String)
fct_IsFormOpen = SysCmd(acSysCmdGetObjectState, acForm, ArgName)
End Function

herr rossi
23.03.2004, 19:13
Super, danke Euch beiden!

Gruß,

Herr Rossi laias Vinzenz