Discussion :

[meriem.alaooui]

Bonne Année 2015 à tout le monde;
Je suis débutante en Access et après un petit effort et un grand soutien des professionnels de ce forum j'ai appris tant de leçons.
j'ai un problème auquel j'ai essayé 2 jours en vain.
j'ai un formulaire (F_ProfEnseignements) avec 2 sous formulaires :

1. (SF_Professeurs) qui affiche les professeurs
2. (SF_Enseignement) ou on saisie le niveau (liste déroulante) , la série (liste déroulante) et la matière (liste déroulante) que le professeur pratique.

alors sans lier les trois listes déroulantes tout va bien dans le sous formulaire(SF_Enseignement).
mais avec les trois listes déroulantes liés je saisie la première ligne et tous les champs sont bien affichés mais quand je passe à la 2 ,3,4 ..... lignes les données sont stockées dans la table source mais quelques champs de la première et la deuxième ligne de sous formulaire (SF_Enseignement) disparus.
cordialement.

[ClaudeLELOUP]

Bonne année à toi aussi !

Je t'aiderais volontiers, mais j'utilise Access2000. Peux-tu poster une version .mdb de ta base ?

http://claudeleloup.developpez.com/F...access2000.pdf

[jimbolion]

Claude, Meriem

Meilleurs vœux à vous deux pour cette nouvelle année.

Claude tu trouveras ci-joint la base au format 2000. Bonne continuation

Jimbolion

[ClaudeLELOUP]

re Bonne année à toi !

[ClaudeLELOUP]

Meriem que veux-tu faire exactement ?

Sans doute :

- ouvrir le formulaire F_ProfEnseignements
- saisir un code PPR
- et ensuite que voudrais-tu qu'il se passe et pour faire quoi ?

[meriem.alaooui]

Meriem,ClaudeLELOUP

Sans doute :

- ouvrir le formulaire F_ProfEnseignements
- saisir un code PPR
- et ensuite que voudrais-tu qu'il se passe et pour faire quoi ?

ensuite,saisir pour chaque professeur le niveau ,les séries de ce niveau et en fin les matières de cette serie :
un professeur peut enseigner 1 ou 2 niveau ,1 ou 2 série ,1 ou plus qu'une matière et le tous s'enregistre dans la table (T_Enseignement).cette table me sert ultérieurement pour affecter à chaque professeur ses feuilles à corriger selon le niveau, la série et la matière choisi en examen avec un publipostage.
Merci.

[ClaudeLELOUP]

Voici quelque chose qui fonctionne
- niveau père : les professeurs
- niveau fils : les enseignements



Regarde les propriétés « Contenu » des zones de liste dans SF_Enseignement pour que les choix opérés dans l’une limitent le choix dans celle à sa droite.

N.B. J’ai dû modifier ta table T_Matières pour transformer CODESERI texte => en entier long.
Je trouve que c’eût été plus logique d’y trouver l’id de T_series (codeseri) en tant que clé étrangère et non pas le N° de série !

[meriem.alaooui]

Salut ClaudeLELOUP,
Merci beaucoup pour ton aide mais je vous montre mon problème pendant la saisie dans cette image prise après avoirs saisir 4 enregistrements les champs se vide de leur contenu porqoui je sais pas.

[ClaudeLELOUP]

Bonjour,

Es-tu sûre ? À mon avis, comme la place réservée au sous-formulaire manque pour afficher le nouvel enregistrement suivant éventuel, Access a actionné l'ascenseur.
Glisse le curseur vers le haut pour voir les enregistrements cachés.

[Jeannot45]

Le problème vient du rafraichissement de tes listes déroulantes.
Dans la base que je te joins, tu verras que j'ai un peu rusé.
J'ai créé une zone de saisie qui reprend tes listes imbriquées et un bouton Ajouter.

Dans le sous formulaire, j'ai changer la source pour y mettre une requête et des zones de texte.

Avantage de cette méthode : lorsque tu veux ajouter un nouvel enregistrement, tu n'as pas à descendre jusqu’au denier enregistrement du sous formulaire

