Buongiorno
il codice che ho utilizzato l'ho trovato in rete (non ricordo di preciso la pagina) e l'ho adattato al mio database.
E' questo inserito su evento “Su clic”
Dim Ultimo As Integer
DoCmd.GoToRecord , , acLast
Ultimo = Me.numero
DoCmd.GoToRecord , , acNewRec
Me.numero = Ultimo + 1
Per quanto riguarda l'anno ho fatto una casella di testo a parte dove inserisco l'anno in automatico con il seguente codice sempre su evento “su clic”.
If dataodierna.Value >= #1/1/2023# And #31/12/2023# Then
miacasella.Value = 2023
End If
Mi sono arrangiato in quanto non sono molto bravo.
Non ho potuto fare questo post prima, e me ne scuso ma non avevo il file dove recuperare il codice sopra riportato.
Non potevo riscriverlo a memoria, in quanto come già detto copiato.
Conscio dello spirito del forum, cercherò di evitare post inutili solo per ringraziare e fornire nel più breve tempo possibile l'eventuale soluzione. (Ahimè non ho sempre la possibilità di stare al pc).
Grazie cmq di tutto.
Saluti