Exported VBA

wgmaster/vba/Form_MLieferungSuchen.frm

@@ -0,0 +1,78 @@
+
+Private Sub Babbrechen_Click()
+
+DoCmd.Close
+
+End Sub
+
+Private Sub BOk_Click()
+
+Dim mgnr1
+Dim lieferscheinnummer1
+Dim Lesejahr1
+
+mgnr1 = TMGNR.Value
+lieferscheinnummer1 = TLieferscheinnummer.Value
+Lesejahr1 = TLesejahr.Value
+
+
+If OAuswahl = 1 Then
+DoCmd.Close
+
+Forms!FLieferungen!TMGNR.SetFocus
+Forms!FLieferungen.filter = "Year(Datum)=" + Format(Lesejahr1)
+DoCmd.FindRecord mgnr1, acEntire, , , , acCurrent
+
+Else
+ If OAuswahl = 2 Then
+  DoCmd.Close
+  Forms!FLieferungen!TLieferscheinnummer.SetFocus
+  DoCmd.FindRecord lieferscheinnummer1, acEntire, , , , acCurrent
+
+ End If
+
+End If
+
+
+
+End Sub
+
+Private Sub Form_Open(Cancel As Integer)
+
+OAuswahl = 2
+
+If Month(Date) < 9 Then
+ TLesejahr = year(Date) - 1
+Else
+ TLesejahr = year(Date)
+End If
+
+End Sub
+
+Private Sub TLieferscheinnummer_Change()
+
+OAuswahl.Value = 2
+
+End Sub
+
+Private Sub TMGNR_Change()
+
+OAuswahl.Value = 1
+
+End Sub
+
+Private Sub TMGNR_Exit(Cancel As Integer)
+TMitglied = TMGNR
+End Sub
+
+Private Sub TMitglied_Change()
+
+TMGNR = TMitglied
+OAuswahl.Value = 1
+
+
+End Sub
+
+Private Sub TMitglied_Exit(Cancel As Integer)
+TMGNR = TMitglied
+End Sub