In the on-click event of the button, place the following
code before the code that creates the record. Replace the
text between the quotes with whatever you wish the nessage
to say (first set) and what you want in the header of the
message box (2nd set):
if not isNull(FieldName) then
msgbox "Record already created", vbCritical, "Error"
exit sub
end if
Rgds,
Glenn