Parma,

Is this form bound or unbound (is there a recordsource for the form)?

If it is bound, your button should have a docmd.save block for the Click event. Then in your table, have the CR_Defect field be an indexed field. after the save, preform a recordset to find the AutoNumber value:

dim rs as recordset
set rs=currentdb.openrecordset("CR_Defect")
rs.index = "CR_Defect"
rs.seek "=", txtCR_Defect
txtID=rs!ID

Where txtID is an invisible text box on the form and ID is the AutoNumber field. You do not need to write this number to the form, but sometimes it is easier. This number can then be inderted where you need it.

The dame thing will be done for an unbound form, but you will have to code the AddNew ....Update protion of the recordset.