Discussion :

[sinecure]

Bonjour,

Premièrement bonjour à tous,

Je débute sur access (jusqu'à présent j'utilisais excel en base de de données).
J'ai un formulaire basé sur deux tables et dont la source est la suivante:

Code :

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

1
2
SELECT [tbl Enseignants].[Numéro Enseignant], [tbl Enseignants].[Nom Enseignant], [tbl Enseignants].[Prénom Enseignant], [tbl Enseignants].Titre, [tbl Enseignants].[Adresse 1], [tbl Enseignants].[Adresse 2], [tbl Enseignants].[Code Ville], [tbl Enseignants].Téléphone, [tbl Enseignants].Email, [tbl Villes].[Nom Ville], [tbl Villes].[Code postal]
FROM [tbl Villes] INNER JOIN [tbl Enseignants] ON [tbl Villes].[Code Ville] = [tbl Enseignants].[Code Ville];

Cette requête s'appelle "rqt Enseignants + Villes"
Rien d'extraordinaire.

J'ai au dessus une liste déroulante pour afficher les enregistrements à la lumière du nom des enseignants et pour laquelle la rqt est la suivante:

Code :

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

SELECT [rqt Enseignants + Villes].[Numéro Enseignant], [rqt Enseignants + Villes].[Nom Enseignant], [rqt Enseignants + Villes].[Prénom Enseignant] FROM [rqt Enseignants + Villes] ORDER BY [rqt Enseignants + Villes].[Nom Enseignant];

Et tout marche, c'est parfait.

Je me demandais juste comment les champs du formulaires (en bas sur l'image en pièce jointe] se mettaient automatiquement à jour lorsque l'on sélectionne un enseignant dans la liste déroulante ?
Est-ce:
1 - Parce que l'Assistant "fait qq chose" ?
2 - Parce que le fait que la liste déroulante se base sur la rqt qui alimente la source du formulaire ?
3 - autre chose ?

Merci d'avance pour cette question probablement stupide !

[marot_r]

Si tu regardes les propriétés de ta liste déroulante de sélection, onglet événement tu devrais voir qu'il y a une procédure événementielle associée à Après Mise à Jour.

Cette procédure contient du code qui est exécuté lorsque tu fais et confirme une saisie dans ta liste déroulante.

Le code contient un certain nombre d'instructions qui ressemblent à cela :

Code :

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

1
2
3
4
5
6
7
8
        Dim r As DAO.Recordset: Set r = prmForm.Recordset.Clone
        r.FindFirst "[" & prmNomChampRecherche & "]=" & prmControlRecherche
 
        If Not r.NoMatch Then
            prmForm.Bookmark = r.Bookmark
        End If
 
        Set r = Nothing

qui demande à Access de trouver l'enr correspondant et de placer l'affichage dessus.

A+