Discussion :

[nouveau17]

bonjour,

j'ai un bouton qui passe à un nouvel enregistrement et en même temp un numéro séquentiel.

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
Private Sub Commande5_Click()
On Error GoTo Err_Commande6_Click
 
    DoCmd.GoToRecord , , acNewRec
 OrderNumber = DMax("OrderNumber", "OrderT") + 1
Exit_Commande6_Click:
    Exit Sub
 
Err_Commande6_Click:
    MsgBox Err.Description
    Resume Exit_Commande6_Click
 
 
'OrderNumber = DMax("OrderNumber", "OrderT") + 1
End Sub

la question est comment ajouter une année avec le numero:
exemple: 0001/2025

si je suis au 2026 ca devien 0001/2026....etc

[micniv]

Puisque tu veux obtenir le format 0001/2025, OrderNumber est donc un String

Code :

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

1
2
3
4
5
6
 
' n:  nombre max : le max des 4 premiers de le colonne 
n= left(nz(dmax("OrderNumber ","OrderT","mid(OrderNumber ,6,4) ='" & year(date) & "'"),0) ,4)
' Vois les fonctions left, Nz et mid dans l'aide via F1
 
OrderNumber = format(n+1, "0000/") & year(date)

[nouveau17]

bjr,

en actionnant le bouton message valeur non valide pour ce champ me donne la valeur de zero aucune incrémentation en sachant que "OrderNumber" est numérique dans la table

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
Private Sub Commande5_Click()
On Error GoTo Err_Commande6_Click
 
    DoCmd.GoToRecord , , acNewRec
 
    ' n:  nombre max : le max des 4 premiers de le colonne dans 
n = Left(Nz(DMax("OrderNumber ", "OrderT", "mid(OrderNumber ,6,4) ='" & Year(Date) & "'"), 0), 4)
' Vois les fonctions left, Nz et mid dans l'aide via F1
 
OrderNumber = Format(n + 1, "0000/") & Year(Date)
 
' OrderNumber = DMax("OrderNumber", "OrderT") + 1
 
 
Exit_Commande6_Click:
    Exit Sub
 
Err_Commande6_Click:
    MsgBox Err.Description
    Resume Exit_Commande6_Click
 
'OrderNumber = DMax("OrderNumber", "OrderT") + 1
End Sub

[star]

Bonjour,
Par expérience, une table de compteurs par année résoudrait cette règle de numérotation simplement
Cela me parait évident
Bon DEV
.

[micniv]

... en sachant que "OrderNumber" est numérique dans la table

"OrderNumber" ne peut pas être numérique puisque tu y stockes un format comme 0002/2025

[nouveau17]

merci ca fonctionne bien en mettant le champ teste cour.
j'ai un autre souci je voudrai interdire de passer à un autre enregistrement si ordernumer est vide. j'ai essayé de mettre le champ nul vide interdit ===>oui ca marche en vba c'est comment

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub OrderNumber_AfterUpdate()
 
If Me.OrderNumber = "" Then
    MsgBox ("Veuillez ajouter un nouvel enregistrement")
Else
    rs.AddNew
    rs!OrderNumber = Me.OrderNumber
 
End If
 
End Sub

[micniv]

Alors, tu peux mettre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub OrderNumber_AfterUpdate()
 
If nz(Me.OrderNumber) = "" Then
'   si OrderNumber est vide ou nul
    MsgBox ("Veuillez ajouter un nouvel enregistrement")
Else
    rs.AddNew
    rs!OrderNumber = Me.OrderNumber
End If
 
End Sub

[nouveau17]

bjr,

ca ne fonctionne pas car j'ai testé en passant d'un enregistrement à autre sans blocage !??
A savoir que le code est placé après mise à jour.

[nouveau17]

bonjour,
sa fonctionne avec ce code....

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    If IsNull(Me.OrderNumber) Or Me.OrderNumber = "" Then
        MsgBox "Le champ OrderNumber ne peut pas être vide...veuillez actionner le bouton", vbExclamation, "Erreur"
        Cancel = True 
    End If
End Sub