Solved Checkboxes with Yes / No

[Rania01]

Dear All,

I have a form where I have a 7 checkboxes. I want if the value on DateToday the same as the value on FirstDate
the checkboxes must be uncheck els check.

please help how to resolved this issue, I use below VBA

Option Explicit

Private Sub Form_Load()

If Me.DateToday.Value = Me.FirstDate.Value Then

Me.Monday.Enabled = False
Me.Tuesday.Enabled = False
Me.Wednesday.Enabled = False
Me.Thursday.Enabled = False
Me.Friday.Enabled = False
Me.Saturday.Enabled = False
Me.Sunday.Enabled = False

Else

Me.Monday.Enabled = True
Me.Tuesday.Enabled = True
Me.Wednesday.Enabled = True
Me.Thursday.Enabled = True
Me.Friday.Enabled = True
Me.Saturday.Enabled = True
Me.Sunday.Enabled = True


End If

End Sub

 

[arnelgp]

you set it's Value property not it's Enabled property:

Option Explicit

Private Sub Form_Load()

If Me.DateToday.Value = Me.FirstDate.Value Then

Me.Monday = False
Me.Tuesday = False
Me.Wednesday = False
Me.Thursday = False
Me.Friday = False
Me.Saturday = False
Me.Sunday = False

Else

Me.Monday = True
Me.Tuesday = True
Me.Wednesday = True
Me.Thursday = True
Me.Friday = True
Me.Saturday = True
Me.Sunday = True


End If

End Sub

you also need to Run the code on the Current Event of your Form.

 

[Rania01]

Dear Arnelgp,

I just Add below VBA on Current Event en not working

Option Explicit

Private Sub Form_Current()

If Me.DateToday.Value = Me.FirstDate.Value Then

Me.Monday.Enabled = False
Me.Tuesday.Enabled = False
Me.Wednesday.Enabled = False
Me.Thursday.Enabled = False
Me.Friday.Enabled = False
Me.Saturday.Enabled = False
Me.Sunday.Enabled = False

Else

Me.Monday.Enabled = True
Me.Tuesday.Enabled = True
Me.Wednesday.Enabled = True
Me.Thursday.Enabled = True
Me.Friday.Enabled = True
Me.Saturday.Enabled = True
Me.Sunday.Enabled = True


End If

End Sub

 

[Rania01]

Dear arnegp,

Sorry now is working thank you you are the best​