Formulaire de recherche

Bonjour à tous,
Je suis débutant c'est la première fois que j'utilise du VB donc j'ai sans aucun doute écris des erreurs stupides...
Pour réaliser un formulaire de recherche j'ai suivi ce tuto :
http://learnup.fr/
tout fonctionne bien jusqu'à que j'arrive à la partie :
" Voici donc les codes à recopier pour les boutons, en événement 'Sur Clic' "(un peu après le milieu du tuto).
Après cette partie je ne vois aucune modification de mon formulaire même après avoir tapé tout le code de toutes les étapes...
Voici à quoi ressemble mon formulaire en pièce jointe.

Option Compare Database

Private Sub chkIngredients_Click()
If Me.chkIngredients Then
Me.cmbRechIngredients.Visible = False
Else
Me.cmbRechIngredients.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkCode_A_Click()
If Me.ChkCode_A Then
Me.cmbRechCode_A.Visible = False
Else
Me.cmbRechCode_A.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkCode_F_Click()
If Me.ChkCode_F Then
Me.cmbRechCode_F.Visible = False
Else
Me.cmbRechCode_F.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkCode_C_Click()
If Me.ChkCode_C Then
Me.cmbRechCode_C.Visible = False
Else
Me.cmbRechCode_C.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkProduit_Click()
If Me.ChkProduit Then
Me.cmbRechProduit.Visible = False
Else
Me.cmbRechProduit.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkDescription_Document_Click()
If Me.chkDescription_Document Then
Me.cmbRechDescription_Document.Visible = False
Else
Me.cmbRechDescription_Document.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkFamille_Produit_Click()
If Me.chkFamille_Produit Then
Me.cmbRechFamille_Produit.Visible = False
Else
Me.cmbRechFamille_Produit.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkReference_Click()
If Me.chkReference Then
Me.cmbRechReference.Visible = False
Else
Me.cmbRechReference.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkPhase_cycle_de_vie_Click()
If Me.chkPhase_cycle_de_vie Then
Me.cmbRechPhase_cycle_de_vie.Visible = False
Else
Me.cmbRechPhase_cycle_de_vie.Visible = True
End If

RefreshQuery

End Sub

Private Sub chkDescription_Code_F_Click()
If Me.ChkDescription_Code_F Then
Me.cmbRechDescription_Code_F.Visible = False
Else
Me.cmbRechDescription_Code_F.Visible = True
End If

RefreshQuery

End Sub

Private Sub cmbRechPhase_cycle_de_vie_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechIngredients_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechCode_A_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechCode_F_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechDescriptionCode_F_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechCode_C_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechProduit_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechDescriptionDocument_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechFamille_Produit_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub

Private Sub cmbRechReference_BeforeUpdate(Cancel As Integer)
RefreshQuery
End Sub
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String

SQL = "SELECT Nom_Documents, Document, Ingredients, Code_A, Code_F, Description_Code_F, Produit, Description_Produit, Code_C, Famille_Produit, Reference, Phase_cycle_de_vie FROM Table_Document Where Table_Document!Nom_Documents"

If Not Me.chkIngredients Then
SQL = SQL & "And Table_Document!Ingredients = '" & Me.cmbRechIngredients & "' "
End If
If Not Me.ChkCode_A Then
SQL = SQL & "And Table_Document!Code_A = '" & Me.cmbRechCode_A & "' "
End If
If Not Me.ChkCode_F Then
SQL = SQL & "And Table_Document!Code_F = '" & Me.cmbRechCode_F & "' "
End If
If Not Me.ChkDescription_Code_F Then
SQL = SQL & "And Table_Document!Description_Code_F = '" & Me.cmbRechDescription_Code_F & "' "
End If
If Not Me.ChkProduit Then
SQL = SQL & "And Table_Document!Produit = '" & Me.cmbRechProduit & "' "
End If
If Not Me.chkDescription_Produit Then
SQL = SQL & "And Table_Document!Description_Produit = '" & Me.cmbRechDescription_Produit & "' "
End If
If Not Me.ChkCode_C Then
SQL = SQL & "And Table_Document!Code_C = '" & Me.cmbRechCode_C & "' "
End If
If Not Me.chkFamille_Produit Then
SQL = SQL & "And Table_Document!Famille_Produit = '" & Me.cmbRechFamille_Produit & "' "
End If
If Not Me.chkReference Then
SQL = SQL & "And Table_Document!Reference = '" & Me.cmbRechReference & "' "
End If
If Not Me.chkPhase_cycle_de_vie Then
SQL = SQL & "And Table_Document!Phase_cycle_de_vie = '" & Me.cmbRechPhase_cycle_de_vie & "' "
End If

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

SQL = SQL & ";"

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

End Sub


Private Sub Form_Current()

End Sub

Private Sub lstResults_DblClick(Cancel As Integer)

DoCmd.OpenForm "Saisie_Document", acNormal, , "[Nom_Documents] = " & Me.lstResults

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 "lbl"
ctl.Caption = "- * - * -"

Case "cmb"
ctl.Visible = False

End Select
Next ctl

Me.lstResults.RowSource = "SELECT Nom_Documents, Document, Ingredients, Code_A, Code_F, Description_Code_F, Produit, Description_Produit, Code_C, Famille_Produit, Reference, Phase_cycle_de_vie FROM Table_Document;"
Me.lstResults.Requery

End Sub


De plus mes listes déroulantes possèdent des enregistrements de plusieurs mots, est-il possible de faire une recherche par groupes de lettres composant mes enregistrements au lieu des caractères de début de mot.
Actuellement le code est : ("description" est le champs composant ma liste déroulante)
"SELECT table_Livres.description FROM table_Livres GROUP BY table_Livres.description ORDER BY table_Livres.description;"
Ce code classe par ordre alphabétique et évite les doublons.


Je suis conscient que j'en demande beaucoup, mais j'espère que certains auront le courage d'arriver jusqu'ici, MERCI !