Exported VBA

wgmaster/vba/Form_MAbwertungen.frm

@@ -0,0 +1,38 @@
+
+Private Sub Babbrechen_Click()
+
+DoCmd.Close
+
+End Sub
+
+Private Sub BOk_Click()
+
+Select Case OListe
+
+Case 1:
+ DoCmd.OpenReport "BAbwertungenMGNR", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
+Case 2:
+ DoCmd.OpenReport "BAbwertungen", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
+Case 3:
+ DoCmd.OpenReport "BAbwertungenSorte", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
+
+End Select
+
+End Sub
+
+
+
+
+
+Private Sub Form_Open(Cancel As Integer)
+
+TZNR = DFirst("ZNR", "TZweigstellen")
+If Month(Date) < 9 Then
+ TLesejahr = year(Date) - 1
+Else
+ TLesejahr = year(Date)
+End If
+OListe = 1
+
+End Sub
+