time stamp lock for records

[Linda]

Need to lock certain records after midnight each day. Help

 

[Arvin Meyer [MVP]]

Need to lock certain records after midnight each day. Help

If you can Identify the records, then (air code):

Sub Form_Current()

If Me.txtWhatever = 6 Then ' Identify the record
Me.AllowEdits = False
End If
End Sub

 

[Pieter Wijnen]

Sub Form_Current()

If Me.txtWhatever = 6 Then ' Identify the record
Me.AllowEdits = False

Else
Me.AllowEdits = True

End If
End Sub

As always "helpful"

Pieter

 

[Linda]

I apologize but I have only written a handful of code - can you please be a
little more specific, actually VERY specific with exact code- I see the logic
just want to be able to dot I's and cross t's. thanks again.

 

[Arvin Meyer [MVP]]

True enough, that's why I enable them air code.

Very helpful. Thanks.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

"Pieter Wijnen"

 

[Pieter Wijnen]

I sometimes get paid for this, but
Form /Properties/ OnCurrent / Builder ... (Event Proc)

Private Sub Form_Current()

If Time() < 21600 Then ' 21600 secconds = 6:00 AM
If Me.CriteriaField.Value = True Then ' I Assume a Yes/no Field is Used
to Flag the Record, a bit limited info available on that
Me.EnableEdit = False
Else
Me.EnableEdit = True
End If
Else
Me.EnableEdit = True
End If

End Sub

HTH

Pieter

"Pieter Wijnen"