Bonjour à tous,
J'ai petit problème qui doit être minime quant on sait.
Exposé du but :
Je veux incrémenter un N° de facture qui a un format dans un champ FC 07/xxxx Les xxxx étant la variable qui doit augmenter à chaque génération de facture.
J'ai déjà créé deux codes un fonction mais sans le fomat :
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
If Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsPropositions![Accord] = oui Then
 
        Dim ID_FactAuto As Integer
        Dim ID_FactManu As Integer
 
        'recuperation du N° de dernier N° de Facture de la table T_ClientsCde
            ID_FactAuto = DMax("[N°Facture]", "T_ClientsCde")
        'recuperation du N° de dernier N° de Facture de la table T_FacturesManuelles
            ID_FactManu = DMax("[N°Facture]", "T_FacturesManuelles")
 
            'Comparaison
            If ID_FactAuto = ID_FactManu Then
                    Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsFactures![N°Facture] = ID_FactAuto + 1
                Else
            End If
            If ID_FactAuto > ID_FactManu Then
                    Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsFactures![N°Facture] = ID_FactAuto + 1
                Else
            End If
            If ID_FactAuto < ID_FactManu Then
                    Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsFactures![N°Facture] = ID_FactManu + 1
                Else
            End If
        Else
    End If
Le deuxième ne donne aucune action
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
If Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsPropositions![Accord] = oui Then
 
        Dim ID_FactAuto As Integer
        Dim ID_FactManu As Integer
 
        'recuperation du N° de dernier N° de Facture de la table T_ClientsCde
            ID_FactAuto = Right(DMax("[N°Facture]", "T_clientsCde"), 2)
        'recuperation du N° de dernier N° de Facture de la table T_FacturesManuelles
            ID_FactManu = Right(DMax("[N°Facture]", "T_clientsCde"), 2)
 
            'Comparaison
            If ID_FactAuto = ID_FactManu Then
                    Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsFactures![N°Facture] = ID_FactAuto + 1
                Else
            End If
            If ID_FactAuto > ID_FactManu Then
                    Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsFactures![N°Facture] = ID_FactAuto + 1
                Else
            End If
            If ID_FactAuto < ID_FactManu Then
                    Forms!F_ClientsDossier!S_F_ClientsDossier!S_F_ClientsFactures![N°Facture] = ID_FactManu + 1
                Else
            End If
        Else
    End If
Merci d'avance pour vos solutions ou corrections

@+