2 pièce(s) jointe(s)
Comment corriger l'erreur de la zone de recherche ?
Salut membres du forum !
Capture d'erreur au clique sur la zone liste:
Pièce jointe 460781
Pièce jointe 460785
Code:
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.