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
Can anyone advise what the problem is or suggest the necessary changes I need to make to correct?
Thanks
VBA Code:
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