MS20072015_1

Global_Indexer/frmSQLSuggestion.vb

@@ -90,7 +90,7 @@ Public Class frmSQLSuggestion
             Else
                 isinsert = True
             End If
-            lblSave.Visible = True
+            lblSave.Visible = False
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Open Form:")
         End Try
@@ -147,4 +147,12 @@ Public Class frmSQLSuggestion
             End If
         End If
     End Sub
+
+
+    Private Sub SQL_ERGEBNISTextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles SQL_ERGEBNISTextBox.KeyPress
+        If e.KeyChar = Convert.ToChar(1) Then
+            DirectCast(sender, TextBox).SelectAll()
+            e.Handled = True
+        End If
+    End Sub
 End Class