Change insert into code on the condition of a yes/no list box becoming visible

[GinaFlan]

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

[ranman256]

''NO QUOTES FOR BINARY VALUES!

If NOT TxtActualBenchmark.Enabled  Then CurrentDb.Execute "INSERT INTO Scorecards (Results)" & _
"VALUES(" & YesNoList & ");"

Private Sub ComboGoals_AfterUpdate()
     YesNoList.Visible = ComboGoals = "Provision 2 and universal free meals to all students"
     TxtActualBenchmark.Enabled =NOT YesNoList.Visible
End sub

[GinaFlan]

I almost have it working . I have another question? Should disabling txtActualBenchmark stop my message box? I'd like for it to stop the message box.

If Nz(Me.TxtActualBenchmark, "") = "" Then ' No business unit
MsgBox ("Please add Results!"), vbOKCancel ' Tell user
Me.txtContact.SetFocus ' Focus the control
Exit Sub ' Exit the method
End If ' End the IsNull test

[GinaFlan]

I figured out how to get the message box to stop

[GinaFlan]

Where should I put this part? Under the CmdAdd?

If NOT TxtActualBenchmark.Enabled Then CurrentDb.Execute "INSERT INTO Scorecards (Results)" & _
"VALUES(" & YesNoList & ");"

[GinaFlan]

Firgured it out, I did this instead
Private Sub Comboyesorno_Change()
Me.TxtActualBenchmark.Value = Me.Comboyesorno.Column(0)
End Sub

Thank you for the other code it helped a lot