[Access] Un bouton rechercher ?!

Marsh Posté le 06-02-2008 à 09:39:44

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 -

Marsh Posté le 06-02-2008 à 09:39:44

Marsh Posté le 06-02-2008 à 10:40:42

Tu crées un champ de formulaire avec une formule de type DLookUp pour récupérer le nom du contact.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *