Move wgmaster/vba/Form_* to wgmaster/vba/form/*

wgmaster/vba/form/Form_MHauptmenü.frm

@@ -0,0 +1,113 @@
+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