I have a button that locks a field

[jommyjet]

I have a button that locks a field ( in another form) selected from a combobox, but the design changes are not saved when I re-open the form where I lock a field. This seems simple, I must be missing a setting that allows editing changes. any ideas? thanks
could it be my form view?



If Me.lock.Value = "mar2002" Then
DoCmd.OpenForm "editmonthlyassignments2", acFormDS
Forms!editmonthlyassignments2![Mar2002].Locked = True
DoCmd.close acForm, "editmonthlyassignments2", acSaveYes

 

[redapples]

but the design changes are not saved when I re-open the form where I lock a field

Do you mean that you press the button which opens the form and the required locked field is not locked?

If so, then pass the name of the field to be locked in the openargs of the form

DoCmd.OpenForm "editmonthlyassignments2", , , , , , (fieldtolock)

then on the open event for the editmonthlyassignments2 form

dim ctrl as control

If not isnull(me.openargs)then
     set ctrl = me!(openargs)
     with ctrl
     .locked =true
     end with
end if