MS_13022016

app/DD-Record-Organiser/frmTool_ControlProperties.vb

@@ -25,13 +25,16 @@
 
     Public Sub LoadControlPropertiesNeu(ctrl As Control)
         Try
+            Dim TagID = DirectCast(ctrl.Tag, ClassControlMetadata).Id
             Dim sql As String = String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE CONTROL_ID = {0}", DirectCast(ctrl.Tag, ClassControlMetadata).Id)
+
             Dim dt As DataTable = ClassDatabase.Return_Datatable(sql)
             Dim props As Object = Nothing
             Dim r As DataRow = Nothing
             Dim type As String = Nothing
 
             If dt.Rows.Count <> 1 Then
+                MsgBox("Unexpected behaviour in LoadControlProperties: No Control could be loaded!" & vbNewLine & "Tag.ControlID: " & TagID.ToString, MsgBoxStyle.Exclamation)
                 Exit Sub
             End If