Discussion :

[bibi28]

Bonjour à tous

Avec Access 2000, j'ai créé une base de données "abonnés" qui fonctionne bien.

Je voudrais créer soit un formulaire ou une page de recherche qui me donne les résultats suivant:

je veux rechercher "Mr Dupont".

Dans le champ de recherche je tape "Dupont" puis j'envoie, je voudrais que tous les abonnés "Dupont" soit répertoriés soit sur un nouveau formulaire soit sur une page et qu'en cliquant sur le nom qui m’intéresse cela déclenche l ouverture du descriptif complet de cet abonné et que je puisse modifier les indications.

Merci à tous de votre aide

Bibi 28

[madefemere]

Bonjour,

Soit tu as donc ta table T_Personne avec les champs IdPersonne ; NomPersonne

Pour ce que tu veux faire, tu crées :
- 1 formulaire "F_ListePersonne" tabulaire (ou donc en continu) avec les champs IdPersonne et NomPersonne pour créer un formulaire de recherche.
- 1 formulaire "unique" "F_FichePersonne" avec les 2 champs et les autres informations sur tes personnes pour modifier les informations.

1- Dans le premier formulaire, dans l'en-tête, tu ajoutes un champ (Contrôle zone de texte indépendant) "TxtPersChercher" qui va te servir d'argument pour chercher les personnes.
Tu ajoutes un bouton BtnRechercher pour lancer ton filtre (tu peux utiliser aussi l'évènement après mis à jour de ta zone de texte "TxtPersChercher" pour lancer le code) :
Donc sur l'évènement Sur Click de ton bouton tu mets le code (pour filtrer ton formulaire par rapport au texte saisi):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub BtnRechercher_ OnClic()
Dim  strSQL as String
StrSQL = ""
Me.Filter = "[NomPersonne] LIKE '*" & Me.TxtPersChercher & "*'"
Me.FilterOn = True
Me.Requery
End Sub

2- Tu ajoutes un Deuxième bouton "BtnOuvrirFiche" dans l'en-tête (ou sur chaque ligne d'enregistrement pour éviter les erreurs - ou souvent on utilise l'évènement Double-click des champs). Et tu mets le code suivant pour ouvrir le formulaire "F_Fiche Personne" de l'élément sélectionné :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub BtnOuvrirFiche_OnClick()
Docmd.OpenForm "F_FichePersonne",,,"[IdPersonne]=" & Me.IdPersonne
'Attention ce code ne contient pas de gestion d'erreurs
End Sub

Et c'est bon.

Je te conseille d'abuser de la touche F1 pour t'informer sur les méthodes Filter, FilterOn et OpenForm pour plus de précision (je rédige sans vérification, désolé).

Bonne continuation

[bibi28]

Bonjour

je vais tester tout ça et vous tiens informe

a bientôt

bibi28

[Jeannot45]

En fouillant un peu dans les tutos, tu trouverais ton bonheur j'en suis sur.
Regarde celui-ci : Création d'un formulaire de recherche multicritères
Il correspond tout à fait à ce que tu veux obtenir. Deux versions soit avec du code VBA soit en utilisant la macro.

Bonne lecture et bonne continuation

[bibi28]

Merci beaucoup je regarde et vous tiens informe

merci

Bibi28