Discussion :

[ToFind]

A mon avis ceci est plus correct:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Compare Database
Option Explicit
 
Private Sub DteStart_AfterUpdate()
Dim intAn As Integer
Dim NMax As Integer
 
intAn = CInt(Year(Me.DteStart))
NMax = Nz(DMax("num", "tbl1", "CInt(Year([DteStart])) =" & intAn), 0)
Debug.Print NMax + 1
Me.Num = NMax + 1
 
Me.An = CInt(Year(Me.DteStart))
 
Select Case NMax
 
Case Is < 9
  Me.NumDos = An & "00000" & Num
Case Is < 99
  Me.NumDos = An & "0000" & Num
Case Is < 999
  Me.NumDos = An & "000" & Num
Case Is < 9999
  Me.NumDos = An & "00" & Num
 
End Select
 
End Sub

Qu'en penses-tu?

[Heureux-oli]

avec 9, 99, ..

C'est pas bon 9 passe au case n° 2

[ToFind]

Voici le code final qui fonctionne (après vérification). Ne me demande pas de t'expliquer pourquoi, mais en tout cas, ça fonctionne.

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
Private Sub DteStart_AfterUpdate()
Dim intAn As Integer
Dim NMax As Long
 
intAn = CInt(Year(Me.DteStart))
NMax = Nz(DMax("num", "tbl1", "CInt(Year([DteStart])) =" & intAn), 0)
Debug.Print NMax + 1
Me.Num = NMax + 1
 
Me.An = CInt(Year(Me.DteStart))
 
Select Case NMax
 
Case Is < 9
  Me.NumDos = An & "00000" & Num
Case Is < 99
  Me.NumDos = An & "0000" & Num
Case Is < 999
  Me.NumDos = An & "000" & Num
Case Is < 9999
  Me.NumDos = An & "00" & Num
Case Is < 99999
  Me.NumDos = An & "0" & Num
Case Is < 999999
  Me.NumDos = An & "" & Num
 
End Select
 
End Sub

Encore bien merci.

[Arkham46]

Dans ce cas, il faut faire un select case et compléter avec les 0 qui manquent.

Code :

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

1
2
3
4
5
6
Selct Case NMax
Case < 10
  An & "00000" & Num
Case < 100
  An & "0000" & Num
End select

Heu ce ne serait pas ce que fait plus simplement l'instruction Format?

Code :

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

Me.NumDos = An & format(Num,"000000")

[Heureux-oli]

Grrrrrrrr
Heureusement que tu es là, tu as raison une fois de plus.