formulaire de recherche

**laure___** · 13/07/2006, 11h07

bon,
pour mon stage, j'avais dû créer une base de données pour gérer la doc, avec un formulaire de recherche multi critères tout simple.
Maintenant je dois refaire une base pour gérer les dossiers, qui sera un peu plus compliquée, ms pr commencer je dois refaire un formulaire de recherche, sur le meme principe, j'ai dc repris le même type de formulaire, et le meme code....
et ça ne marche plus, qd je sélectionne mon critère ds la liste déroulante, la liste de résultats ne se met pas à jour. J'ai tt repris du début avec une seule liste, et rien.
Voilà la code que j'ai pr mon formulaire, si qqun peut m'aider, je vois pas les erreurs, et s'il y en a pkoi ça a marché pr mon autre base de données???????

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
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
 
Private Sub chkCode_Click()
 
Me.cmbRechCode.Visible = Not Me.cmbRechCode.Visible
 
 
RefreshQuery
 
 
End Sub
 
Private Sub cmbRechCode_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 = -1
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT Code, Commune, Etat, Nom, Type FROM Dossiers;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Code, Commune, Etat, Nom, Type FROM Dossiers "
 
If Not Me.chkCode Then
    SQL = SQL & "And Dossiers!Code = '" & Me.cmbRechCode & "' "
End If
 
 
SQL = SQL & ";"
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub

**milia** · 13/07/2006, 11h13

Quelles sont les erreures affichées?

**laure___** · 13/07/2006, 11h18

ben justement, y a pas d'erreur de compilation!
qd j'ouvre mon formulaire, ds la liste de résultats j'ai bien ts les enregistrements qui s'affichent. Ms qd je coche la case, et que je sélectionne un critère ds la liste déroulante, là il n'y a plus rien ds la liste de résultats, y a meme plus les en tetes de colonne.
Et dès que je décoche la case, tous les enregistrements se réaffichent dans la liste...

**Arkham46** · 13/07/2006, 11h20

slt,

code c'est du texte ou un nombre?

si c'est du numérique il faudrait essayer sans les apostrophes dans la requête

**laure___** · 13/07/2006, 11h22

code c'est du texte...

**LostIN** · 13/07/2006, 11h24

et en mode pas à pas, tu constates quoi de bizarre?

**laure___** · 13/07/2006, 11h25

ben j'ai découvert access y a 2 semaines... on le lance comment le mode pas à pas?

**stolx_10** · 13/07/2006, 11h27

je pense avoir trouvé !

essaie:

Dim SQLWhere As String

SQL = "SELECT Code, Commune, Etat, Nom, Type FROM Dossiers "

If Not Me.chkCode Then
SQL = SQL & "And Dossiers!Code = '" & Me.cmbRechCode & "' "
SQL = SQL & ";"
End If

SQL = SQL & ";"

**Arkham46** · 13/07/2006, 11h28

Ce sera sûrement mieux comme ça

Code :

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

1
2
3
If Not Me.chkCode Then
    SQL = SQL & "Where Dossiers!Code = '" & Me.cmbRechCode & "' "
End If

Pour le débogage tu peux trouver un tuto ici :
http://cafeine.developpez.com/access...el/debugprint/

**stolx_10** · 13/07/2006, 11h29

y'a ça aussi ^^

**laure___** · 13/07/2006, 11h29

non ça change rien...

**stolx_10** · 13/07/2006, 11h35

Methode barbare :

Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

IF Me.chkCode Then
SQL = " SELECT Code, Commune, Etat, Nom, Type FROM Dossiers ;"
ELSE
SQL = " SELECT Code, Commune, Etat, Nom, Type FROM Dossiers WHERE Dossiers!Code = '" & Me.cmbRechCode & "' ;"
END IF

( si ça marche pas, voir d'ou ça marche pas

)

**milia** · 13/07/2006, 11h35

Je suis pas très sur mais à mon avis ce n'est pas un problème avec le code mais plus le bouton à cocher! Non? Je dis peut etre une grosse bétise!

**laure___** · 13/07/2006, 11h36

euh même la méthode barbare n'y change rien

**laure___** · 13/07/2006, 11h37

ms faudrait que je change quoi pr le bouton à cocher??
ce que je comprends pas, c'estq ue j'avais le meme code pr une autre base de données et ça marche!!

**stolx_10** · 13/07/2006, 11h40

Tu as bien vérifié que les noms de tes formulaires, case à cocher, champs texte etc etc ont bien les même noms qu'on retrouve dans ton code ?

Un probleme de majuscule ou une petite faute de frappe peut tout faie capoter ! Sinon niveau du code, ça parait bon ... peut etre un oubli de ;
Sinon perso moi je vois pas

**laure___** · 13/07/2006, 11h42

en fait ds mon autre base, pr l'évenement sur clic j'avais

Code :

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

1
2
3
4
5
6
 
If Me.chkLot Then
    Me.cmbRechLot.Visible = False
Else
    Me.cmbRechLot.Visible = True
End If

ms ça marche pas non plus ici.
Une différence avec l'autre base, c'est que ds l'autre, qd je coche, ds ma liste j'ai tjs les en tetes de colonnes, puis qd j'ai sélectionné elle se remplit.
Ici, dèsque je coche la case, ma liste se vide et plus rien.

**laure___** · 13/07/2006, 11h43

ben je vais tt reprendre lettre à lettre...
Ms je fais ça depuis hier

enfin bon merci qd meme...
et si qqun a une idée, je suis prete à tt essayer maintenant

**alex.a** · 13/07/2006, 11h46

Assures toi d'avoir bien nommé tes boutons chkCode et cmbRechCode dans ton formulaire.
Utilise le debug.print SQL, pour voir où est le pb dans ton SQL

Code :

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

1
2
3
4
5
6
SQL = SQL & ";"
 
Debug.Print SQL
 
Me.lstResults.RowSource = SQL
Me.lstResults.Requery

**stolx_10** · 13/07/2006, 11h50

Envoyé par laure___

je suis prete à tt essayer maintenant

Je suis sur que le probleme vient du nom de tes boutons et de tes champs formulaires !
Puis en général les bons vieux copié/collé c'est pas très bon pour la compréhension à moins d'être sûr à 99,9% du code que tu copies ( comprehension, modif, etc ...)

formulaire de recherche

Access

Discussions similaires

Partager

Partager