systka, ustv, fakt.

SDL/USTV/usrCntlUSTV.vb

@@ -25,12 +25,15 @@ Public Class usrCntlUSTV
             KdSearchBox1.Enabled = False
             setInfo(kdNr)
         Else
-            setInfo(KdSearchBox1.KdNr)
+            If KdSearchBox1 IsNot Nothing Then
+                If KdSearchBox1.KdNr > 0 Then
+                    setInfo(KdSearchBox1.KdNr)
+                End If
+                btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
+            End If
+
         End If
 
-        btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
-
-
         With dgvUSTV
             .ClearSelection()
 
@@ -358,7 +361,6 @@ Public Class usrCntlUSTV
 
     Private Sub KdSearchBox1_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles KdSearchBox1.PropertyChanged
         If loaded = False Then Exit Sub
-
         init()
         filterAntragsLand()