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"