Valore predefinito -Access

Question

Aiutoooooo, Salve a tutti, ho un problema nel mio database.

casella di testo per conteggio automatico, codice valore predefinito:

="SPM" & Format(Date();"aa") & "." & Format(IIf(IsNull(DMax("[NumeroSpesa]";"[TabDataMovimenti]";"[NumeroSpesa] like 'SPM" & Format(Date();"aa") & ".??????'"));1;Right(DMax("[NumeroSpesa]";"[TabDataMovimenti]";"[NumeroSpesa] like 'SPM" & Format(Date();"aa") & ".??????'");6)+1);"000000") 

funzionava bene tutto a un certo punto ho notato che il conteggio come un valore predefinito su un nuovo record torna sempre al primo. Non ho idea come sistemare questa problema. Aiutoooo.... Grazie Anticipatamente.Vladi

Answer 1

Ciao Sandro, OK risolto problema, funziona in tutte due modi da codice VBA e da valore predefinito casella di testo. e andato qualcosa storto prima, se come  ho tabelle collegate ho fato un passo di questo genere: ho cancellato tabella movimenti e ho  fato un nuovo collegamento cosi e andato tutto a funzionare. Grazie Sandro Buona giornata.Vladi

Answer 2

ciao Vladi,

al cambio dell'anno la numerazione riparte da 1.

in questo modo visualizzi le ultime cifre dell'anno mantenendo la progressione esistente (preferisco assegnare la numerazione da VBA, personalizza la textBox contenente il controlloprogressivo qui sotto identificata come tuoProgressivo ):

Private Sub Form_Current()

If Me.NewRecord Then

       Me.tuoProgressivo= "SPM" & Format(Date, "yy") & "." & Format(IIf(IsNull(DMax("[NumeroSpesa]", "[t_TabDataMovimenti]", "[NumeroSpesa] like  '????????????'")), 1, Right(DMax("[NumeroSpesa]", "[TabDataMovimenti]", "[NumeroSpesa] like  '????????????'"), 6) + 1), "000000")

       Me.Dirty = False

End If

End Sub

vedi screenShot :

se non è questo il tuo obbiettivo spiega meglio lo scenario :-)

Buona domenica.

ciao, Sandro.