Thanks a lot for your help, it worked a treat, did it like this:
Private Sub Date_Used_AfterUpdate()
Form.[Ref start] = Format([Date Used], "yymm")
Form.[Ref end] = DMax("[Ref end]", "Reference Number", "[Reference Number].[Ref start] = Form.[Ref start]") + 1
End Sub
Only thing now, is it...