créer un bouton recherche enregistrement en vba access 2019

**lesitadom39** · 19/04/2020, 16h02

Bonjour,
je voudrais remplacer le bouton "recherche enregistrement" créé par l'assistant avec un code VBA qui pointerai sur le champ "nom" de ma table.
Je ne peux pas utiliser de liste déroulante car ma base comprends plus de 1000 enregistrements.
Comment programmer ce bouton?
Merci d'avance

**Jeannot45** · 20/04/2020, 07h25

Lorsque j'ai une liste importante sur laquelle je dois effectuer une recherche, j'utilise souvent une zone de liste qui se met à jour à la volée en fonction de valeurs saisies dans une zone Critère.
Je te soumets une petite base qui reprend ce principe. Au fur et à mesure que tu saisis les caractères de l'élément recherché, la liste se met à jour et restreint ses items.
Il te reste ensuite à cliquer sur la liste pour mettre à jour le sous-formulaire.

Peux-être cela te donnera une idée ?

Bonne continuation

**morobaboumar** · 06/06/2021, 02h58

Envoyé par Jeannot45

Lorsque j'ai une liste importante sur laquelle je dois effectuer une recherche, j'utilise souvent une zone de liste qui se met à jour à la volée en fonction de valeurs saisies dans une zone Critère.
Je te soumets une petite base qui reprend ce principe. Au fur et à mesure que tu saisis les caractères de l'élément recherché, la liste se met à jour et restreint ses items.
Il te reste ensuite à cliquer sur la liste pour mettre à jour le sous-formulaire.

Peux-être cela te donnera une idée ?

Bonne continuation

Bonsoir Jeannot45,
Formidable

!
J'ai trouvé là ce que je recherche ici
https://www.developpez.net/forums/d2...ue-vba-access/
Merci Jeannot45.
Cordialement.

**morobaboumar** · 06/06/2021, 17h36

Envoyé par Jeannot45

Lorsque j'ai une liste importante sur laquelle je dois effectuer une recherche, j'utilise souvent une zone de liste qui se met à jour à la volée en fonction de valeurs saisies dans une zone Critère.
Je te soumets une petite base qui reprend ce principe. Au fur et à mesure que tu saisis les caractères de l'élément recherché, la liste se met à jour et restreint ses items.
Il te reste ensuite à cliquer sur la liste pour mettre à jour le sous-formulaire.

Peux-être cela te donnera une idée ?

Bonne continuation

Bonjour membres du forum,
Effectivement, cela m'ayant donné une idée. Alors ai décidé de l'adopter à mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Change()
Dim l_strWhere As String
 
        l_strWhere = "WHERE NPrenomsEleves Like " & Chr(34) & "*" & Me.ActiveControl.Text & "*" & Chr(34)
 
        With Me.ListeELEVES_ANNEE_CLASSE_Arabe
            .RowSourceType = "Table/Requête"
            .RowSource = "SELECT Eleve_INSCRIT_Req_Plus.Mleeleve, Eleve_INSCRIT_Req_Plus.NPrenomsEleves FROM Eleve_INSCRIT_Req_Plus " & _
            l_strWhere & " ORDER BY Eleve_INSCRIT_Req_Plus.Mleeleve"
            .Requery
        End With
End Sub

mais cela s'avère compliqué. Je retourne vers vous pour m'aider à trouver la solution.
La zone de liste ListeELEVES_ANNEE_CLASSE_Arabe devrait se mettre à jour en fonction de valeurs saisies dans la zone de recherche TxtRecherche_ListeELEVES_ANNEE_CLASSE selon les criteres suivants:
ID_ETABL_FREQ, ANNEE_SCOL, CLASSE_Arabe,
Voici le code sql de la requête sur laquelle la zone de liste ListeELEVES_ANNEE_CLASSE_Arabe est est basée:

Code SQL :

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

