I found this snipet on MS website
it loops through all the Y/N fields and changes their values from -1,0 to 1,0
Dim ctl as Control
For Each ctl in me.controls
if ctlControlType = acCheckBox (?) then
if me.ctl.value = -1
myval = 1
else
myval = 0
end if
end if
next ctl
Dim ctl as...