Référence personnalisée textbox

bonjour le forum

UN GRAND MERCI A f894009 ET ThauTheme

SVP,
J'ai un USF qui me permet d'alimenter un tableau. Je souhaiterais qu'à chaque utilisation une référence automatique soit attribuée dans TextBox27 mais avec un format personnalisé.
aussi changeable à chaque identification.

exemple: (01CIV-0001-2017) ; (01CIV-0002-2017) ; (01CIV-0003-2017) ainsi de suite

voici le code que j'ais inscris:

TextBox27 = "01CIV-" & Format(Val(Max + 1), "0000") & Format(Now(), "-yyyy")

malheureusement ça ne change pas ça reste toujours : 01CIV-0001-2017)

merci de m'aidé

voir pièce jointe

https://www.cjoint.com/c/GDtrbSpPdNM