buongiorno e grazie funziona perfettamente.
Ho applicato una nuova modifica per l'anno modificando il DMax che tenesse conto dell'anno in corso altrimenti avrebbe calcolato il numero + grande esistente in tabella inserendolo così:

nmax = DMax("[NumeroFattura]", "Fattura", "Anno=" & Year(Date))

In questa maniera guarda anche il campo "Anno" e vede il numero + grande riferito all'anno.
Complimenti ed ancora grazie.
Adesso appena posso comincerò a fare i report.