MS1808_14:45

2016-08-18 14:42:29 +02:00
parent bcee2404d5
commit 6655079922
6 changed files with 14 additions and 12 deletions
--- a/app/DD-Record-Organiser/frmUserKonfig.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig.vb
@@ -561,6 +561,8 @@
            Dim del = "EXEC [dbo].[PRPMO_DELETE_USER] " & USER_GUIDTextBox.Text
            If ClassDatabase.Execute_non_Query(del, True) = True Then
                Load_User()
+            Else
+                MsgBox("Unexpected Error while deleting User.", MsgBoxStyle.Exclamation)
            End If
        End If