Discussion :

[morobaboumar]

Salut membres du forum !
Capture d'erreur au clique sur la zone liste:

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
30
31
32
33
34
35
Private Sub ListeParentResponsableEnregistre_BeforeUpdate(Cancel As Integer)
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Num_Enreg_ParResp] = " & Str(Nz(Me![ListeParentResponsableEnregistre], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub TxtParentResponsableEnregistre_AfterUpdate()
Dim i As Long
Dim i_save As Long
Me.ListeParentResponsableEnregistre.Selected(0) = True 'désélection de la liste multiple
For i = 1 To Me.ListeParentResponsableEnregistre.ListCount - 1 'parcours la liste multiple
Me.ListeParentResponsableEnregistre.Selected(i) = False
'déselection de l'élement courant
If (Me.ListeParentResponsableEnregistre.ItemData(i) = CStr(Nz(Me.TxtParentResponsableEnregistre, ""))) Then
's'il est identique à ce que je cherche
i_save = i 'je repère la ligne
End If
Next
Me.ListeParentResponsableEnregistre.Selected(i_save) = True
'en sortant je sélectionne la liste
RaffraichirForm
End Sub
 
Sub RaffraichirForm()
On Error Resume Next
Me.ListeParentResponsableEnregistre.Requery
If Me.ListeParentResponsableEnregistre.ListCount Then
        Me.ListeParentResponsableEnregistre.Visible = True
 
    Else
        Me.ListeParentResponsableEnregistre.Visible = False
 
    End If
End Sub

Mon objectif est d'afficher le parent sélectionné de la zone de liste après la recherche à partir de la zone de texte de recherche.
Je souligne que les zone de liste et zone de texte sont placées dans un sous formulaire.

Cordialement.

[morobaboumar]

Salut Membres du forum !
Je devrais placer le code dans l'événement afterUpdate au de BeforeUdate.
Ce que je fis et le code fonctionne.

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
Private Sub ListeParentResponsableEnregistre_AfterUpdate()
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Num_Enreg_ParResp] = " & Str(Nz(Me![ListeParentResponsableEnregistre], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
''__________________________________________________
''==================================================
'Ainsi, pour se positionner sur le premier enregistrement dont le champ NomClient commence par T dans un formulaire :
'Si aucun enregistrement ne vérifie le critère, la propriété NoMatch du recordset est égale à True.
''Dim strCritere As String
''strCritere = "NomPrenomsParent LIKE " & Chr(34) & "T*" & Chr(34)
''Me.Recordset.FindFirst strCritere
''If Me.Recordset.NoMatch Then MsgBox "Aucun enregistrement n'a été trouvé"
'_________________________________________________________
'=========================================================
'________________________________________________________
 
End Sub

Merci infiniment.
Cordialement.