Discussion :

[jrogron]

Bonjour,

Je souhaite réaliser un formulaire multi critères ressemblant à celui de caféine.
Mon code est le suivant:

Private Sub Form_Load()
Dim ctl As Control

For Each ctl In Me.Controls
Select Case Left(ctl.Name, 3)
Case "chk"
ctl.Value = False

Case "lbl"
ctl.Caption = DCount("*", "VSH", SQLWhere) & " / " & DCount("*", "VSH")

Case "txt"
ctl.Visible = False
ctl.Value = ""

Case "cmb"
ctl.Visible = False

End Select
Next ctl

Me.lstResults.RowSource = "SELECT Company, Country, Turnover FROM VSH;"
Me.lstResults.Requery

End Sub



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

SQL = "SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0 "

If Me.chkCompany Then
SQL = SQL & "And VSH!Company like '*" & Me.txtRechCompany & "*' "
End If
If Me.chkCountry Then
SQL = SQL & "And VSH!Country like '*" & Me.txtRechCountry & "*' "
End If
If Me.chkTurnover Then
SQL = SQL & "And VSH!Turnover like '*" & Me.txtRechTurnover & "*' "
End If

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

SQL = SQL & ";"

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

End Sub


Première partie sans problème, à l'ouverture tout s'affiche correctement. Mais c'est après que cela se gate. Dès que je coche une checkbox tout s'efface dans ma zone de liste (je veux dire même ma zone d'entête sinon le reste c normal) et quand j'écris dans la case text lié a cette chekbox rien n'apparait dans la zone de résultat.

Merci de m'aider car ça commence à me stresser lol

Jocelyn

[cafeine]

Hello,

Merci pour commencer d'éditer le message et mettre des balises CODE (bouton #)

et pour continuer, que donne debug.print SQL ?

[jrogron]

Dsl pour les balises code.
Justement à ce propos j'ai lu le tuto sur le débogage dans lequel on parle de debug.print SQL. J'ai donc positionner cet outil comme dans l'exemple. Mon souci c ke je ne suis pas sure de ma procédure pour lancer le code car je ferme et je lance l'application mais il y a surement un autre moyen. Enfin bon suite au debug.print SQL j'obtiens cela:

#SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0;
SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0;
SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0;
SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0 And VSH!Country like ' ' ;
SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0 And VSH!Country like ' poland ' ;
SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0 And VSH!Company like ' ** ' ;
SELECT Company, Country, Turnover, FROM VSH Where VSH!NumCompany <> 0;#

Merci de ton aide Caféine car je suis complètement perdu

[jrogron]

Cela fonctionne maintenant.
J'ai simplement effacer et recollé le code.
je ne comprends pas