Discussion :

[Frog74]

Bonjour , je souhaite affecter à un entier le nombre d'evenements correspondant à une machine précise entrée par l'utilisateur , voila ma table :

Code :

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

1
2
3
IDEvenement	NomEvenement	IDMachine
1	                 EtatBroche	1
2	                 EtatManuel	1

Voila mon code :

Code :

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

1
2
3
4
5
6
Private Sub Commande0_Click()
Dim NbEvt As Integer
Dim NBMode As Integer
NbEvt = DCount("*", "Evenements", "[IDMachine='" & Me.ModifIDMachine & "']")
 Me.label = NbEvt
End Sub

Seulement à l'execution j'ai droit à "Opération Annulée"
Erreur d'éxécution 2001

Savez vous d'ou vient le problème svp?

[Jean-Philippe André]

Bonjour, l'utilisation des crochets doit se limiter aux noms de champs,
ici, essaie plutôt :

Code :

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

NbEvt = DCount("*", "Evenements", "[IDMachine]='" & Me.ModifIDMachine & "'")

par contre si ton champ IDMAchine est de type numérique, il faut même enlever les apostrophes :

Code :

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

NbEvt = DCount("*", "Evenements", "[IDMachine]=" & Me.ModifIDMachine )

[Frog74]

Merci pour ton aide, j'ai des erreur de syntaxe avec les deux méthodes et sinon j'ai essayé :

Code :

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

1
2
3
4
5
6
Private Sub Commande0_Click()
Dim NbEvt As Integer
Dim NBMode As Integer
NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine)
Me.label = NbEvt
End Sub

Avec ce code j'ai le surlignement en jaune sur Me.label = NbEvt et l'erreur :
Propriété ou méthode non générée par cet objet erreur d'execution "438"

[Jean-Philippe André]

Et en ajoutant un msgbox, as-tu déjà au moins le bon retour de ton DCount ?

Code :

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

1
2
3
4
5
6
7
Private Sub Commande0_Click()
Dim NbEvt As Integer
Dim NBMode As Integer
NbEvt = DCount("*", "Evenements", "[IDMachine]" = Me.ModifIDMachine)
MsgBox NbEvt
Me.label = NbEvt
End Sub

[Frog74]

Le label posait problème , j'ai le bon retour de mon DCount avec une txtBox !!
Merci de ton aide , si je peut me permettre de te tutoyer !