Option Compare Database
Option Explicit

Private Sub Report_Close()
DoCmd.ShowToolbar "Datenbank", acToolbarNo
End Sub

Private Sub Report_Open(Cancel As Integer)
DoCmd.ShowToolbar "Datenbank", acToolbarYes
End Sub