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é :
Ici, je n'ai aucun problème.
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
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
Partager