Mise a jour d'un etat...

Bonsoir
Je voudrais imprimer un état avec le résultat seul d'une recherche
multi critère.
Mon problème :
Dans ma fenetre de visualisation, ma recherche multi critère me donne
les 'bons' résultats, mais dans mon état, à partir de 2 critères de
recherche, je n'ai que le premier critère que réagit au filtre, et
doonc une de données plus longues que 'normal'.
Extrait de mon code ( largement inspiré de ci de la ;-) )
<-- début code -->
Private Sub BtImprime_Click()
On Error GoTo Err_BtImprime_Click

Dim stDocName As String
stDocName = "impTitre"

'Dim SQL As String
'Dim SQLWhere As String
'SQL = "SELECT Titre,Chef,Etoiles,Genre,NumRayon FROM tblCD Where
tblCd!refcd <> 0 "

If Not Me.chkTitre Then
DoCmd.OpenReport stDocName, acPreview, , "tblcd!titre='" &
Me.cmbRechTitre & "' "
End If
If Not Me.chkChef Then
DoCmd.OpenReport stDocName, acPreview, , "tblcd!chef='" &
Me.cmbRechChef & "' "
End If
If Not Me.chkTitreDet Then
DoCmd.OpenReport stDocName, acPreview, , "tblcd!Titre='*" &
Me.txtRechTitreDet & "*' "
End If
If Not Me.ChkEtoiles Then
DoCmd.OpenReport stDocName, acPreview, , "tblcd!Etoiles='" &
Me.cmbRechEtoiles & "' "
End If
If Not Me.chkRayonnage Then
DoCmd.OpenReport stDocName, acPreview, , "tblcd!NumRayon='" &
Me.txtRechRayonnage & "' "
End If

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



'DoCmd.OpenReport stDocName, acNormal
DoCmd.OpenReport stDocName, acPreview


Exit_BtImprime_Click:
Exit Sub

Err_BtImprime_Click:
MsgBox Err.Description
Resume Exit_BtImprime_Click

End Sub

<-- fin code -->
J'ai laissé la forme de la requète SQL pour infos.

Merci d'avance

--
On n'est jamais aussi bien battu que par soi même
(Les Shadoks)