MS

Global_Indexer/frmAdministration.vb

@@ -1098,7 +1098,8 @@ Public Class frmAdministration
                 Dim del As String = " EXEC PRDD_GLOBIX_DELETE_DOCTYPE " & DOKART_GUIDTextBox.Text
                 If ClassDatabase.Execute_non_Query(del, True) = True Then
                     Load_Dokart()
-
+                    MaybeDisableUserAndEmailTabs()
+                    TBDD_DOKUMENTARTBindingSource.ResetBindings(True)
 
                     If USER_LANGUAGE = "de-DE" Then
                         MsgBox("Das Profil wurde erfolgreich gelöscht!", MsgBoxStyle.Information)
@@ -1112,7 +1113,15 @@ Public Class frmAdministration
             End Try
         End If
     End Sub
-
+    Private Sub MaybeDisableUserAndEmailTabs()
+        If MyDataset.TBDD_DOKUMENTART.Rows.Count = 0 Then
+            XtraTabPageUsersGroups.PageEnabled = False
+            XtraTabPageEmail.PageEnabled = False
+        Else
+            XtraTabPageUsersGroups.PageEnabled = True
+            XtraTabPageEmail.PageEnabled = True
+        End If
+    End Sub
     Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick
         Dim result As MsgBoxResult