Thanks for the help but still having a problem. I entered the code in the control of the AccessionID field on my form as a BeforeUpdate event as follows:
Private Sub ID__BeforeUpdate(Cancel As Integer)
If Not IsNull(DLookup("AccessionID", "Booklist", "AccessionID=" & Me!Control)) Then
Cancel =...