Automatischer EMail-Versand für ZF-Auswertung, Errors GUI verbessert.

UID/usrCntlERS.vb

@@ -226,6 +226,10 @@ Public Class usrCntlERS
             sqlstr &= " AND [ers_Testsystem] = @ersTestsystem "
         End If
 
+        If txtFehlersuche.Text <> "" Then
+            sqlstr &= " AND ([ers_errStack] like '" & txtFehlersuche.Text.Replace("*", "%") & "' Or [ers_errMessage] like '" & txtFehlersuche.Text.Replace("*", "%") & "' OR [ers_errMethodName] like '" & txtFehlersuche.Text.Replace("*", "%") & "')  "
+
+        End If
 
         Return sqlstr
     End Function
@@ -270,4 +274,13 @@ Public Class usrCntlERS
         sender.RELOAD()
         Me.Cursor = Cursors.Default
     End Sub
+
+    Private Sub txtFehlersuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtFehlersuche.KeyDown
+        If e.KeyCode = Keys.Enter Then
+
+            Me.btnSuche_Click(sender, e)
+                e.Handled = True
+            End If
+
+    End Sub
 End Class