[VBA/ACCESS] Numerazione progressiva di fatture

[fdn]

Mi scuso per la mia precedente richiesta nella quale non avevo specificato il linguaggio di programmazione.
Torno a chiedervi una mano per l'impostazione di un campo in una Maschera Fatture che mi crei un Numero progressivo per le fatture con aggiunta delle ultime due cifre dell'Anno corrente (es. 0001/07). L'aggiornamento del numero fattura deve avvenire cliccando un apposito pulsante.
Infine la numerazione deve ricominciare all'inizio del nuovo anno.
Ancora grazie.

[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)

[fdn]

grazie mille fabio..ora provo ad utilizzarlo