Discussion :

[fla1107]

Bonjour,

je suis entrain d'effectuer un moteur de recherche avec access 2000 sur la base d'un modèle tutorat:

- http://loufab.developpez.com/recursivite/

- http://loufab.developpez.com/recursivite2/

trouvés sur le site:http://www.clubic.com/forum/programm...728-page1.html)

je ne connais pas ces langages et n'ai pas fait d'études en informatiques.

Concrètement:

- j'ai deux listes déroulantes: table+champ
- une zone de liste pour entrée la valeur
- un bouton commande pour la recherche
- une zone de liste pr les résultats!

Le(s) problèmes sont les suivant:
- zone de liste déroulante du champ: je n'arrive pas avoir les propostions des champs. la case contenu est volontairement vide dans "le cours du tuteur" car après le programme vba va permmettre d'allé chercher les champs suivant la table
- lorsque je met en application le moteur de recherche, je n'ai aucun résultat au niveau de l'affichage des résultats. Le message d'erreur concerne "la phrase" contenant FROM.

Voici le détail ci-dessous...
Est- ce que qqn pourrait m'aider??

Merci.

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
27
28
29
Option Compare Database
 
Private Sub cbo_champ_AfterUpdate()
 
Me.cbo_champ.RowSource = Me.cbo_table.Value
Me.cbo_champ.Requery
 
End Sub
 
Private Sub cmd_recherche_Click()
 
Dim strTable As String, strField As String, strCriteria As String, strSql As String
Dim criter As Variant
 
strTable = "(" & Me.cbo_table & ")"     ' recupère le nom de la table
strField = "(" & Me.cbo_champ & ")"     ' recupère le nom du champ
 
' compose le critere de recherche
strCriteria = strTable & "." & strField & "." & Me.txt_critere & """"
 
' construit la requête sql
strSql = "SELECT DISTINCTROW " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE ((" & strCriteria & "));"
 
Me.lst_resultat.RowSource = strSql 'affecte sql a lst_resultat
Me.lst_resultat.Requery 'recalcule la liste
 
End Sub

[LE VIEUX]

bonjour,
et c'est quoi ton message d'erreur ?

[fla1107]

je ne trouve plus le message d'erreur: mais c'était lié à la syntaxe de la phrase avec FROM.

Et plus largement, mon programme ne fonctionne pas car je suis censé trouver une information à partir d'une table et champ précis, mais rien ne s'affiche dans la fenêtre de résultats...

Je ne sais pas si j'ai répondu à votre question...

en espérant que cela vous aide!!