locking records 'on click'

[JustMaybe]

Right ….i’ve been using this code to save and lock records that are finished…however it seems that ‘on click’ I’m locking all the records…including new ones…so I can’t create anymore. If I exit the form, go into design view or edit the code in some way..i’m able to create a new record and all the records are unlocked!!! Really stuck can anyone help???

Private Sub SaveandLock_Click()
On Error GoTo Err_SaveandLock_Click


'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

If Me.NewRecord Then

Me.CustomerID.Locked = False
Me.VAT.Locked = False
Me.Address.Locked = False
Me.ShipAddress.Locked = False
Me.ShipAddress2.Locked = False
Me.ShipCity.Locked = False
Me.ShipRegion.Locked = False
Me.ShipPostalCode.Locked = False
Me.ShipCountry.Locked = False
Me.CustomerReferenceNo.Locked = False
Me.Reseller.Locked = False
Me.EndUser.Locked = False
Me.ShipVia.Locked = False
Me.InvoiceNo.Locked = False
Me.OrderID.Locked = False
Me.OrderDate.Locked = False
Me.ShippedDate.Locked = False
Me.MemoField.Locked = False
Me.EmployeeID.Locked = False
Me.Subtotal.Locked = False
Me.Freight.Locked = False
Me.Text228.Locked = False
Me.Total.Locked = False
Me.PaymentTerms.Locked = False
[Orders SubForm].Locked = False

Else

Me.CustomerID.Locked = True
Me.VAT.Locked = True
Me.Address.Locked = True
Me.ShipAddress.Locked = True
Me.ShipAddress2.Locked = True
Me.ShipCity.Locked = True
Me.ShipRegion.Locked = True
Me.ShipPostalCode.Locked = True
Me.ShipCountry.Locked = True
Me.CustomerReferenceNo.Locked = True
Me.Reseller.Locked = True
Me.EndUser.Locked = True
Me.ShipVia.Locked = True
Me.InvoiceNo.Locked = True
Me.OrderID.Locked = True
Me.OrderDate.Locked = True
Me.ShippedDate.Locked = True
Me.MemoField.Locked = True
Me.EmployeeID.Locked = True
Me.Subtotal.Locked = True
Me.Freight.Locked = True
Me.Text228.Locked = True
Me.Total.Locked = True
Me.PaymentTerms.Locked = True
[Orders SubForm].Locked = True

End If


Exit_SaveandLock_Click:
Exit Sub

Err_SaveandLock_Click:
MsgBox Err.Description
Resume Exit_SaveandLock_Click

End Sub

Thanks a lot in advance!!!
S

 

[JustMaybe]

In case anyone is interested as to how i solved this...

I created a check box and used the following code

If Me!YourCheckBox.Value = True Then
Me.AllowEdits = False
[Orders Subform].Locked = True
Else
Me.AllowEdits = True
[Orders Subform].Locked = False

End If

i also put this code in the forms 'oncurrent' event so only the current record would be locked!! i then placed a toggle button on top and used the control source as 'yourcheckbox' ..made the checkbox invisible..and the form looks axactly the same