VBA Userform: Checkbox & IF statement

[MrRajKumar]

Hello,

I have a checkbox in an userform named as chkList. If it is checked, 3 other controls will be disabled, so the users wouldn't need to fill those fields. If not, I have ensure the users filled those fields. here is I have tried, but doesn't work.

Cotrols:
txtYear - text box
cboMonth: combo box
cboDay: combo box

If Me.chkList.Value = False And Me.txtYear & "" = "" Then
     Me.lblErrYear.Caption = "Required"
     Me.txtYear.SetFocus
     Exit Sub
End If

With this I got runtime error: 2110 (Can't focus to the control because it is invisible, not enabled...)

it is disabled, because chkList is checked TRUE. I want to bypass this section, if it is checked.

 

[abdelfattah]

Hi,
not really understand what you want!
but try this

Private Sub chkList_Click()
If Me.chkList.Value = True Then
txtYear.Enabled = False
cboMonth.Enabled = False
cboDay.Enabled = False
Else
txtYear.Enabled = True
cboMonth.Enabled = True
cboDay.Enabled = True
     Me.lblErrYear.Caption = "Required"
     Me.txtYear.SetFocus
     Exit Sub
End If
End Sub

 

[MrRajKumar]

Thank you for the reply.

Sorry for the confusion. I am not trying to add the code for checkbox. Instead, I am looking for a code to add to a command button.

When I clicked on a checkbox, It successfully disabled the controls (txtYear, cboMonth & cboday). No issue here.
When I click on cmdSave I have to check these three controls. If these are not disabled (because chkList not clicked) then users must enter values in those three controls. if it is disabled, then skip to checking these three fields.

I hope my reply avoid the confusion. Thank you & sorry once again for the confusion.

 

[abdelfattah]

What should do when click commandbutton1 ?
the tools should be enabled and not clicked chkList ?

 

[Akuini]

Untested:

If Me.chkList.Value = False Then
     If Me.txtYear = "" Then
        Me.lblErrYear.Caption = "Required"
        Me.txtYear.SetFocus
        Exit Sub
     End If
End If

 

[MrRajKumar]

What should do when click commandbutton1 ?
the tools should be enabled and not clicked chkList ?

The commad button, just adding control's values to a sheet. if the check box is clicked, then skip those three control's values & take values from other controls, otherwise include those three control's values as well.

 

[MrRajKumar]

Untested:

If Me.chkList.Value = False Then
     If Me.txtYear = "" Then
        Me.lblErrYear.Caption = "Required"
        Me.txtYear.SetFocus
        Exit Sub
     End If
End If

Looks like this works. Thank you.

 

[Akuini]

You're welcome, glad to help & thanks for the feedback.