I have tried changing this vba code any which way and cant get error messages to disappear. I am trying to lock old records and unlock for new forms. I have done this for one form field but cant get this peice of code to work. The field I am working with is a combo box. Thanks

Private Sub Form_Open(Cancel As Integer)
Dim ContainerForm As Form
If Nz(Form.Containertype) = 0 Then
Form.Containertype.Locked = False
Else
Form.Containertype.Locked = True
End If
End Sub

Okay I fixed that by changing the names of the fields into container all over the place to make that work, but now I can't get it to unlock from locked. What should I have in the place where the 0 is to check the field if it is a text. I tried null and that didnt work

K, I know my problem, I fixed all the code and forms and I ran it on sub Form_current and it worked but I already have the same lock unlock happening on current, so I need this container to lock on another like Form_open event or on_click but neither seem to work correctly, any suggestions?
Please help

K, I know my problem, I fixed all the code and forms and I ran it on sub Form_current and it worked but I already have the same lock unlock happening on current, so I need this container to lock on another like Form_open event or on_click but neither seem to work correctly, any suggestions?
Please help

]I think the problem lies with

because it seems to me that the condition is always failing and so executing the else part.

A way to check it out would be to swap the conditions thus.
or maybe simply:
With NZ

End