Bonjour
"Michel__D" <Michel...@orange-ft.com.invalid> a écrit dans le message de
news:r3e1b4$df5$1...@gioia.aioe.org...
> Le 29/02/2020 à 01:40, albert a écrit :
----- Original Message -----
From: Michel__D
Newsgroups: microsoft.public.fr.access
Sent: Saturday, February 29, 2020 10:52 AM
Subject: Re: Controle rechercher enregistrement
Le 29/02/2020 à 01:40, albert a écrit :
> Bonjour
>
> Il y a dix ans sur la base de données ACCESS existante j'ai créé un
> contrôle avec liste déroulante utilisant les noms pour rechercher les
> enregistrements des membres et les afficher. Cela fonctionne très bien.
Quel est le source de cette liste déroulante ?
Créé avec l'assistant formulaire: Requête : QRY_totalAlphaList
SELECT QRY_totalAlphaList.Numéro, QRY_totalAlphaList.LASTNAME,
QRY_totalAlphaList.FIRSTNAME FROM QRY_totalAlphaList ORDER BY
QRY_totalAlphaList.LASTNAME, QRY_totalAlphaList.FIRSTNAME;
> On désire maintenant que les renouvellements se fassent en ligne. Nous
> avons examiné quelques sites et on remarque que seuls le Numéro et le nom
> du membre sont requis.
>
> Le numéro automatique est le numéro du membre.
Tu viens de l'ajouter ou il était déjà existant dans la base ?
Il a toujours été là depuis la création de la base access 97, mais pas
utilisé directement.
> Je ne réussis pas à créer un contrôle où en entrant le numéro du membre
> l'enregistrement s'afficherait sur le formulaire.
Théoriquement ton contrôle liste déroulante aurait du être construit avec 2
champs dont 1 masqué
(le numéro ou ID de l'enregistrement).
Le champ masqué est le Numéro les autres nom & prenom (Lastname & firstname)
Ce qui fait que lorsque tu sélectionne le nom (champ visible) de ta liste
déroulante, tu obtient
l'ID/numéro qui peut être le source de tous tes autres contrôles de ton
formulaire.
> On peut toujours utiliser le menu rechercher, mais c'est fastidieux.
>
> Toute suggestion est bienvenue pour créer un contrôle qui ferait le
> travail.
>
> Merci
Voici le texte du controle actuel
Private Sub Modifiable73_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Numéro] = " & Str(Nz(Me![Modifiable73], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Ceci affiche l'enregistement sur le formulaire.
J'espère que cette information est suffisante pour le moment
albertri-at-videotron.ca.invalid