Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre régulier Avatar de morobaboumar
    Homme Profil pro
    Enseignant
    Inscrit en
    septembre 2009
    Messages
    347
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : septembre 2009
    Messages : 347
    Points : 118
    Points
    118

    Par défaut Comment corriger l'erreur de la zone de recherche ?

    Salut membres du forum !
    Capture d'erreur au clique sur la zone liste:
    Nom : CaptureFindFirst2.PNG
Affichages : 38
Taille : 52,2 Ko
    Nom : CaptureFindFirst.PNG
Affichages : 39
Taille : 41,2 Ko

    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.
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Les savants sont les héritiers de la science
    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

  2. #2
    Membre régulier Avatar de morobaboumar
    Homme Profil pro
    Enseignant
    Inscrit en
    septembre 2009
    Messages
    347
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : septembre 2009
    Messages : 347
    Points : 118
    Points
    118

    Par défaut

    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.
    Le savoir est la lumière de l'esprit
    Le chemin de la réussite

    Les savants sont les héritiers de la science
    Qui cherche positivement trouve
    Tout ce qui brille n'est pas l'or ou diamant
    Mais l'or et le diamant se trouvent avec sagesse, intelligence et effort

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 11/01/2008, 21h37
  2. Comment corriger ces erreurs ?
    Par apt dans le forum Syntaxe
    Réponses: 9
    Dernier message: 18/01/2007, 17h49
  3. Réponses: 8
    Dernier message: 16/01/2007, 11h06
  4. [W3C] Comment corriger mon erreur d'affichage
    Par jeremy_chauvel dans le forum Balisage (X)HTML et validation W3C
    Réponses: 7
    Dernier message: 19/11/2006, 17h23
  5. Réponses: 3
    Dernier message: 21/07/2006, 15h50

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo