Discussion :

[meritites]

Bonjour,

Je travaille actuellement sur une base de donnée pour gérer l'ensemble de mes échantillons. Ils sont classés par ordre alphabétique et séparés dans la zone de liste par les lettres A, B,...
Au vu du nombre, je souhaite avoir des boutons me permettant de sélectionner la ligne de la zone de liste correspondant à ces lettres pour me permettre ensuite de voir les noms des échantillons correspondant.
J'ai essayé ce qui est indiqué ici: http://access.developpez.com/faq/?page=zdl#SelLignezdl mais ca ne fonctionne pas. Il m'indique que le Me est mal utilisé et sans, de toute évidence, ca marche encore moins bien.

J'ai cherché partout mais je coince vraiment. Si l'un d'entre vous à une idée, ce serait formidable.
Merci d'avance
Cécile

[marot_r]

J'imgaine qu'actuellement tu as une requête du type :

Code sql :

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

select [TaTable].* from [TaTable];

qui affiche toutes tes données.

Pour réduire la sélection il te suffit de mettre

Code sql :

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

select [TaTable].* from [TaTable] where [TaTable].[TonChamp] like iif(isNull([Forms]![TonFormParam]![TonChampParam]) or isEmpty([Forms]![TonFormParam]![TonChampParam]);"";[Forms]![TonFormParam]![TonChampParam]) & "*";

où [TonFormParam]![TonChampParam] est le champ qui contient la ou les 1ière lettres qui t'interressent. Si tu ne reseigne rien, alors tu as tous les éléments.

Il faut aussi mettre :

Code :

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

me.[TaListe].requery

dans le code associé à l'événement Après MAJ (AfterUpdate) du champ [TonhampParam].

Ceci va forcer la remise à jour de ta liste.

A+

[meritites]

Merci de la réponse mais ca ne correspond pas tout à fait à ce que je cherche à faire. Ma liste affiche tous mes enregistrements et elle doit juste se déplacer sur l'enregistrement à l'appuie sur bouton.

Cécile

[marot_r]

OK

Code :

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

1
2
3
4
dim r as dao.recordset
set r=me.recordset
r.findfirst("[TonChamp] like """ & me.[TaListe] & """*""")
set r=nothing

Devrait être ce dont tu as besoin.

A+

[meritites]

Bonjour,

Merci de ta réponse. Le problème c'est que ça ne marche toujours pas. J'ai un message d'erreur "Le moteur de la base de donnée Microsoft Jet ne reconnaît pas 'Me.[nom de ma liste] en tant que nom de champ ou expression correcte."
Je ne saisit pas d'où vient le problème.

Cécile

[marot_r]

Vérfie ta syntaxe, tu as probablement tapé

Code :

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

r.findfirst("[TonChamp] like "" me.[TaListe] ""*""")

et pas

Code :

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

r.findfirst("[TonChamp] like """ & me.[TaListe] & """*""")

A+

[meritites]

Bonjour,

J'avais effectivement oublié une ". Cependant, maintenant j'ai comme message "Erreur de syntaxe (opérateur absent) dans l'expression.". J'ai vérifié toute la syntaxe mais je ne vois pas d'erreur.

Cécile

[marot_r]

Ooops un "" de trop, essaye :

Code :

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

r.findfirst("[TonChamp] like """ & me.[TaListe] & "*""")

A+

[meritites]

Bonjour,

Il n' y a plus d'erreurs mais code ou pas code, c'est du pareil au même: rien ne se passe .

Cécile