[VBA/ACCESS] Numerazione progressiva di fatture

[fabio309]

supponiamo che tu abbia la tabella Fatture e il campo Numero

Function numero_fattura_progressivo()
Dim rc As Recordset
Set rc = CurrentDb.OpenRecordset("SELECT Max(Val(Left([numero],3))+1) AS numero_successivo FROM Fatture WHERE (((Right([numero],2))=Right(Date(),2)));")
If IsNull(rc(0)) Then
    numero_fattura_progressivo = 1
Else
    numero_fattura_progressivo = rc("numero_successivo")
End If
rc.Close
Set rc = Nothing
End Function

dopo il numero fatura lo devi comporre con una funzione tipo
Right("000" & numero_fattura_progressivo, 3) & "/" & Right(Date(),2)