Hola:
Mucho no espicas, pero creo que esto te servira.
Dim db as database
Dim rc as recordset
Dim nd as double 'u otro tipo de numero
Set db=Currentdb()
Ser rc=db.openrecordset("nombre tabla")
rc.movelast
nd=rc.field(nº-1 de campo en el diseño tabla).value
me.[nombre campo cambiar en formulario].value=nd
rc.close
db.close
Exit Sub

Todo lo anterior lo vetes en el evento onClick de un boton del formulario donde estas danto de alta el nuevo registro, y listo.
Un Saludo