Hi, thanks again for replying. OK, i've put it in a table. I've got the following code, could somebody please correct the syntax? You can probably tell what i'm trying to do:
Private Sub Form_Current()
Dim q As Date
q = DLookup("AllowEditsDate", "AllowEditsDateTable", "ID=1")
If q >...