MS

TestGUI/Form1.vb

@@ -20,7 +20,11 @@ Public Class Form1
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles GetValue.Click
-        My.Settings.Save
+        My.Settings.Save()
+        If IsNothing(_windream) Then
+            MsgBox("windream initialisieren")
+            Exit Sub
+        End If
         Dim result As DataTable = _windream.GetValueforIndex(txtWMFile.Text, txtWMIndex.Text)
         If result.Rows.Count = 0 Then
             MsgBox("No result")
@@ -31,6 +35,10 @@ Public Class Form1
 
     Private Sub IndexFile_Click(sender As Object, e As EventArgs) Handles IndexFile.Click
         My.Settings.Save()
+        If IsNothing(_windream) Then
+            MsgBox("windream initialisieren")
+            Exit Sub
+        End If
         Dim arrValue() As String = Nothing
         ReDim Preserve arrValue(0)
         arrValue(0) = txtWMValue.Text
@@ -44,6 +52,10 @@ Public Class Form1
 
     Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
         My.Settings.Save()
+        If IsNothing(_windream) Then
+            MsgBox("windream initialisieren")
+            Exit Sub
+        End If
         Dim DTResults As DataTable = _windream.GetSearchDocuments(txtwmsearch.Text, "Dokument-ID")
         If DTResults.Rows.Count > 0 Then
             GridControl1.DataSource = DTResults