| | sam sam | Posté le 22/03/2004 @ 15:37 | Petit astucien
1 Message
| Bonjour à tous,
Je viens de créer un formulaire de recherche multi critères pour ma base qui marche très bien.
J'ai voulu ajouter une liste déroulante liée à une autre:
Lorsque l'on choisit par exemple "banque" dans une liste
l'autre est mise à jour en fonction de ce choix et nous avons les choix "banques d'affaires, investisseurs..."
Le problème est que la programmation du bouton rechercher n'a pas l'air de fonctionner pour ce menu déroulant lié...
Voici une partie du code:
Private Sub btnRechercher_Click()
Dim strFiltre As String
Dim strStatut As String
Dim avarMotsClefs As Variant
Dim varMotclef As Variant
'Filtre sur le nomde la société
On Error Resume Next
strFiltre = ""
If Not IsNull(Me.derSociété) Then
strFiltre = "([Nom société]='" & Me.derSociété & "')"
End If
...
'Filtre groupe
If Not IsNull(Me.derGroupe) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & " ([Nom du groupe]='" & Me.derGroupe & "')"
End If
'Filtre sous groupe
If Not IsNull(Me.derSousGroupe) Then
If strFiltre <> "" Then strFiltre = strFiltre & " AND "
strFiltre = strFiltre & " ([Nom du sous-groupe]='" & Me.derSousGroupe & "')"
End If
'Filtrer le sous-formulaire
With Me.Société_Requête_sous_formulaire.Form
.Filter = strFiltre
.FilterOn = True
Merci d'vance pour votre aide!!!
sam sam
| | | |
| | Haut de la page |
| | Inscrivez-vous ! |
- Posez vos questions
- Résolvez vos problèmes
- Aidez les autres
- Participez et créez vos discussions
- Dialoguez en privé avec d'autres membres
- Suivez vos sujets préférés
- Affichez les signatures des membres
|
|