Discussion :

[jmde]

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

[fgiambelluco]

Bonjour
Pour obtenir ça

Aujourd’hui j’ai besoin de rajouter devant le numéro 9500 (9500-09001)

on peu essayer ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.txtNuméroFiche = "9500-"  + Right(Year(Now) * 1000+1),5)

[jmde]

Bonsoir fgiambelluco,

Merci pour ta réponse,

j'ai essayé avec cette syntaxe, le permier numéro se crée correctement mais le deuxième non car le numéro ne s'incrémente pas et provoque un doublon.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.txtNuméroFiche = "9500-" + Right((Year(Now) * 1000 + 1), 5)

Salutations

[fgiambelluco]

Bonjour

le deuxième non car le numéro ne s'incrémente pas et provoque un doublon

ce qui est normal, puisque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.txtNuméroFiche = "9500-" + Right((Year(Now) * 1000 + 1), 5)

génère toujours le même Numéro. Il faut adapter le code que tu as mis en début de POST.