Lock the old records from editing (form view)

[santon]

Hello, I need a help with locking the record from editing in form view.
I have buttons with command to go to "Previous record" and "Next record" (arrows left and right on the picture)



In the lower left corner you can see the field "Datum" which contains the date of the record.
I want to lock the older records from editing (disable).
Today's date records can be edited, but everything from the past can only be viewed, but not modified.

Is there a way to do this?


I don't want users messing up the older records.

[ranman256]

in the form ON CURRENT event
lock the form from edits if the date is wrong:

Private Sub Form_Current()
Me.AllowEdits = txtDateFld = date()
end sub

[CJ_London]

use conditional formatting for the controls you want to lock. This will lock controls on all records over 5 days old

expression is....[Datum]<date()-5

set the condition to disabled


alternatively in the form current event put

me.allowedits=[Datum]>=date()-5

but you might find the disables controls you still want to be able to edit.

[santon]

in the form ON CURRENT event
lock the form from edits if the date is wrong:

Private Sub Form_Current()
Me.AllowEdits = txtDateFld = date()
end sub

I've tried this and it won't work, as soon as I enter the form view it shows me the error.

Ajax

use conditional formatting for the controls you want to lock. This will lock controls on all records over 5 days old

expression is....[Datum]<date()-5

me.allowedits=[Datum]>=date()-5

The conditional formatting works, but the second part of your answer isn't.
I have typed that expression into "On current" in my form and nothing happens after that, I can still edit everything.

[CJ_London]

I have typed that expression into "On current" in my form and nothing happens after that, I can still edit everything

suggest show what you have actually typed

as soon as I enter the form view it shows me the error.

what is 'the error'

[Missinglinq]

...I have typed that expression into "On current" in my form and nothing happens...

You can't enter the code in the On Current Property (Properties - Events - On Current) which I assume is what you've done, from your post...it has to be in the VBA code module of your Form...as ranman256 posted:

Private Sub Form_Current()
  Me.AllowEdits = txtDateFld = date()
End Sub

Linq ;0)>

[santon]

You can't enter the code in the On Current Property (Properties - Events - On Current) which I assume is what you've done, from your post...it has to be in the VBA code module of your Form...as ranman256 posted:

I know that, I have selected Event procedure then entered the code and it doesn't work.


I have tried these two options, now there is no error, but I can still edit everything and it is very slow in form view, almost impossible to do anything.

[Welshgasman]

Try

Me.AllowEdits = (Datum = Date)

[santon]

Try

Me.AllowEdits = (Datum = Date)

It returns this error

[CJ_London]

is Datum the name of the field or the control? or both

Also, is the field always populated (i.e. default is date() for new records)

always helps if you post the actual code you have used - for all we know you have a typo

you said the conditional formatting works, so it has to be something to do with your form or data

[santon]

is Datum the name of the field or the control? or both -->

Also, is the field always populated (i.e. default is date() for new records)

always helps if you post the actual code you have used - for all we know you have a typo

you said the conditional formatting works, so it has to be something to do with your form or data

Datum is both, control and field name.

Also tried this code, return same error as I posted screenshot before.






Conditional formatting now also doesn't work and the form view is incredibly slow.
I don't know what's going on.
Had to restore backup, tried conditional formatting again - NOT WORKING
I don't even know how it worked the first time

[Welshgasman]

Well corruption *might* be an issue as that should work fine.?

Try a new fomr with just that code with enough to test.

Try a /decompile as well, then a compile.

[santon]

Well corruption *might* be an issue as that should work fine.?

Try a new fomr with just that code with enough to test.

Try a /decompile as well, then a compile.

I tried on different form, it worked, both the conditional formatting and the code.
But when I try to navigate between records, when I am the end and there is nothing left it gives me these two errors. (I am on my last record and I click the button for "Next record" )

[Welshgasman]

So perhaps check for Null for a control, or perhaps EOF of the recordsetclone, or even Me.NewRecord ?

You should not be proceeding past the EOF unless you decide to add a record.

[santon]

So perhaps check for Null for a control, or perhaps EOF of the recordsetclone, or even Me.NewRecord ?

You should not be proceeding past the EOF unless you decide to add a record.

I'm sorry can you explain it to me little simpler?
I'm really a noob, recently started learning about VBA and Access and I don't fully understand your advice