jj 23.08 fix tabs and buttons :D

app/DD-Record-Organiser/ClassHelper.vb

@@ -245,7 +245,17 @@ Public Class ClassHelper
     Public Shared Function DeleteRecord(ByVal SELECTED_RECORD_ID)
         Try
             Dim DeleteRecordSQL = String.Format("EXEC [dbo].[PRPMO_DELETE_RECORD] {0}, '{1}'", SELECTED_RECORD_ID, Environment.UserName)
-            Return ClassDatabase.Execute_non_Query_withConn(DeleteRecordSQL, 1)
+            Dim result As Boolean = ClassDatabase.Execute_non_Query_withConn(DeleteRecordSQL, 1)
+
+            If result = False Then
+                Dim msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' konnte nicht gelöscht werden. Überprüfen Sie das log"
+                If USER_LANGUAGE <> "de-DE" Then
+                    msg = "The record '" & SELECTED_RECORD_ID & "' could not be deleted. Check the log"
+                End If
+                MsgBox(msg, MsgBoxStyle.Exclamation)
+            End If
+
+            Return result
         Catch ex As Exception
             ClassLogger.Add("Unexpected Error in DeleteRecord: " & ex.Message, True)
             Return False