Exported VBA

wgmaster/vba/Form_FLeseplanung.frm

@@ -0,0 +1,52 @@
+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