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 :
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 = 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
Merci d'avance pour vos solutions ou corrections
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
@+
Partager