Anónimo respondió:
A la tabla la he llamado CodigoCorrelativo y al campo Código. Function CrearCorrelativo() Dim db As Database Dim rs As Recordset Dim rs1 As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("CodigoCorrelativo") Set rs1 = db.OpenRecordset("Select...