Discussion :

[thomasly]

Bonjour,

J'ai un formulaire contenant les enregistrements : AAA, AAAA, BBB, CCC ...etc...
Je saisi "CC" sur le champ "Rechercher" et j'utilise ce code pour positionner sur le 1er de la liste qui contient "CC".
Le code marche.

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
Dim rst As DAO.Recordset
Dim strCriteria As String
 
strCriteria = "[" & CodeArticle.Name & "] Like '*" & Me.Rechercher & "*'"
 
Set rst = Me.RecordsetClone
rst.FindFirst strCriteria
 
If rst.NoMatch Then
 
Else
    Me.Bookmark = rst.Bookmark
End If
 
Set rst = Nothing

Par contre, lorsque ma liste AAA, AAAA, BBB, CCC ...etc... se trouve sur une liste déroulante, là je ne sais plus faire.

Merci de votre aide.

[Zekraoui_Jakani]

Combien de colonnes contient votre liste ? une seule, je suppose ! sinon, un clic sur la liste va retourner la valeur de la ère colonne (ou la colonne liée).
Essayez:

Code :

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

1
2
3
4
'après clic (mise à jour)
Debug.print NomDeVotreListe.Value
'ou bien :
Msgbox Me.NomDeVotreListe.Value

ça vous donnera une idée sur ce que Access recherche exactement.

[Paraffine]

Par contre, lorsque ma liste AAA, AAAA, BBB, CCC ...etc... se trouve sur une liste déroulante, là je ne sais plus faire.

Nota : les listes déroulantes ont déjà ce comportement par défaut; lorsque l'on tape directement dans la liste le début d'une valeur, on se positionne sur la première ligne de la liste dont la valeur affichée commence par cette saisie.

Cela dit, ce n'est pas ce que fait la procédure indiquée ; elle effectue une recherche sur les lignes qui contiennent la valeur, c'est à dire qu'en saisissant 'ZZZZ' on pourra se positionner sur la ligne contenant 'AAAAZZZZZZ'.

Ce post évoque lui aussi une recherche dans (toutes) les colonnes d'une liste déroulante, qu'il faut adapter
- pour une recherche sur le début ou une partie de la valeur, avec un Like,
- pour une recherche sur une colonne donnée.
Mais il ne s'appuie pas sur un Recordset sous-jacent.

Cordialement.