114 lines
2.1 KiB
Plaintext
114 lines
2.1 KiB
Plaintext
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
|