Bonjour,

J’utilisais ce code pour obtenir dans une table un numéro de fiche personnalisé(2009001) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
For intI = 1 To 30
 
Me!txtNuméroFiche = DMax("val([Numérofiche])", "[tbl Fiche Adhérent vierge]") + 1
 
If IsNull(Me.txtNuméroFiche) Or Me.txtNuméroFiche < Year(Now) * 1000 Then
 
Me.txtNuméroFiche = 1 + Year(Now) * 1000
 End If
 
rs.AddNew
      rs("NuméroFiche") = Me!txtNuméroFiche
      rs("DateFiche") = Date
      rs.Update
 
Next intI
Aujourd’hui j’ai besoin de rajouter devant le numéro 9500 (9500-09001)

En faisant cela ça ne fonctionne pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Me.txtNuméroFiche = "950-" & 1 + Year(Now) * 1000
Merci pour votre aide.

Salutations