Bonjour à tous,
Alors voilà dans un formulaire, j'ai fait un bouton recherché avec ce code :
Code :
- Private Sub bt_rechercher_Click()
- Dim filtre As String
- 'vide la variable filtre
- filtre = ""
- 'si le nom est présent, on le met dans le fitre
- If Me.zs_nom <> "" Then
- filtre = "nom = """ & Me.zs_nom & """"
- End If
- ' on ajoute le prénom, si il existe, dans le filtre.
- If Me.zs_prenom <> "" Then
- If filtre <> "" Then
- filtre = filtre & " AND prenom = """ & Me.zs_prenom & """"
- Else
- 'le filtre contient seulement le prénom
- filtre = "prenom = """ & Me.zs_prenom & """"
- End If
- End If
- 'on affecte la variable filtre au filtre de access
- Me.Filter = filtre
- 'on active le filtre
- Me.FilterOn = True
- Me.Détail.Visible = True
- End Sub
|
Cette recherche me permet de rechercher un contact par le nom et/ou prénom.
Cela m'affiche les informations de la table "Contact".
Cela marche très bien.
Je voudrais faire quasiment la même chose sur un autre formulaire "Comité".
Ce formulaire montre le contact qui est passé en comité ainsi que tous les renseignements du comité :
- Si le contact a été accordé, refusé, financé, lieu ...
bref, pas mal d'informations quoi.
Le problème, c'est que le nom du contact n'est pas renseigné dans la table "Comité", il y a seulement le code_contact (clef étrangère).
Et je veux que l'on saisisse le nom du contact quand même.
Comment dois-je procéder ?
Puis-je partir de mon code déjà créé ?
Je vous remercie par avance
4rocky4
Problème résolu
Message édité par 4rocky4 le 07-02-2008 à 15:10:50
---------------
- Un con qui marche ira plus loin qu'un intellectuel assis -