Save record so no changes can be made

[angie]

Hi I have a form that we enter data into and once we have it correct I want it so no changes can be made to the records


I have a combo box with a value of "pending" and " approved" I want to prevent changes to this record only if "approved" is selected.

[ranman256]

In the forms ON CURRENT event,
lock the form unless the cbobox = Approved

sub form_OnCurrent()
  me.locked = not (cbobox = 'Approved')
end sub

[orange]

You could also research the AllowEdits Property of your form.

[angie]

In the forms ON CURRENT event,
lock the form unless the cbobox = Approved

sub form_OnCurrent()
  me.locked = not (cbobox = 'Approved')
end sub

I want to lock the record not the form. I tried the above but nothing happens
I used the followins

me.locked = not (status = 'pending')

(status is the combo box and I want it to lock the record if the results is approved.
thanks angie

[Micron]

If you want to do this on a record by record basis (and presumably you want users to be able to cycle through records on the form) then locking the form by any means won't do it. You'll have to examine the parameter (status?) in a suitable event and disable or lock the form controls. The form OnCurrent event should work as long as you haven't done anything design-wise to make it unsuitable.

The way I like to do this is add a control tag property value and cycle through the form controls looking for that value. If found, disable it according to the parameter value. Another way is to have a flag field (yes/no type) in the table to flag locked records. Using the same approach, you'd lock or disable the required controls based on the flag. This would only provide more flexibility, such that you would not have to have all records with a given status affected the same way. Using the following should disable every text or combo box regardless of any tag property, but it should provide a clue as to what I'm suggesting

Dim ctl As Control

If Me.Status = "approved" Then
  For each ctl in Me.Controls
    If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
      ctl.Disabled = True
    End If
  Next
End If

It's entirely from memory, which is not always serving well these days.

[Missinglinq]

The Locked property applies to individual Controls, not to the Form, itself, as a whole.

To do this you can use

Private Sub Form_Current()
 If Me.Status = "Approved" Then
  Me.AllowEdits = False
 Else
  Me.AllowEdits = True
 End If
End Sub

Linq ;0)>