Ho bisogno di un aiuto,
in una maschera di inserimento con caselle di testo:
Data
progressivo
progressiviomanovra
avrei bisogno che la casella [progressivo] partendo da 0, aumentasse di una unita ad ogni inserimento di un nuovo record, e al cambio della casella [Data] si azzerasse e reiniziasse il conteggio.
Sucessivamente nella casella [progressivomanovra] andrei ad aggiungere altre al [progressivo] creato anche il giorno di inserimento, riuscendo ad avere un numero del tipo 001/12.
Spulciando un pochino in giro ho trovato questo codice che ho inserito sull'evento (Prima di inserire), ma non funziona in quanto il valore di [progressivo] non varia
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim progressivo As String
progressivo = Format(Nz(DMax("[progressivo]", "Manovre", "[Data]" = "Date"), 0) + 1, "000")
Me.progressivo.DefaultValue = progressivo
Me.progressivomanovra.DefaultValue = "'" & progressivo & "/" & Day(Date) & "'"
End Sub
Vi ringrazio anticipatamente