MS05082016

app/DD-Record-Organiser/frmFollowUp.vb

@@ -274,6 +274,7 @@
     End Sub
     Sub SetCheckbox()
         Try
+            If GUIDTextBox.Text = "" Then Exit Sub
             Dim sql As String = "select FOLLOW_UP_DAYS from TBPMO_FOLLOW_UP_EMAIL where guid = " & GUIDTextBox.Text
             Dim follup_Days As String = ClassDatabase.Execute_Scalar(sql)
             Formloaded = False
@@ -285,7 +286,7 @@
             chkSamstag.Checked = False
             chkSonntag.Checked = False
 
-
+            If IsNothing(follup_Days) Then Exit Sub
             If follup_Days.Substring(0, 1) = 1 Then
                 CheckBox1.Checked = True
             End If