1
2
3
4
SELECT Eleve_INSCRIT_Req_Plus.ID_ETABL_FREQ, Eleve_INSCRIT_Req_Plus.ANNEE_SCOL, Eleve_INSCRIT_Req_Plus.Num_Inscription, Eleve_INSCRIT_Req_Plus.Mleeleve, Eleve_INSCRIT_Req_Plus.NPrenomsEleves, Eleve_INSCRIT_Req_Plus.NPrenomsElevesAR, Eleve_INSCRIT_Req_Plus.GenreEleveInscrit, Eleve_INSCRIT_Req_Plus.ClasseArabe, [ELEVE]![mleeleve] & " " & [ELEVE]![nom] & " " & [ELEVE]![prenom] AS ELEVE_ECIND, [ELEVE]![nom] & " " & [ELEVE]![prenom] AS Tri_ElèvesComposants
FROM Eleve_INSCRIT_Req_Plus INNER JOIN ELEVE ON Eleve_INSCRIT_Req_Plus.Mleeleve = ELEVE.mleeleve
WHERE (((Eleve_INSCRIT_Req_Plus.ANNEE_SCOL) Like "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![lstAnnee_Evaluation] & "*") AND ((Eleve_INSCRIT_Req_Plus.ClasseArabe) Like "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![lstClasse_Evaluation] & "*") AND (([ELEVE]![mleeleve] & " " & [ELEVE]![nom] & " " & [ELEVE]![prenom]) Like "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![TxtRecherche_ListeELEVES_ANNEE_CLASSE] & "*"))
ORDER BY [ELEVE]![nom] & " " & [ELEVE]![prenom];

Nom : CaptureCodeRecherche 1.PNG
Affichages : 787
Taille : 76,7 Ko

Nom : CaptureCodeRecherche 2.PNG
Affichages : 746
Taille : 3,1 Ko

Cordialement.

**morobaboumar** · 06/06/2021, 19h07

J'ai essayé cette adaptation mais il y a un message d'erreur:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim l_strWhere As String
 
    l_strWhere = "WHERE NPrenomsEleves Like " & Chr(34) & "*" & Me.ActiveControl.Text & "*" & Chr(34)
 
        'With Me.ListeELEVES_ANNEE_CLASSE_Arabe
            .RowSourceType = "Table/Requête"
        .RowSource = "SELECT Eleve_INSCRIT_Req_Plus. ID_ETABL_FREQ, Eleve_INSCRIT_Req_Plus. ANNEE_SCOL, Eleve_INSCRIT_Req_Plus.NPrenomsEleves, Eleve_INSCRIT_Req_Plus. ClasseArabe, FROM Eleve_INSCRIT_Req_Plus " & _
            l_strWhere & " ORDER BY Eleve_INSCRIT_Req_Plus.Mleeleve"
           ' .Requery
        End With

Nom : CaptureCodeRecherche 3.PNG
Affichages : 775
Taille : 11,6 Ko

Cordialement.

**tee_grandbois** · 06/06/2021, 21h10

bonsoir,
des espaces et une virgule en trop:

Code :

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

Eleve_INSCRIT_Req_Plus. ID_ETABL_FREQ, Eleve_INSCRIT_Req_Plus. ANNEE_SCOL,

Code :

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

 Eleve_INSCRIT_Req_Plus. ClasseArabe, FROM

**morobaboumar** · 06/06/2021, 21h52

Bonsoir tee_grandbois,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Change()
Dim l_strWhere As String
 
    l_strWhere = "WHERE NPrenomsEleves Like " & Chr(34) & "*" & Me.ActiveControl.Text & "*" & Chr(34)
 
        With Me.ListeELEVES_ANNEE_CLASSE_Arabe
            .RowSourceType = "Table/Requête"
        .RowSource = "SELECT Eleve_INSCRIT_Req_Plus.ID_ETABL_FREQ, Eleve_INSCRIT_Req_Plus.ANNEE_SCOL,Eleve_INSCRIT_Req_Plus.NPrenomsEleves, Eleve_INSCRIT_Req_Plus.ClasseArabe FROM Eleve_INSCRIT_Req_Plus " & _
            l_strWhere & " ORDER BY Eleve_INSCRIT_Req_Plus.Mleeleve"
            .Requery
        End With
 
End Sub

Nom : CaptureCodeRecherche 4.PNG
Affichages : 1204
Taille : 35,5 Ko

Sur la capture d'écran, on constate que toutes les années scolaires de l'élève 34 kone zakaria sont affichées.
Ensuite, les espaces des colonnes se rétrécissent.
Mon objectif est de filtrer ma rechercher sur ID_ETABL_FREQ, ANNEE_SCOL, CLASSE_Arabe de la dernière année
en cours.

Cordialement

**tee_grandbois** · 06/06/2021, 23h22

Mon objectif est de filtrer ma rechercher sur ID_ETABL_FREQ, ANNEE_SCOL, CLASSE_Arabe de la dernière année

cette méthode de recherche et d'affichage du résultat en temps réel sur l'évènement Change est possible lorsqu'il y a une liste déroulante, avec plusieurs c'est plus compliqué et il est préférable d'utiliser la recherche "classique" multi-critères de cafeine ou de jeannot45

**morobaboumar** · 07/06/2021, 00h29

Oui voici les zones de liste déroulantes qui sont sur le formulaire Frm_EvaluationScolaireElevesECIND_ARABE

Nom : CaptureCodeRecherche ListeDeroulante 5.PNG
Affichages : 728
Taille : 6,5 Ko

Code :

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

Comme "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![ID_ETABL_FREQ] & "*"

Code :

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

Comme "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![lstAnnee_Evaluation] & "*"

Code :

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

Comme "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![lstClasse_Evaluation] & "*"

et cette colonne

Code :

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

ELEVE_ECIND: [ELEVE]![mleeleve] & " " & [ELEVE]![nom] & " " & [ELEVE]![prenom]

est filtrée par

Code :

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

Comme "*" & [Formulaires]![Frm_EvaluationScolaireElevesECIND_ARABE]![TxtRecherche_ListeELEVES_ANNEE_CLASSE] & "*"

Cordialement.

**morobaboumar** · 08/06/2021, 21h54

Envoyé par morobaboumar

Bonsoir tee_grandbois,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub TxtRecherche_ListeELEVES_ANNEE_CLASSE_Change()
Dim l_strWhere As String
 
    l_strWhere = "WHERE NPrenomsEleves Like " & Chr(34) & "*" & Me.ActiveControl.Text & "*" & Chr(34)
 
        With Me.ListeELEVES_ANNEE_CLASSE_Arabe
            .RowSourceType = "Table/Requête"
        .RowSource = "SELECT Eleve_INSCRIT_Req_Plus.ID_ETABL_FREQ, Eleve_INSCRIT_Req_Plus.ANNEE_SCOL,Eleve_INSCRIT_Req_Plus.NPrenomsEleves, Eleve_INSCRIT_Req_Plus.ClasseArabe FROM Eleve_INSCRIT_Req_Plus " & _
            l_strWhere & " ORDER BY Eleve_INSCRIT_Req_Plus.Mleeleve"
            .Requery
        End With
 
End Sub

Sur la capture d'écran, on constate que toutes les années scolaires de l'élève 34 kone zakaria sont affichées.
Ensuite, les espaces des colonnes se rétrécissent.
Mon objectif est de filtrer ma rechercher sur ID_ETABL_FREQ, ANNEE_SCOL, CLASSE_Arabe de la dernière année
en cours.

Bonsoir membres du forum,
Je pense avoir compris en parti le fonctionnement du code de Jeannot45.
Je constate qu'il marche avec une Table mais pas la Requête.
Voici mon code adapté:

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
Private Sub TxtRecherche_ListeELEVES_Chiffre_Littre_Chiffre_Littre_Change()
Dim l_strWhere As String
 
        l_strWhere = "WHERE NOM_PRENOMS_COMPLET_FR Like " & Chr(34) & _
        "*" & Me.ActiveControl.Text & "*" & Chr(34)
 
        With Me.ListeELEVES_ANNEE_CLASSE_Arabe_ApercuRecherche
            .RowSourceType = "Table/Requête"
            .RowSource = "SELECT ELEVE.MleEleve, ELEVE.NOM_PRENOMS_COMPLET_FR FROM ELEVE " & _
            l_strWhere & _
            " ORDER BY ELEVE.MleEleve"
            .Requery
        End With
 
End Sub

Nom : CaptureCodeRecherche ListeDeroulanteAlphaNumérique 7.PNG
Affichages : 748
Taille : 42,9 Ko

Cordialement.

**tee_grandbois** · 08/06/2021, 22h19

bonsoir,
comme je l'ai déjà dit, il ne faut pas utiliser l'évènement Change d'une liste mais utiliser l'action Click d'un bouton qui met à jour le résultat après toutes les sélections faites dans les zones de listes ou zones de texte.
Ton code devrait ressembler à cela (extrait du tuto de cafeine avec quelques aménagements pour coller à ton 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 Dim SQL As String
 Dim SQLWhere As String
 
' la requête contient une clause WHERE qui ne fait aucune exclusion puisque qu'on teste que la clé primaire est <> 0
 
 SQL = "SELECT CodMedia, Titre, Auteur, Famille, Type FROM Medias Where Medias!CodMedia <> 0 "
' on teste ensuite chaque zone de liste déroulante pour construire la suite de la clause WHERE  et on l'ajoute à la suite 
If Me.LstAuteur <> "" Then
    SQL = SQL & "And Medias!Auteur like '*" & Me.txtRechAuteur & "*' "
 End If
 If Me.LstFamille <> "" Then
    SQL = SQL & "And Medias!Famille = '" & Me.cmbRechFamille & "' "
 End If
 If Me.LstResume <> "" Then
    SQL = SQL & "And Medias!Résumé like '*" & Me.txtRechResume & "*' "
 End If
 If Me.LstTitre <> "" Then
    SQL = SQL & "And Medias!Titre like '*" & Me.txtRechTitre & "*' "
 End If
 If Me.LstType <> "" Then
    SQL = SQL & "And Medias!Type = '" & Me.cmbRechType & "' "
 End If
 
 SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & ";"
' on affiche le nombre d'enregistrements sélectionnés / le nombre total
 Me.lblStats.Caption = DCount("*", "Medias", SQLWhere) & " / " & DCount("*", "Medias")
' on recharge la source de données
 Me.lstResults.RowSource = SQL
 Me.lstResults.Requery

attention, il y a des Like et des =, ce dernier opérateur est préférable à Like si on ne cherche pas sur une partie du champ

**morobaboumar** · 08/06/2021, 23h22

Je vais le tester et vous faire le compte rendu bientôt.
Merci infiniment pour tout ce que vous réalisez pour nous.
Cordialement.

**morobaboumar** · 19/06/2021, 00h41

Envoyé par Jeannot45

Lorsque j'ai une liste importante sur laquelle je dois effectuer une recherche, j'utilise souvent une zone de liste qui se met à jour à la volée en fonction de valeurs saisies dans une zone Critère.
Je te soumets une petite base qui reprend ce principe. Au fur et à mesure que tu saisis les caractères de l'élément recherché, la liste se met à jour et restreint ses items.
Il te reste ensuite à cliquer sur la liste pour mettre à jour le sous-formulaire.

Peux-être cela te donnera une idée ?

Bonne continuation

Bonsoir Jeannot45,
J'ai adapté mon code au code de recherche de votre pièce jointe.
Cependant, je vous prie d'explorer ma discussion ici à partir du post #16 à 18 https://www.developpez.net/forums/d2...not45-cafeine/.
Cordialement .

créer un bouton recherche enregistrement en vba access 2019

IHM

Discussions similaires

Partager

Partager