Access Recherche multi-critère Excel vers Access

  • Initiateur de la discussion Initiateur de la discussion MPETIT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

MPETIT

XLDnaute Nouveau
Bonjour le forum,

j'aimerais pouvoir faire un moteur de recherche lié à une base de données Access.

Je ne peux pas vous partager les fichiers malheureusement mais les Screenshots ci dessous vous aideront à mieux comprendre mon besoin.

Le principe de fonctionnement :

- Sur mon Userform, j'ai donc une comboBox pour choisir entre le champs prénom et nom des auteurs de la base de access (je ne sais pas la fonction VBA pour rechercher un champs contrairement à un enregistrement qui est :
VB:
RecordCount
).

- Une textBox ou je note soit le prénom et ou le nom en fonction de ce que j'ai choisit dans la comboBox.
- La listeBox m'affiche la recherche la plus adaptée.

Toutes aides quelles qu'elle soit sera la bienvenue !

Voici un début de codage :
VB:
Private Sub BD_Rechercher_Click()
Dim bds As Database 'type de données
Dim re As Recordset 'IMPORTANT : Pour utiliser les bases de données

'on ouvre la base de données
Set bds = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb")
Set re = bds.OpenRecordset("SELECT * FROM auteur;")






End Sub

Private Sub ComboBox1_Change()

End Sub

Private Sub ComboBox1_Click()

Dim bds As Database 'type de données
Dim re As Recordset 'IMPORTANT : Pour utiliser les bases de données

'on ouvre la base de données
Set bds = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb")
Set re = bds.OpenRecordset("SELECT * FROM auteur;")

Private Sub TextBox1_Change()
Dim bds As Database 'type de données
Dim re As Recordset 'IMPORTANT : Pour utiliser les bases de données

'on ouvre la base de données
Set bds = OpenDatabase(ThisWorkbook.Path & "\librairie.mdb")





End Sub
 

Pièces jointes

  • Formulaire recherche.PNG
    Formulaire recherche.PNG
    3.3 KB · Affichages: 17
  • Base de données access.PNG
    Base de données access.PNG
    10.6 KB · Affichages: 16
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
390
Réponses
3
Affichages
462
Retour