MS1611

app/DD-Record-Organiser/frmSearchAllOver.vb

@@ -3,6 +3,9 @@ Public Class frmSearchAllOVer
     Inherits Form
     Dim sel_Records, sel_FT As String
     Private Sub tsbtnRefresh_Click(sender As Object, e As EventArgs) Handles tsbtnRefresh.Click
+        Refresh_Search()
+    End Sub
+    Sub Refresh_Search()
         If txtSearch.Text = "" Then
             Exit Sub
         End If
@@ -146,11 +149,26 @@ Public Class frmSearchAllOVer
     End Sub
 
     Private Sub ShowRecordToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ShowRecordToolStripMenuItem.Click
-        Dim RECORD_ID = GridViewRecords.GetFocusedRowCellValue(GridViewRecords.Columns("RECORD_ID"))
-        If Not IsNothing(RECORD_ID) Then
-            ClassJumpRecord.JumpToRecord(0, RECORD_ID)
-        End If
-
+        Show_Detail_Record()
+    End Sub
+    Sub Show_Detail_Record()
+        Try
+            Dim RECORD_ID = GridViewRecords.GetFocusedRowCellValue(GridViewRecords.Columns("RECORD_ID"))
+            If Not IsNothing(RECORD_ID) Then
+                ClassJumpRecord.JumpToRecord(0, RECORD_ID)
+            End If
+        Catch ex As Exception
+            MsgBox("Unexpected Error in Show_Detail_Record:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
         JUMP_RECORD_ID = 0
     End Sub
+    Private Sub frmSearchAllOVer_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
+        If e.KeyCode = Keys.Return Then
+            Refresh_Search()
+        End If
+    End Sub
+
+    Private Sub tsbtnviewDetail_Click(sender As Object, e As EventArgs) Handles tsbtnviewDetail.Click
+        Show_Detail_Record()
+    End Sub
 End Class