[Access] Recherche sur un formulaire
Bobby
-
laetitia02 Messages postés 428 Statut Membre -
laetitia02 Messages postés 428 Statut Membre -
Bonjour,
Alors voilà dans un formulaire, j'ai fait un bouton recherché avec ce 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.
Alors voilà dans un formulaire, j'ai fait un bouton recherché avec ce 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.
1 réponse
-
Private Sub bt_rechercher_Click()
dim req as string
dim rs as recordset
dim mabase as database
set mabase = currentdb()
'requete recherchant le nom de la personne dont le code correspond au code_contact present sur le formulaire ouvert
req="select nom from contact where code_contact=" & me.code_contact
'recupere les données dans rs
set rs=mabase.openrecordset(req)
me.nom_contact=rs!nom
end sub
voili voilou si ta pas bien compris redemande