Bonne continuation

[ClaudeLELOUP]

Bien vu Jean ! Je me suis planté, et je n'avais pas compris le phénomène que signalait Meriem.

[jimbolion]

Cher tous,

Bien vu Jean ! Je me suis planté, et je n'avais pas compris le phénomène que signalait Meriem.

Eh oui les lendemains de fêtes...

jm

[meriem.alaooui]

Salut Jeannot45,ClaudeLELOUP,jimbolion ,tout le monde
C'est parfait.

Access a actionné l'ascenseur.Glisse le curseur vers le haut pour voir les enregistrements cachés.

Merci Jeannot45 pour l’idée grâce à vous je m'avance bien dans Access.je suis tres reconnaissante.

[ClaudeLELOUP]

Bonjour à tous,

Eh oui les lendemains de fêtes...

OK, Jean-Marie, maintenant ça va mieux, regarde (selfie de ce matin) :



Une astuce pour disposer de « zones de liste à contenu variable » dans un formulaire continu

Le problème vient du fait que lorsqu’on modifie de manière dynamique le contenu de la zone de liste pour en restreindre les choix dans l’enregistrement actif, cette restriction entre automatiquement en vigueur pour tous les autres enregistrements du formulaire.
Cela n’altère pas la valeur des choix antérieurs : l’item qui avait été choisi subsiste tel quel, mais si sa valeur ne figure pas dans la liste de celles ponctuellement permises, Access ne peut plus l’afficher. C’est le cas ici :




L’astuce consiste à afficher la valeur en clair dans une zone de texte indépendante et réduire la largeur de la zone de liste pour qu’elle n’affiche plus rien :




Ce qui donnera :



Code du formulaire père

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Private Sub cboCodeprof_AfterUpdate()
  DoCmd.GoToControl "txtCodeProf"
  DoCmd.FindRecord Me.cboCodeprof
  Me.cboCodeprof = Null
End Sub
 
Private Sub cboProf_AfterUpdate()
  DoCmd.GoToControl "txtCodeProf"
  DoCmd.FindRecord Me.cboProf
  Me.cboProf = Null
End Sub

Code du formulaire fils

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
  'Limiter les choix dans l'enregistrement actif
  Me.cboCodeMatiere.RowSource = Me.cboCodeMatiere.RowSource
  Me.cboCodeSerie.RowSource = Me.cboCodeSerie.RowSource
End Sub
 
Private Sub BtAjouterNouvelle_Click()
  'Pour que l'emplacement d'un nouvel enregistrement soit affiché
  DoCmd.GoToRecord , , acNewRec
  Me.CbocodeNiv.SetFocus
End Sub
 
Private Sub CbocodeNiv_AfterUpdate()
  'Réajuster les choix possibles dans les 2 listes à droite
  Call Form_Current
  Me.cboCodeMatiere = 9999
  Me.cboCodeSerie = 9999
End Sub
 
Private Sub cboCodeSerie_AfterUpdate()
  'Réajuster les choix possibles dans la liste à droite
  Me.cboCodeMatiere.RowSource = Me.cboCodeMatiere.RowSource
  Me.cboCodeMatiere = 9999
End Sub
Private Sub cboCodeMatiere_AfterUpdate()
  'C'est complet, on peut donc enregistrer
  Me.Refresh
End Sub
 
Private Sub Form_AfterInsert()
  'Mise à jour du compteur d'affectation en cas d'ajout
  'N.B. mise à jour automatique en cas de suppression
  Me.txtNbre.ControlSource = Me.txtNbre.ControlSource
End Sub

[jimbolion]

Claude,

OK, Jean-Marie, maintenant ça va mieux, regarde (selfie de ce matin) :

effectivement, heureux de te retrouver en pleine forme

jean-marie

[Jeannot45]

Excellente idée également. mais mise en oeuvre un peu lourde si je peux me permettre

[ClaudeLELOUP]

Bonjour,

Une description plus détaillée de la marche à suivre, dans un chapitre de ce tutoriel : http://claudeleloup.developpez.com/t...s7jours/#LVIII