Run this query right after you delete the record:


VB Code:
  1. UPDATE ss_table
  2. SET ss_table.sID = Left([sID],1) & Format(CLng(Mid([sID],2))-1,"0000")
  3. WHERE (((ss_table.sID)>"s0002"));