Voici mon outil de recherche en Image et voici en bas le code complet que j'ai utilisé.
>> Les case à cocher sont nommés : cocheNom ( par exemple cocheMatière, cocheAuteur, cocheOuvrage..)
>> Les zones de texte sont nommées : texteNom ( par exemple texteMatière, texteCote, texteInventaire)
>> Base de donnée est nommée : Gestion livres
Problème constaté :En fait je veux en cochant un critère et en le remplissant la requtte Sql se met à jour et montre le résultat en temps réel. Le code me semble correcte parce que j'ai suivi à la lettre un tuto sur internet mais lorsque je remplie une zone de texte la zone de résultat n'affiche rien quoique ma base Gestion Livres est remplie de donnée.
Veuillez svp me préter un peu de votre temps pour trouve la lacune qui se trouve dans mon code. Je vous en serez très reconnaissant
Niveau de connaissances en VB et Sql est presque nul.Code utilisé :Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
Select Case Left(ctl.Name, 5)
Case "coche"
ctl.Value = 0
Case "texte"
ctl.Visible = False
End Select
Next ctl
End Sub
Private Sub rafraichir()
Dim SQL As String
SQL = "SELECT [Gestion Livres].[titre de l'ouvrage], [Gestion Livres].auteur, [Gestion Livres].n_cote, [Gestion Livres].n_inventaire, [Gestion Livres].année, [Gestion Livres].quantité FROM [Gestion Livres]"
If cocheAuteur Then
On Error Resume Next
SQL = SQL & "And [Gestion Livres]!Auteur like '*" & texteAuteur.Text & "*' "
End If
If cochematière Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Matière like '* " & texteMatière.Text & "*' "
End If
If cocheClés Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Clés like '* " & texteClés.Text & "*' "
End If
If cocheOuvrage Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Ouvrage like '* " & texteOuvrage.Text & "*' "
End If
If cocheEdition Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Edition like '* " & texteEdition.Text & "*' "
End If
If cocheAnnée Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Année like '* " & texteAnnée.Text & "*' "
End If
If cocheCote Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Cote like '* " & texteCote.Text & "*' "
End If
If cocheInventaire Then
On Error Resume Next
SQL = SQL & "And Gestion Livres!Inventaire like '* " & texteInventaire.Text & "*' "
End If
SQL = SQL & ";"
listeRésultats.RowSource = SQL
listeRésultats.Requery
End Sub
Private Sub cocheMatière_Click()
texteMatière.Visible = Not texteMatière.Visible
rafraichir
End Sub
Private Sub cocheAuteur_Click()
texteAuteur.Visible = Not texteAuteur.Visible
rafraichir
End Sub
Private Sub cocheOuvrage_Click()
texteOuvrage.Visible = Not texteOuvrage.Visible
rafraichir
End Sub
Private Sub cocheEdition_Click()
texteEdition.Visible = Not texteEdition.Visible
rafraichir
End Sub
Private Sub cocheAnnée_Click()
texteAnnée.Visible = Not texteAnnée.Visible
rafraichir
End Sub
Private Sub cocheCote_Click()
texteCote.Visible = Not texteCote.Visible
rafraichir
End Sub
Private Sub cocheInventaire_Click()
texteInventaire.Visible = Not texteInventaire.Visible
rafraichir
End Sub
Private Sub cocheClés_Click()
texteClés.Visible = Not texteClés.Visible
rafraichir
End Sub
Private Sub texteAuteur_KeyUp(KeyCode As Integer, Shift As Integer)
rafraichir
End Sub
Private Sub texteMatière_KeyUp(KeyCode As Integer, Shift As Integer)
rafraichir
End Sub
Private Sub texteAnnée_KeyUp(KeyCode As Integer, Shift As Integer)
rafraichir
End Sub