Problème dans formulaire de recherche

[pat17]

Bonjour le forum,

J'ai utilisé comme formulaire de recherche celui de cafeine que j'ai adapté pour mon utilisation.

Seulement, j'ai un petit soucis. Quand, je coche la case et que je sélectionne une ligne dans le menu déroulant, le sous formulaire ne se met pas à jour.

Ci-joint le code

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Option Compare Database
 
Private Sub chkTitre_Click()
 
If Me.chkTitre Then
    Me.cmbRechTitre.Visible = False
Else
    Me.cmbRechTitre.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub cmbRechTitre_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = 0
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "cmb"
            ctl.Visible = True
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT CodMedia, Titre FROM Medias;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT CodMedia, Titre FROM Medias Where Medias!CodMedia <> 0 "
 
If Not Me.chkParagraphe Then
    SQL = SQL & "And Medias!Titre = '" & Me.cmbRechTitre & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
 
 
Private Sub lstResults_DblClick(Cancel As Integer)
 
DoCmd.OpenForm "frmAutoMedias", acNormal, , "[CodMedia] = " & Me.lstResults
 
 
End Sub

Merci de votre aide et bonne journée à tous

[loufab]

Bonjour,

Il te faut déboguer la requete générée.

Regarde le tuto sur le sujet Requete en VBA.

Cordialement,

[pat17]

Bonjour le forum, bonjour loufab et merci de ton aide.

J'ai déjà essayé avec les différentes solutions proposées par le tutoriel sur les requêtes et je n'arrive pas à progresser. Je ne vois pas l'erreur.

Pouvez vous me conseiller.

Merci de votre aide

[loufab]

Bonjour,

Peux-tu poster la requete générée ?

Cordialement,

[pat17]

Re,

Je n'arrive pas a faire fonctionner la requête générée (je suppose que tu parles de celle qui est dans le tutoriel ?).

J'ai mis des espion sur SQL = Select et SQL Where et voici la réponse.
Watch : : SQL : <Hors du contexte> : Empty : Form_frmRecherche.RefreshQuery.

Sinon, j'ai un message qui me dit que l'expression espionne est vide.

Cordialement

[loufab]

Il faut mettre

Code :

debug.print Sql

après

Code :

SQL = SQL & ";"

de la sub refreshquery

Et poster ce qui apparait après l'exécution.

Sans cela pas d'aide possible.

[pat17]

Re,

J'ai fait comme tu le dis et il ne se passe rien

Je n'ai pas de message d'erreur ni de demande de débuggage

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT CodMedia, Titre FROM Medias Where Medias!CodMedia <> 0 "

If Not Me.chkTitre Then
    SQL = SQL & "And Medias!Titre = '" & Me.cmbRechTitre & "' "
End If


SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))

SQL = SQL & ";"

Debug.Print SQL

Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

End Sub

[Domi2]

Bonjour,

Le résultat est visible dans la fenêtre d'exécution de l'éditeur VBA.

Après avoir exécuté ton programme, Alt+F11, menu Affichage ==> Fenêtre Exécution ou Ctrl+G.

Domi2

[loufab]

Je ne pense pas que tu ais lu le tuto sur le débogage des requetes en VBA comme je te l'ai conseillé. C'était marqué dedans en toute lettre.

Allons ! il faut appliquer les conseils, ce n'est pas pour rien qu'on les donne !

[pat17]

Bonjour Domi2 et merci de ton aide.

J'ai déjà fait ce que vous me demander, mais ma fenêtre d'execution reste désespérément vide.

Faut il créer une macro car quand je clique sur le bouton executer il me le propose?