RefreshQuerry : problème dans le code [Résolu]

[Rominou28]

Bonjour,

Je suis conscient de poser beaucoup de questions, mais dès que l'on m'aide à régler un problème, un autre se pose !

Je suis actuellement le tutoriel de Caféine (merci d'ailleurs!), mais j'ai un problème au moment de rentrer la RefreshQuerry.

Lorsque je test mon formulaire, cela m'affiche : "Erreur de compilation, membre de méthode ou de donnée introuvable", et la ligne "Me.lblStats.Caption = DCount("*", "Stages", SQLWhere) & " / " & DCount("*", "Stages")" est surlignée. J'imagine que c'est une simple erreur de syntaxe, mais je n'ais pas les compétences pour la réglée :/
Je vous met le code, si vous pouviez jeter un oeil ce serait cool !

(Un jour, moi aussi j'aiderais les noob, mais pas aujourd'hui. Aujoud'hui j'apprends!)

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT ID_stages, Nom, Prenom, Date_debut, Date_fin FROM Medias Where Medias!CodMedia <> 0 "
 If Me.liste_nom Then
    SQL = SQL & "And Stages!Nom = '" & Me.liste_nom & "' "
 End If
 If Me.Liste_prenom Then
    SQL = SQL & "And Stages!Prenom = '" & Me.Liste_prenom & "' "
 End If
 If Me.txt_debut Then
    SQL = SQL & "And Stages!Date_debut => '" & Me.txt_debut & "' "
 End If
 If Me.Txt_fin Then
    SQL = SQL & "And Stages!Date_fin =< '" & Me.Txt_fin & "' "
 End If
 
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
 
 Me.lblStats.Caption = DCount("*", "Stages", SQLWhere) & " / " & DCount("*", "Stages")
 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery

[LedZeppII]

Bonjour,

Est-ce que tu as bien un contrôle nommé lblStats ?
Si oui, est-ce bien une étiquette ?

Cela se vérifie en ouvrant le formulaire en mode création.
Tu cliques sur le contrôle pour le sélectionner et tu affiches sa fenêtre de propriétés.
Le type de contrôle est en dessous de la barre de titre de la fenêtre (Type de sélection).
La propriété «Nom» est dans l'onglet «Autres».

A+

[Rominou28]

merci c'était ça l'erreur !
Seul problème, cela m'affiche maintenant une erreur sur .Caption (juste apres lbStats :/

A quel type d'objet se réfère Caption ? Faut il que je renomme quelque chose par ce nom ?

[LedZeppII]

Caption contient la légende (texte) d'une étiquette ou d'un bouton par exemple.
C'est pour ça que je te demandais de vérifier le type de ton contrôle.
Si c'est une zone de texte, alors enlève Caption ou remplace le par Value.

A+

[Rominou28]

Merci ! mon problème est résolut, j'ai voulu aller trop vite, mais en réalité ces zone ne sont définies qu'en fin de tutoriel, il ne fallait pas que je le test tout de suite !

Gros bisous et merci encore!

[Rominou28]

C'est ok en fait :p