If Me.TxtActualBenchmark.Enabled = False Then CurrentDb.Execute "INSERT INTO Scorecards (Results)" & _
"VALUES('" & Me.YesNoList & "');"
'Add data to form
CurrentDb.Execute "INSERT INTO Scorecards (ForTheMonth,FiscalYear,Groups,Contact,Goals,Bench marks,Results,Comments)" & _
"VALUES('" & Me.ComboMonth & "','" & Me.ComboFiscal & "','" & Me.ComboDepartment & "','" & Me.txtContact & "','" & Me.ComboGoals & "','" & Me.txtBenchmarks & "','" & Me.TxtActualBenchmark & "','" & Me.txtComments & "');"
'message box
Private Sub ComboGoals_AfterUpdate()
Select Case Me.ComboGoals
Case "Provision 2 and universal free meals to all students"
YesNoList.Visible = True
Case Else
YesNoList.Visible = False
End Select
Select Case Me.ComboGoals
Case "Provision 2 and universal free meals to all students"
TxtActualBenchmark.Enabled = False
Case Else
TxtActualBenchmark.Enabled = True
End Select
End Sub