Public Lesejahr As Integer


Public Function GetLesejahr()

GetLesejahr = Lesejahr

End Function

Public Sub SetLesejahr(Jahr1 As Integer)
 Lesejahr = Jahr1
 
End Sub

Private Sub BLeseplanungDrucken_Click()


DoCmd.OpenReport "BLeseplanung", acPreview, , "Year(Datum)=" + Format(Lesejahr)

End Sub

Private Sub TSNR_Exit(Cancel As Integer)

    TSNR = UCase(TSNR)
    
    Dim SNR1 As String
    Dim SANR1 As String


    If IsNull(TSNR) Then
     Exit Sub
    End If
    
    If GetSNRAndSANRFromInput(TSNR, SNR1, SANR1) Then
     TSNR = SNR1
     TSANR = SANR1
    Else
     TSANR = Null
    End If
    
    
     If DCount("[SNR]", "TSorten", "SNR='" + TSNR + "'") = 0 Then
      MsgBox "Bitte geben Sie ein gültiges Sortenkürzel ein!", vbCritical
      'TSNR =
      TSNR.SetFocus
      Exit Sub
     End If
    
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


End Sub