Exported VBA

wgmaster/vba/Form_MStammblatt.frm

@@ -0,0 +1,82 @@
+
+Private Sub Babbrechen_Click()
+
+DoCmd.Close
+
+End Sub
+
+Private Sub BOk_Click()
+
+Dim where1 As String
+
+where1 = ""
+If OListe = 1 Then
+    'MGNR
+    If Not IsNull(TVon1) Then
+        where1 = where1 + " AND TMitglieder.MGNR>=" + Format(TVon1)
+    End If
+    If Not IsNull(TBis1) Then
+        where1 = where1 + " AND TMitglieder.MGNR<=" + Format(TBis1)
+    End If
+Else
+    'PLZ
+    If Not IsNull(TVon1) Then
+        where1 = where1 + " AND TMitglieder.PLZ>='" + Format(TVon1) + "'"
+    End If
+    If Not IsNull(TBis1) Then
+        where1 = where1 + " AND TMitglieder.PLZ<='" + Format(TBis1) + "'"
+    End If
+End If
+
+
+Select Case OListe
+
+Case 1:
+ DoCmd.OpenReport "BMitgliedStammblattMGNR", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
+Case 2:
+ DoCmd.OpenReport "BMitgliedStammblatt", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
+
+End Select
+
+If OLiefermengen Then
+ DoCmd.OpenReport "BLiefermenge", acViewDesign
+ 
+ Select Case OListe
+    Case 1:
+        Reports("BLiefermenge").GroupLevel(0).ControlSource = "MGNR"
+    Case 2:
+        Reports("BLiefermenge").GroupLevel(0).ControlSource = "PLZ"
+ End Select
+
+ DoCmd.Save
+ DoCmd.Close , "BLiefermenge"
+ 
+ DoCmd.OpenReport "BLiefermenge", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
+End If
+
+
+
+End Sub
+
+
+
+
+Private Sub Form_Open(Cancel As Integer)
+
+OListe = 1
+OLiefermengen = False
+TZNR = DFirst("ZNR", "TZweigstellen")
+TFusstext = GetParameter("STAMMBLATTTEXT")
+
+End Sub
+
+
+Private Sub TFusstext_Exit(Cancel As Integer)
+
+If IsNull(TFusstext.Value) Then
+ SetParameter "STAMMBLATTTEXT", " "
+Else
+ SetParameter "STAMMBLATTTEXT", TFusstext.Value
+End If
+
+End Sub