52 lines
904 B
Plaintext
52 lines
904 B
Plaintext
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 |