Change your control source to
=IIf([yourColumn]=1,[yourColumn] & "*",[yourColumn])
Be sure that your textbox is not named the same as your column name. Access does this be default which is really annoying and breaks things like this. Change your textbox name to something like txtyourColumn