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