Discussion :

[keuthi]

Bonjour à tous,

voici mon problème : je souhaite, à partir d'un formulaire contenant une zone de texte, "zone_de_texte", et un bouton, "b_recherche", qu'après avoir appuyé sur le bouton, Access exécute une requete listant l'ensemble des valeurs d'un champs d'une table contenant la chaîne de caractere saisie dans la zone de texte.

Voici mon code VBA :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub b_recherche_Click()
 
    Dim requete As String
    Dim rs As Recordset
 
    requete = "SELECT champs FROM table WHERE (((champs) Like " * [Forms]![formulaire]![zone_de_texte] * "));"
 
    Set db = CurrentDb()
    Set rs = db.OpenRecordset(requete)
 
End Sub

Comme vous pouvez vous en douter, ce code ne marche pas...

J'ai essayé d'être le plus clair possible, si vous ne comprenez pas quelque chose n'hésitez pas à me le signaler.

Merci d'avance

[pc75]

Bonjour,

Et comme ça ?

Code :

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

1
2
 
requete = "SELECT champs FROM table WHERE (((champs) Like '"% [Forms]![formulaire]![zone_de_texte] % "'));"

[keuthi]

Ah nikel je pense que ta version est bonne mais maintenant je soupsonne que la déclaration de ma procédure n'est pas correcte :

"Erreur de compilation : Erreur de syntaxe"

Et apres il me surligne :

Code :

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

Private Sub b_recherche_Click()

Donc je ne sais pas si le problème vient de la syntaxe de la procédure ou d'autre part...

[keuthi]

Je viens de tester avec ce code :

Code :

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

requete = "SELECT champs FROM table WHERE ((champs) Like '" & [Forms]![Formulaire]![zone_de_texte] & "');"

Et le résultat est plutôt surprenant : il ne se passe rien...

Je commence à être un peu perdu, je n'ai que très peu de notion en VBA et j'avoue que la ca me dépasse...

[keuthi]

Je viens de voir qu'il existait une commande

Code :

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

DoCmd.RunSQL (requete_a_executer)

Est-ce une bonne piste ?

[keuthi]

Je pense avoir compris le problème : je ne récupère nul part le résultat de la requête.

Si quelqu'un sait comment faire afficher ma liste de valeurs sous Access je suis preneur

[Invité]

Bonjour

Où veux-tu voir le résultat de cette requête ? Dans un formulaire ?

A toute fin utile, je t'invite à lire cela : Résultats dans Labels, Zones de Texte ou MsgBox.

Philippe

[keuthi]

Merci beaucoup ! En effet le résultat de ma requête nétait pas pris en compte donc ne s'affichait nul part.

[keuthi]

Une dernière question pour clôturer le sujet,

voici maintenant mon code VBA :

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
 
    Dim requete As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim resultat As String
 
    Set db = CurrentDb
 
    requete = "SELECT champs1, champs2, champs3 FROM table1, table2 (avec la syntaxe inner join) WHERE (((champs1) Like '" & [Forms]![Formulaire]![zone_de_texte] & "'));"
 
    Set rs = db.OpenRecordset(requete)
 
    resultat = ""
 
    While Not rs.EOF
        resultat = resultat & "Objet du contrat : " & rs![champs1] & ", référence : " & rs![champs2] & ", numéro : " & rs![champs3] & vbCrLf
        rs.MoveNext
    Wend
 
    MsgBox resultat
 
    rs.Close
    db.Close
 
    Set rs = Nothing
    Set db = Nothing

Le code marche bien pour une requête donnant 1 ou 2 résultats mais au delà il n'y a plus de message dans ma MsgBox

Je ne sais pas d'ou ca vient, j'ai regardé la "taille" d'une variable String à priori le nombre de caractères disponibles et bien supérieur à ce que j'obtiens donc si vous avez une idée je suis tout ouïe

[keuthi]

Problème résolu : l'erreur venait, encore, de la syntaxe de ma requête, il fallait mettre :

Code :

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

1
2
3
requete = "SELECT champs1, champs2, champs3 " & _
"FROM table1, table2 " & _
"WHERE (((champs1) Like '*" & [Forms]![Formulaire]![zone_de_texte] & "*'));"

Encore merci à vous