Variable dans fonction Dcount
Bonjour,
Je veux fabriqué mon propre numéro de commande, j'ai crée le code ci-dessous, mais j'ai une erreur au niveau ma fonction "Dcount". Est-il possible d'utiliser des variables dans cette fonction au niveau du filtre ?
Code:
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
| Private Sub Bt_Valider_Cde_Click()
Dim AnneeCde As Variant
Dim MoisCde As Variant
Dim NbreEnr As Integer
Dim NumCdeReel As String
'Extraire l'année
AnneeCde = Me.C_Cde_Date
AnneeCde = Year(AnneeCde)
'Extraire le mois
MoisCde = Month(Me.C_Cde_Date)
'Compter le nombre d'enregistrement dans la requête R_trouver_numéro_de_cde_etape3
NbreEnr = DCount("*", "R_Trouver_Numéro_Cde_Etape2", [Annee] = AnneeCde And [Mois] = MoisCde)
'NbreEnr = DCount("*", "R_Trouver_Numéro_Cde_Etape2", "[Annee] = 2008 And [Mois] = 1")
'Mettre le mois sur 2 chiffres
MoisCde = Format(Month(Me.C_Cde_Date), "00")
'Création du numéro de commande
NumCdeReel = Year(AnneeCde) & "-" & MoisCde & "-" & Format(NbreEnr + 1, "000")
MsgBox NumCdeReel
End Sub |
Merci par avance de votre aide.
