Move empty vba scripts

wgmaster/vba/empty/Form_FBehaelter.frm

@@ -0,0 +1,5 @@
+Private Sub BBehälterlisteDrucken_Click()
+
+DoCmd.OpenReport "BBehaelter", acViewPreview
+
+End Sub

wgmaster/vba/empty/Form_FChargenBehandlungen.frm

@@ -0,0 +1,5 @@
+Private Sub BBehälterlisteDrucken_Click()
+
+DoCmd.OpenReport "BBehaelter", acViewPreview
+
+End Sub

wgmaster/vba/empty/Form_FGrosslagenGebieteSorten.frm

@@ -0,0 +1,4 @@
+Option Compare Database
+Option Explicit
+
+

wgmaster/vba/empty/Form_FMitgliedInfo.frm

@@ -0,0 +1,10 @@
+
+Private Sub Form_Activate()
+
+filter = "MGNR=" + Format(Forms!FLieferungen!TMGNR)
+
+FilterOn = True
+
+
+End Sub
+

wgmaster/vba/empty/Form_FSortenAttribute.frm

@@ -0,0 +1,7 @@
+
+
+Private Sub BEingabe_Click()
+
+DoCmd.OpenForm "FSortenAttributeEingabe"
+
+End Sub

wgmaster/vba/empty/Form_FSortenAttributeEingabe.frm

@@ -0,0 +1 @@
+

wgmaster/vba/empty/Form_FZweigstellen.frm

@@ -0,0 +1,3 @@
+Private Sub LGNR_Exit(Cancel As Integer)
+
+End Sub

wgmaster/vba/empty/Report_BAbschlaege.frm

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

wgmaster/vba/empty/Report_BAbwertungen.frm

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

wgmaster/vba/empty/Report_BAbwertungenMGNR.frm

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

wgmaster/vba/empty/Report_BAbwertungenSorte.frm

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

wgmaster/vba/empty/Report_BAnlieferungenJahresvergleichDetail.frm

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

wgmaster/vba/empty/Report_BAnlieferungsbestaetigung.frm

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

wgmaster/vba/empty/Report_BAnlieferungsbestaetigungMGNR.frm

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

wgmaster/vba/empty/Report_BAuszahlungsvarianteKopf.frm

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

wgmaster/vba/empty/Report_BAuszahlungsvarianteSorten.frm

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

wgmaster/vba/empty/Report_BAuszahlungsvarianteSortenattribute.frm

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

wgmaster/vba/empty/Report_BBanken.frm

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

wgmaster/vba/empty/Report_BBehaelter.frm

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

wgmaster/vba/empty/Report_BBewirtschaftungsarten.frm

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

wgmaster/vba/empty/Report_BBuchungslisteBrutto.frm

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

wgmaster/vba/empty/Report_BChargenListe.frm

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

wgmaster/vba/empty/Report_BChargenStammblatt.frm

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

wgmaster/vba/empty/Report_BChargenStammblattBehandlungen.frm

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

wgmaster/vba/empty/Report_BChargenStammblattLieferungen.frm

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

wgmaster/vba/empty/Report_BFlaechenbindungen.frm

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

wgmaster/vba/empty/Report_BGebietshierarchie.frm

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

wgmaster/vba/empty/Report_BLeseplanung.frm

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

wgmaster/vba/empty/Report_BLieferjournal.frm

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

wgmaster/vba/empty/Report_BLieferjournalVerschluesselt.frm

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

wgmaster/vba/empty/Report_BLiefermenge.frm

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

wgmaster/vba/empty/Report_BLieferschein2.frm

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

wgmaster/vba/empty/Report_BLieferschein3.frm

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

wgmaster/vba/empty/Report_BLieferschein4.frm

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

wgmaster/vba/empty/Report_BLieferstatistikProOrt.frm

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

wgmaster/vba/empty/Report_BMitgliedStammblatt.frm

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

wgmaster/vba/empty/Report_BMitgliedStammblattFlächenbindungen.frm

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

wgmaster/vba/empty/Report_BMitgliedStammblattMGNR.frm

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

wgmaster/vba/empty/Report_BMitgliederliste.frm

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

wgmaster/vba/empty/Report_BMitgliederlisteDetails.frm

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

wgmaster/vba/empty/Report_BMitgliederlisteTest.frm

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

wgmaster/vba/empty/Report_BMitgliederlisteVolllieferanten.frm

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

wgmaster/vba/empty/Report_BNulllieferungen.frm

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

wgmaster/vba/empty/Report_BQualitätsstatistik.frm

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

wgmaster/vba/empty/Report_BQualitätsstatistikRotWeiss.frm

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

wgmaster/vba/empty/Report_BQualitätsstufen.frm

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

wgmaster/vba/empty/Report_BRundschreiben.frm

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

wgmaster/vba/empty/Report_BSorten.frm

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

wgmaster/vba/empty/Report_BSortenStatistikAttribute.frm

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

wgmaster/vba/empty/Report_BSortenstatistik.frm

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

wgmaster/vba/empty/Report_BUeberweisungslisteBrutto.frm

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

wgmaster/vba/empty/Report_BUmrechnung.frm

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

wgmaster/vba/empty/Report_BUnterlieferungenFlächenbindung.frm

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

wgmaster/vba/empty/Report_BVorlage.frm

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

wgmaster/vba/empty/Report_BÜberlieferungen.frm

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