Private Sub Report_Open(Cancel As Integer)
On Error GoTo Err_Report_Open
Me!lblÜberschrift.Caption = "Eingelagerte Hardware (Hardwarekomponente: " & _
  hkomp & ")"
Forms(fromstDocName).Visible = False
 
Err_Report_Open:
If Err.Number <> 0 Then
   MsgBox Err.Number & " " & Err.Description & " " & _
     "Report!rptLager_Hardware_Alle-Report_Open"
    Resume Exit_Report_Open
End If
 
Exit_Report_Open:
    Exit Sub
End Sub