comunque ti invio il codice per ottenere quanto sopra scritto.

devi aumentare in tabella un campo che chiamerai numero, (con formato numerico),

fai una query di selezione della tabella che contiene il campo numerico.

in struttura maschera vai nelle sue proprietà, nella sezione evento, riga caricamento e incolla questo codice:

Dim dbs As Database, rst As Recordset
Dim strSQL As String
Dim pippo As Long
pippo = 0
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("NOME TUA QUERY")
If rst.RecordCount <> 0 Then
rst.MoveFirst
Do While Not rst.EOF
rst.Edit

rst!numero = pippo + 1
pippo = rst!numero
rst.Update
rst.MoveNext
Loop
rst.Close
Set dbs = Nothing
End If
Me.Refresh


ricordati di mettere il campo numero nella maschera prima di tutti i campi del record.

ogni qual volta aprirai la maschera il codice si attiverà numerando tutti i record da 1 a ...ecc.

ciao
mila