Bonjour,
J’utilise le tutorial se nommant : « Formulaire de recherche prêt a l’emploi ».. Je suis a la fin de la premiere partie et j’ai des petits soucis.
A la fin il est dit de modifier les infos de cbo_table :
- origine Table / Requete
- contenu tbl_TemplLstTbl
Or en appliquant cette modification j’obtiens dans la liste deroule des tables des numeros et non plus les noms de mes tables. De plus je ne peux plus selectionner de champs.
Sinon dans mon module recherche j’ai un beug :
1 2 3 4 5 6
| If Not (qrs(i).Name Like "*Temp*") And
Not (qrs(i).Name Like "Msys*") And _
Not (qrs(i).Name Like "*tmp*") Then
rst.AddNew
'rst.Fields(0) = qrs(i).Name
rst.Update |
Je suis oblige de mettre en commentaire la ligne
'rst.Fields(0) = qrs(i).Name
J'ai pb sur cette ligne de vba...
Deuxiemement. Si je ne modifie pas cbo_table (comme dans la piece jointe). Si je selectionne une table et un champs et que je lance la recherche en cliquant sur le bouton rechercher j’otiens un autre beug qui se situe apres :
« private sub Cmd_recherche_click() » il apparait a la fin de cette fonction au niveau de « EndSub »
Le message est : « Compile Error : Select Case without EndSelect »
Si vous pouvez m’aider a me debeuger ce serait simpa, ca me permettrait d’aller a l’etape 2 voir 3 ... (si je ne suis pas assez clair, merci de me l'indiquer)
Si vous voulez regarder ma BdD, j’ai nomme le formulaire, le module et la table comme ds le tutoriel…
Slts,
Partager