prevent error when clicking on control buttons

app/DD_Clipboard_Searcher/frmAdministration.vb

@@ -679,6 +679,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem24_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem24.ItemClick
+        If CtrlApplicationAssignment1.SelectedControlId = 0 Then
+            Exit Sub
+        End If
+
         If MsgBox($"Wollen Sie die Feld-Zuordnung löschen?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo, Text) = MsgBoxResult.No Then
             Exit Sub
         End If
@@ -691,6 +695,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem25_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem25.ItemClick
+        If CtrlApplicationAssignment1.SelectedControlId = 0 Then
+            Exit Sub
+        End If
+
         If CtrlApplicationAssignment1.Control_SaveAssignment() = False Then
             MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
         Else
@@ -699,6 +707,10 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem27_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem27.ItemClick
+        If CtrlApplicationAssignment1.SelectedControlId = 0 Then
+            Exit Sub
+        End If
+
         If CtrlApplicationAssignment1.Control_EditAssignment() = False Then
             MsgBox("Error while saving control", MsgBoxStyle.Critical, Text)
         Else
@@ -716,8 +728,4 @@ Public Class frmAdministration
             MsgBox("Profile has been duplicated. Please check the dependencies!", MsgBoxStyle.Information)
         End If
     End Sub
-
-    Private Sub GridViewProfiles_FocusedRowChanged(sender As Object, e As DevExpress.XtraGrid.Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfiles.FocusedRowChanged
-
-    End Sub
 End Class