Discussion :

[ancylia]

Bonjour,

je debute tt juste en access et j'aimerai creer un formulaire de recherche sur une liste deroulante et afficher les resultats ds un cadre en dessous.

je me suis inspiré de la recherche multicritere de cafeine.
par contre je n'ai pas de cases à cocher.

Mon pb est que lorsque je choisi une valeur de la liste, rien ne s'affiche.
par contre j'ai laisse le nombre de resultats obtenus, qui n'est pourtant pas nul (43 resultats).

voici mon code vb :

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
Option Compare Database
 
Private Sub cmbLot_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
 
Private Sub cmbSociete_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Id, LOT, N° VOIX, TYPE, ICCID, Id FROM Mobiles Where Mobiles!Id <> 0 "
If Me.cmbLOT.Column(0) = "" Then
    SQL = SQL & "And Mobiles!LOT = '*" & Me.cmbLOT & "*' "
End If
If Me.cmbSociete.Column(0) = "" Then
    SQL = SQL & "And Mobiles!SST = '" & Me.cmbSociete & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Mobiles", SQLWhere) & " / " & DCount("*", "Mobiles")
lstResults.RowSource = SQL
lstResults.Requery
 
End Sub

Merci de penser aux balises code | cafeine


Je ne sais pas si le probleme vient du code ??? ou des proprietes des controles ???

Merci pr vos réponses...

[cafeine]

Bonjour et bienvenue sur le forum,

Je vois deux choses étranges dans ton code :

Code :

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

If Me.cmbLOT.Column(0) = "" Then

Tu testes si la valeur de ta liste est nulle ? alors pourquoi la mettre dans le where ensuite ?

Code :

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

    SQL = SQL & "And Mobiles!LOT = '*" & Me.cmbLOT & "*' "

Quand on utilise les *, il faut mettre Like et non =

Essaie avec ces observations

[ancylia]

Là ca marche un peu mieux.
je viens de tester et le compteur m'indique bien le nombre de resultats ms rien ne s'affiche...

[cafeine]

Redonne nous ton code corrigé (entre les balises)

[ancylia]

Je redonne juste la partie avec refresh :

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
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT Id, LOT, N° VOIX, TYPE, ICCID, Id FROM Mobiles Where Mobiles!Id <> 0 "
If Not Me.cmbLOT.Column(0) = "" Then
    SQL = SQL & "And Mobiles!LOT = '" & Me.cmbLOT & "' "
End If
If Not Me.cmbSociete.Column(0) = "" Then
    SQL = SQL & "And Mobiles!SST = '" & Me.cmbSociete & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
 
Me.lblStats.Caption = DCount("*", "Mobiles", SQLWhere) & " / " & DCount("*", "Mobiles")
lstResults.RowSource = SQL
lstResults.Requery
 
End Sub

[ancylia]

Je viens de remarque que j'ai une ptite erreur ds le Select : j'ai mis 2 fois Id mais ca n'a pas resolu mon probleme en l'enlevant...

[cafeine]

alors là, je te conseille un débogage "à l'ancienne"

Code :

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

Debug.Print SQL

Tu récupères le SQL, tu le colles dans une requête vierge et tu vois ce qui cloche ...

[ancylia]

merci de m'avoir aiguille

je viens de rajouter des crochets pour les champs recherches et tt d'un coup ca à marcher


à la prochaine