Private Sub BChargen_Click()

DoCmd.OpenForm "MChargenAuswahl"

End Sub

Private Sub BMitglieder_Click()

DoCmd.OpenForm "FMitglieder"

End Sub

Private Sub BLieferungen_Click()

'Dim lj

'lj = InputBox("Für welches Lesejahr wollen Sie die Lieferungen bearbeiten ?", "LESEJAHR", Year(Date))

'On Error Resume Next
'If Not IsNull(lj) And lj <> "" Then
' If CLng(lj) > 1900 Then
'  DoCmd.OpenForm "FLieferungen", , , "Year(Datum)=" + Format(lj)
' End If
'End If
DoCmd.OpenForm "MLieferungAuswahl"

End Sub

Private Sub BAuswertungen_Click()

DoCmd.OpenForm "MAuswertung"


End Sub

Private Sub BStammdaten_Click()

DoCmd.OpenForm "MStammdaten"

End Sub

Private Sub BAuszahlung_Click()

DoCmd.OpenForm "MAuszahlung"

End Sub

Private Sub BAdministration_Click()

On Error Resume Next
DoCmd.DeleteObject acForm, "MAdministrationCopy"
DoCmd.CopyObject , "MAdministrationCopy", acForm, "MAdministration"
DoCmd.OpenForm "MAdministrationCopy"

End Sub

Private Sub BÜbernahme_Click()

Dim lj


lj = InputBox("Bitte geben Sie das Lesejahr ein:", "LESEJAHR", year(Date))

On Error Resume Next
If Not IsNull(lj) And lj <> "" Then
 If CLng(lj) > 1900 Then
  DoCmd.OpenForm "FÜbernahme", , , "Year(Datum)=" + Format(lj)
 End If
End If
End Sub

Private Sub Bild14_DblClick(Cancel As Integer)

'DoCmd.ShowToolbar "Menüleiste", acToolbarYes
'DoCmd.ShowToolbar "Formularansicht", acToolbarYes
'DoCmd.ShowToolbar "Datenbank", acToolbarYes
SwitchToolbars (True)
End Sub

Private Sub BLeseplanung_Click()

Dim lj

lj = InputBox("Bitte geben Sie das Lesejahr ein:", "LESEJAHR", year(Date))

On Error Resume Next
If Not IsNull(lj) And lj <> "" Then
 If CLng(lj) > 1900 Then
  DoCmd.OpenForm "FLeseplanung", , , "Year(Datum)=" + Format(lj)
  Forms("FLeseplanung").Lesejahr = lj
  Forms("FLeseplanung").SetLesejahr (lj)
 End If
End If



End Sub

Private Sub Form_Close()

DoCmd.ShowToolbar "Menüleiste", acToolbarYes
DoCmd.ShowToolbar "Formularansicht", acToolbarYes
DoCmd.ShowToolbar "Datenbank", acToolbarYes

End Sub

Private Sub Form_Open(Cancel As Integer)

DoCmd.ShowToolbar "Menüleiste", acToolbarNo
DoCmd.ShowToolbar "Formularansicht", acToolbarNo
DoCmd.ShowToolbar "Datenbank", acToolbarNo

End Sub