Make Record Read Only By Value of Field

[Minty]

Possibly, but I think you are heading down the right path.
If you know the old system was flawed, and this redesign is making sense, then stick with it.

Most developers on here will tell you it's far better to start again, than "adjust" an existing system if it wasn't working.


But if you need to store your data a bit differently and or introduce some changes now is the time to strike, and it's the best time to make those "improvements" as necessary change.
Obviously your working reports etc, are fine, and can be tweaked if new data is required.

From your earlier description, it sounded as if the AFR numbers were possibly being reused ? That sounds a bit dangerous from a data perspective?

[billgyrotech1]

The previous AFR Numbers were accidentally reused and we had to contact the Customers to have their paperwork replaced. It is a bad thing to have identical AFR numbers in the field.

So avoiding this problem is an absolute must.

As far as how this new system is going so far so good.

Thank you so much

[billgyrotech1]

Could the records that have "Closed" in the Status field be locked for editing including the parts for that record?

[billgyrotech1]

I found this to lock the record for the form but how to also lock the parts for that record?

Then also how to unlock if needed?

Private Sub Form_Current()

If Me.Status = "Closed" Then
Me.AllowEdits = False
Else
Me.AllowEdits = True
End If

End Sub

[Minty]

The simple way is to lock the whole SubForm Container control;

Private Sub Form_Current()

If Me.Status = "Closed" Then
    Me.AllowEdits = False
    Me.AFRsParts1.Locked = True
Else
    Me.AllowEdits = True
    Me.AFRsParts1.Locked = False
End If

End Sub

[billgyrotech1]

Thanks that works locking the record for the form and subform.

Now I cannot use the search for AFRs and also how to unlock? Maybe code for the "Open" button?

[billgyrotech1]

I'm done thanks this is too much trouble.

Giving up is the only option now because it doesn't seem anyone will help.

I will keep trying to fix my old version of my database.

I appreciate your help though Minty but I get the feeling it's because of my rude behavior at first. I understand that people don't forgive.

[Minty]

Thanks that works locking the record for the form and subform.

Now I cannot use the search for AFRs and also how to unlock? Maybe code for the "Open" button?

I forgot that the setting AllowEdits = False generally stops most form functions from working, as you have discovered
That's why we tend to loop around individual controls and lock / unlock them.

If you look at the sample I loaded I thought I had included the lock on the sub form, and looped around the controls as per my original suggestion.

[billgyrotech1]

Don't bother Minty you have better things to do.

[billgyrotech1]

Here is the latest version of my AFR System.

Thank you again.

1) I have in place locking the initial fields when the Tear Down Report is printed but not sure if this only applies to the current record. If not could this be corrected to do so and also gray out the fields showing they are read only?

2) A way to lock the record including parts when the Status field is "Closed".

3) A way for the administrator to reopen the AFR by changing the Status field to "Open".

[billgyrotech1]

Hello Minty there have been some changes with help from others. Should I post the updated version or would you rather continue from the one I posted previously?

[Minty]

Hello Minty there have been some changes with help from others. Should I post the updated version or would you rather continue from the one I posted previously?

If you have an update I'll have a look at it.

[billgyrotech1]

What I am lacking on this version is the Clerk lock fields to be locked and grayed out (your excellent suggestion from earlier) and an Unlock button method.

Thanks Minty

[billgyrotech1]

I have been looking back and it seems there is a tag property that you have made code to lock the Clerk range of fields. I haven't not been successful yet but I will continue to try.

Thanks Minty for your excellent help

[CJ_London]

for the benefit of responders - cross posted here - https://www.access-programmers.co.uk...d.php?t=305551