bonjour,

J'utilise un bouton rechercher dans un formulaire de contact pour afficher les informations du contact saisie.

Voilà le code derrière mon bouton recherché :

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
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
End Sub
Ici, je n'ai aucun problème.

En faite je voudrais faire le meme principe dans un autre formulaire, saisir le nom est afficher les informations.
Le problème, c'est que le seule moyen de comparer et d'afficher les informations, c'est avec le code du contact.

je voudrais que l'on saisisse le nom du contact puis que le bouton rechercher renvoye les informations et trouvant le "bon" code contact.

Pas facile a expliquer ...

Merci