78 lines
1.1 KiB
Plaintext
78 lines
1.1 KiB
Plaintext
|
|
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 |