Why Are The Check Boxes Greyed Out

[TellM1955]

I've a problem Editing a record. For whatever reason the last 2 columns of checkboxes are greyed out and the incorrect data is being read back in. I've provided the code that writes the data back in

Can anyone advise what the problem is or suggest the necessary changes I need to make to correct?

Thanks

Private Sub ReadStudentsDetails()
  
  Dim CurrentIDCell As Range
  
  Set CurrentIDCell = shStudents.Range("a1").Offset(CurrentRecordID, 0)
  
  txtSName.value = CurrentIDCell.Offset(0, 1).value
  txtFName.value = CurrentIDCell.Offset(0, 2).value
  CboYear.ListIndex = _
      WorksheetFunction.Match(CurrentIDCell.Offset(0, 3).value, _
      ShLists.Range("b2:b8"), 0) - 2
  ChkMHome.value = CurrentIDCell.Offset(0, 5).value
  ChkMClub.value = CurrentIDCell.Offset(0, 6).value
  chkMBus.value = CurrentIDCell.Offset(0, 7).value
  ChkMBoard.value = CurrentIDCell.Offset(0, 8).value
  ChkTHome.value = CurrentIDCell.Offset(0, 9).value
  ChkTClub.value = CurrentIDCell.Offset(0, 10).value
  ChkTBus.value = CurrentIDCell.Offset(0, 11).value
  ChkTBoard.value = CurrentIDCell.Offset(0, 12).value
  ChkWHome.value = CurrentIDCell.Offset(0, 13).value
  ChkWClub.value = CurrentIDCell.Offset(0, 14).value
  ChkWBus.value = CurrentIDCell.Offset(0, 15).value
  ChkWBoard.value = CurrentIDCell.Offset(0, 16).value
  ChkWHome.value = CurrentIDCell.Offset(0, 17).value
  ChkWClub.value = CurrentIDCell.Offset(0, 18).value
  ChkWBus.value = CurrentIDCell.Offset(0, 19).value
  ChkWBoard.value = CurrentIDCell.Offset(0, 20).value
  ChkWHome.value = CurrentIDCell.Offset(0, 21).value
  ChkWClub.value = CurrentIDCell.Offset(0, 22).value
  ChkWBus.value = CurrentIDCell.Offset(0, 23).value
  ChkWBoard.value = CurrentIDCell.Offset(0, 24).value
  ChkThHome.value = CurrentIDCell.Offset(0, 25).value
  ChkThclub.value = CurrentIDCell.Offset(0, 26).value
  ChkThBus.value = CurrentIDCell.Offset(0, 27).value
  ChkThBoard.value = CurrentIDCell.Offset(0, 28).value
  ChkFHome.value = CurrentIDCell.Offset(0, 29).value
  ChkFClub.value = CurrentIDCell.Offset(0, 30).value
  ChkFBus.value = CurrentIDCell.Offset(0, 31).value
  ChkFBoard.value = CurrentIDCell.Offset(0, 32).value
  ChkSHome.value = CurrentIDCell.Offset(0, 33).value
  ChkSClub.value = CurrentIDCell.Offset(0, 34).value
  ChkSBus.value = CurrentIDCell.Offset(0, 35).value
  ChkSBoard.value = CurrentIDCell.Offset(0, 36).value
  
  
End Sub

 

[Domenic]

It looks like those checkboxes that are greyed out have been assigned Null values. This can happen when assigning a value from a blank cell. For additional information, have a look at the following article...

TripleState property

Office VBA reference topic

learn.microsoft.com

Hope this helps!

 

[TellM1955]

Dom, thanks for the information om the triple state. However, I'm not so sure this is the issue. All the check boxes are all set to False and the data I'm trying to write into them are both true and false, yet on the form they are all greyed out as all being true.
Cheers

 

[RoryA]

They are either true and disabled or they are null, as Domenic said. Is their Triple State property set to True or False?

 

[TellM1955]

Rory, they are all set to false. Thanks

 

[RoryA]

Are they all enabled?

 

[TellM1955]

Rory, yep they are all enabled. As I said, I could understand better if the data they were displaying was correct and them being greyed out. But, displaying the wrong data is confusing. I would send a sample file but it appears, it's possibly me, there isn't a means to do this.

 

[RoryA]

You have to upload to a sharing site like OneDrive and then post a link here

 

[TellM1955]

Rory, again thanks for your assistance. Here is the link

OneDrive

 

[RoryA]

The form itself seems fine so the only other option is that you are assigning the value of blank cells to the controls.