Discussion :

[jawed]

Bonjour a vous tous
J'ai un champ qui se nomme NbrReg qui se trouve dans la table T_Factures
Dans le sous formulaire F_Rejet le champ NbrReg est alimentée par ce code

Code :

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

me.parent.NbrReg.value=dmax("NbrReg","T_Factures")+1

Ma question si c'est possible comment remettre la valeur du champ NbrReg a 1 à chaque début d'année
Cordialement

[tee_grandbois]

bonsoir,
c'est un peu bancal comme méthode ...
si la date d'émission de la facture suit la date du jour, il faut tester l'année de cette date par rapport à l'année de la date du jour et ajouter le contrôle dans le paramètre WhereCondition de la fonction:

Code :

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

me.parent.NbrReg.value=nz(dmax("NbrReg","T_Factures","Year(Date_facture)=Year(Now)"),0)+1

par contre, cela implique d'interdire de saisir toute facture de l'année précédente

[jawed]

Bonjour tee_grandbois
Merci pour votre retour, effectivement votre code remet la valeur du champ a 1 au début de l'année, mais il ne s'incremente pas a l'ajout d'une autre facture en cette nouvelle année.
Aussi vous avez dit que c'est bancal comme méthode, ce serai très aimable de votre part de me montrer une meilleure solution.
Cordialement

[tee_grandbois]

bonjour jawed,

mais il ne s'incremente pas a l'ajout d'une autre facture en cette nouvelle année.

il faudrait montrer le contexte d'utilisation (le code complet à minima, pas juste une ligne de code) car en théorie le code devrait fonctionner ...

Aussi vous avez dit que c'est bancal comme méthode

j'ai dit que c'est un peu bancal, pas que c'est inadapté, cette méthode implique juste qu'on ne peut pas saisir une facture oubliée l'année précédente sauf à changer la date système (ce qui peut être à la limite de la légalité).

[jawed]

Bonjour tee_grandbois
Désolé si je n'étais pas clair au premier post.
Ce champ NbrReg et le numéro de l'ordre de virement de la facture alors c'est obligatoire d'avoir un numéro qui augmentera par un a chaque nouveau paiement. Aussi a chaque nouvelle année la valeur du champ recommence de 1
Pour le code que j'utilise

Code :

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

1
2
3
4
5
6
Private sub num_dotation_afterupdare()
If not isnull ([num dotation]) Chen
me.parent.reglement.value=true
me.parent.NbrReg.value=nz(dmax("NbrReg","T_Factures","Year(Date_dotation)=Year(Now)"),0)+1 
End if
End sub

Quand j'ai testé en insèrant une nouvelle facture en année 2021 il m'affiche dans le champ que 1 mais pas 2,3,..... mais la suite du plus grand numéro qui figure dans le champ NbrReg
Cordialement

[hyperion13]

Salut
Voici un code Christophe Warin que tu pourrais adapter à ta problématique

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub DateFacture_Update()
Dim oRst As DAO.Recordset
If Me.NewRecord Then
    Set oRst = CurrentDb.OpenRecordset("SELECT Max(NbrReg) FROM T_Factures WHERE Year(DateFacture) = " & Year(Me.DateFacture) & "")
    With oRst
        If Not .EOF Then
            Me![NbrReg].Value = Nz(.Fields(0).Value, 0) + 1
        Else
            Me![NbrReg].Value = 1
        End If
        .Close
    End With
End If
End Sub

[tee_grandbois]

une autre manière de faire serait de charger la valeur par défaut:

Code :

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

1
2
If Me.NewRecord Then _
Me.NbrReg.DefaultValue = Nz(DMax("NbrReg", "T_Factures", "Year(Date_dotation)=Year(Now)"), 0) + 1

cela fonctionne très bien avec un formulaire simple ou en mode continu sur l'évènement Form_Current

[jawed]

Bonsoir a vous tous
merci a vous tee_grandbois hyperion13 pour votre aide, j'ai choisie la plus simple et celle de tee_grandbois
Encore merci et a bientot
Cordialement