Use VBA to enable a text box when a check box is checked

Question

I am new to VBA and I'm trying to create a form in Access where a text box is enabled or disabled based on whether a check box is checked or unchecked. So if the 'Survey Requested?' box is checked the 'Date Survey Requested' box is enabled for the user to enter a date. I have the following code: Private Sub CheckSurveyRequested_AfterUpdate() If CheckSurveyRequested = True Then DateSurveyReq.Enabled = True Else DateSurveyReq.Enabled = False End If End Sub But this comes up with a '424 Object Required' error when I run line 5. Anyone have a suggestion as to what I'm doing wrong here? JavaScript questions and answers, JavaScript questions pdf, JavaScript question bank, JavaScript questions and answers pdf, mcq on JavaScript pdf, JavaScript questions and solutions, JavaScript mcq Test , Interview JavaScript questions, JavaScript Questions for Interview, JavaScript MCQ (Multiple Choice Questions)

Answer 1

You should definitely use the AfterUpdate event---tying the behavior of your textbox to the click event means that a user using their keyboard to navigate the form won't get the same behavior. Also, you should replicate this behavior when the form loads: If the default value for the checkbox is False, then your textbox should be disabled when the form loads. Also, as @ErikA notes, you can do this with one readable line. So I would recommend something like this: Option Explicit Private Sub chkSurveyRequested_AfterUpdate() Me.txtDateSurveyReq.Enabled = Me.chkSurveyRequested.value End Sub Private Sub Form_Load() Me.txtDateSurveyReq.Enabled = Me.chkSurveyRequested.value End Sub In order to not repeat yourself, you could move this code into a separate sub: Option Explicit Private Sub Form_Load() ' assign the function below to the AfterUpdate event of the checkbox. Me.chkSurveyRequested.AfterUpdate = "=UpdateControls()" ' now execute the function directly UpdateControls End Sub Private Function UpdateControls() Me.txtDateSurveyReq.Enabled = Me.chkSurveyRequested.value End Function