Ok valle, eccoti il codice per la maschera
devi aumentare in tabella un campo che chiamerai numero, (che avrà un formato numerico),
fai una query semplice che sarà della tabella che contiene il campo numerico.
dopo 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 ...
ciao
mila
milaion