>>>>>*** To calculate value and let you have 6 CheckBoxes in the forms: >>>>>lnValue = 0 >>>>>FOR lnFor = 1 TO 6 >>>>> WITH EVALUATE("thisform.Check"+TRANSFORM(lnFor)) >>>>> lnValue = IIF(.Value, BITSET(lnValue, m.lnFor-1)) >>>>> ENDWITH >>>>>NEXT >>>>>? lnValue >>>>> >>>>>*** To Get it back: >>>>>lnValue = FieldWhereYouSave >>>>>FOR lnFor = 1 TO 6 >>>>> WITH EVALUATE("thisform.Check"+TRANSFORM(lnFor)) >>>>> .Value = BITTEST(lnValue, m.lnFor-1) >>>>> ENDWITH >>>>>NEXT >>>>>>>>