Discussion :

[morobaboumar]

Salut membres du forum !
Comment pourrais-t-on placer par code, le focus sur une donnée précise dans une zone de liste
lorsqu'une zone de texte renseignée reçoit le curseur (la souris); je voudrais dire chaque fois que
la zone de texte affiche une information, cette même information est sélectionnée dans la zone de liste.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Liste_Type_Travaux_Materiaux_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Num_Type_TravMat] = " & Str(Nz(Me![Liste_Type_Travaux_Materiaux], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
 
End Sub

Cordialement

[loufab]

Bonjour,

Les zones de listes fonctionnent de manière séquentielle.

Il faut parcourir le contenu jusqu'à trouvé l'élément et faire la sélection.

Tu as cet article :

http://blogaccess.free.fr/?p=118

Cordialement,

[morobaboumar]

Salut membres du forum !
J'ai eu satisfaction à partir du lien http://blogaccess.free.fr/?p=118 que vous m'avez indiqué.
Merci infiniment.
Cependant, j'ai créé trois formulaires: l'un avec une zone de texte pour la recherche "FrmTblArticles_1", le deuxième une zone de liste déroulante "FrmTblArticles" et troisième avec une zone de texte pour la recherche "TblArticles". Concernant le formulaire "FrmTblArticles_1" contenant la zone de texte pour la recherche; le code:

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 i As Long
Dim i_save As Long
 
Me.Liste_Articles.Selected(0) = True     'désélection de la liste multiple
 
For i = 1 To Me.Liste_Articles.ListCount - 1  'parcours la liste multiple
    Me.Liste_Articles.Selected(i) = False
        'déselection de l'élement courant
    If (Me.Liste_Articles.ItemData(i) = CStr(Nz(Me.RechercheDansListe_Articles, ""))) Then
       's'il est identique à ce que je cherche
       i_save = i  'je repère la ligne
    End If
Next
Me.Liste_Articles.Selected(i_save) = True
'en sortant je sélectionne la liste

la recherche ne marche.
Pièces jointes:
Voici la structure de la table:
Copie de la BD.

Cordialement.

[morobaboumar]

Salut membres du forum!
Voici ce que j'ai pu réalisé grâce à vos interventions:

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
Private Sub Liste_Articles_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[ID_Article]=" & Str(Nz(Me![Liste_Articles], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub RechercheDansListe_Articles_AfterUpdate()
Dim i As Long
Dim i_save As Long
 
Me.Liste_Articles.Selected(0) = True     'désélection de la liste multiple
 
For i = 1 To Me.Liste_Articles.ListCount - 1  'parcours la liste multiple
    Me.Liste_Articles.Selected(i) = False
        'déselection de l'élement courant
    If (Me.Liste_Articles.ItemData(i) = CStr(Nz(Me.RechercheDansListe_Articles, ""))) Then
       's'il est identique à ce que je cherche
       i_save = i  'je repère la ligne
    End If
Next
Me.Liste_Articles.Selected(i_save) = True
'en sortant je sélectionne la liste
 
End Sub

Merci infiniment.