Discussion :

[chelmi95]

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 :

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
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.

[Jean-Philippe André]

bonjour,
essaie avec :

Code :

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

NbreEnr = DCount("*", "R_Trouver_Numéro_Cde_Etape2", "[Annee] =" & AnneeCde & " And [Mois] = " & MoisCde)

[chelmi95]

Merci c trop coooooooooooool