MS

app/DD-Record-Organiser/frmDiagrams.vb

@@ -6,7 +6,10 @@ Public Class frmDiagrams
         Try
             Dim CHART_ENTITY_SQL As String = "SELECT * FROM TBPMO_CHART_ENTITY WHERE ENTITY_ID = " & CURRENT_FORM_ID
             Dim CHART_ENTITY_DT As DataTable = ClassDatabase.Return_Datatable(CHART_ENTITY_SQL)
-
+            If CHART_ENTITY_DT.Rows.Count = 0 Then
+                MsgBox("No Charts configured for this entity!", MsgBoxStyle.Exclamation)
+                Exit Sub
+            End If
             ' Check if Bottom Chart containers are needed
             Select Case CHART_ENTITY_DT.Rows.Count
                 Case 0