Discussion :

[macmu]

Bonjour à tous.
Pour la rentrée scolaire, j'aimerais réaliser mon carnet d'évaluation avec Access.
Prof en Belgique, je dois travailler avec des compétences ce qui me fait des fichiers Excel compliqués en fin d'année.
Je débute en Access mais j'ai visé un peu grand et j'aimerais que ma BDD reprendre tous mes élèves depuis mes débuts dans le collège (mais si je ne les évaluerai plus).

Voici la base que je me suis créée:

La première difficultés rencontrée est celle-ci:
Encoder mes élèves en début d'année:


pour ID élève, j'ai fait ceci:
Source contrôle = ID_eleve
Contenu = SELECT Table_eleves.ID_eleve, [nom] & " " & [prenom] AS nom_eleve FROM Table_eleves;
Limiter à la liste =Oui
Autoriser à modifier = NON
Nombre de colonnes = 2
Largeurs colonnes= 0cm;2cm

Pour ID_année, même méthode:

Code :

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

Contenu = SELECT Table_annees.ID_annee, [annee] & "-" & [annee]+1 AS Expr1 FROM Table_annees;

Pour ID_section:

Code :

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

Contenu = SELECT Table_sections.ID_section, Table_sections.annee_section FROM Table_sections;

Pour ID_classe quel est le WHERE à écrire??


Je suis arrivé à une expression du style:

Code sql :

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

1
2
3
4
5
6
7
SELECT
    Table_classes.ID_classe, Table_classes.nom_classe , Table_classe_par_annee.ID_annee
FROM
    Table_classe_par_annee INNER JOIN Table_classes
    ON Table_classe_par_annee.ID_classe = Table_classes.ID_classe
WHERE
    (Table_classe_par_annee.ID_annee=15)

mais le 15 doit venir de ID_annee situé 2 "cases" plus haut dans le formulaire.

J'ai cherché et je bloque.
J'espère que qqn pourra m'aider ou du moin me donner une référence où aller chercher.

Merci d'avance.

[nico84]

Bonjour,

Une solution consiste à déterminer la liste autorisée au dernier moment : si le champ s'appelle sel_classe :

Code :

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

1
2
3
4
5
Private Sub sel_classe_Enter()
dim monannee as string
  monannee="15" 'à remplacer par la formule idoine
  sel_classe.RowSource = "SELECT Table_classes.ID_classe, Table_classes.nom_classe, Table_classe_par_annee.ID_annee...WHERE Table_classe_par_annee.ID_annee=" & monannee
end sub