Discussion :

[Dermochelys]

Bonjour,

J'ai un formulaire principal qui contient deux sous-formulaires (les champs visible dans le principal seront à terme cachés). dans ce formulaire principal, la valeur du champ IDTrainingSelected varie en fonction de la ligne sélectionnée tandis que le champ Nom reste statique

Le premier sous-formulaire (SF1), en mode continu, (à gauche dans l'image) contient un certain nombre de lignes correspondant a des formations, à évaluer, d'une personne déterminée (les différentes valeurs proviennent d'une requête). Ce nombre de ligne varie d'une personne à l'autre.
Le second sous-formulaire (SF2)2 (à droite dans l'image) est lié à une table Eval qui contient les champs vides correspondants aux évaluations des différentes formations, champs que l'utilisateur pourrait remplir en fonction de ses besoins.

Mon problème:
- Idéalement, j'aurais voulu qu'il y ai autant de lignes dans le second formulaire que dans le premier. Et que pour chaque contrôles de chaque ligne on puisse encoder une valeurs différentes de la ligne précédente. Pour ce faire j'avais mis mon SF2 en mode continu mais, remplir le champs d'une ligne, répercute cette valeur dans tous les champs similaires de toutes les lignes. Donc pas du tout ce que je veux.
- Du coup, je me dit qu'un sous-formulaire simple devrait faire l'affaire pour le SF2 (même si c'est loin de l'esthétique que je souhaitais). Pour pouvoir ultérieurement sauver le tout dans la table Eval, j'ai mis dans le SF2 deux champs liés dont le premier récupère la valeur de Nom (ici 35) à l'ouverture du formulaire principal. Et le second champs (entouré en bleu) devrait récupérer la valeur de IDTrainingSelected.

Mais ça ne fonctionne pas.
En premier essai, je me suis placé sur le contrôle du SF2 (nomé Texte41) et j'ai écris

Code :

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

1
2
3
Private Sub Texte41_BeforeUpdate()
Texte41 = [Me].[Parent].[IDTrainingSelected]
End Sub

J'ai aussi essayé sur l'évennement AfterUpdate sans succès.

Puis j'ai essayé, également sans succès, en me positionnant sur le formulaire principal de faire

Code :

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

1
2
3
4
Private Sub IDTrainingSelected_AfterUpdate()
Forms.EnterDataOfTheYear.testsf3b_rq_FormationRequiseParPersonne.Form.Texte41.Value = Me.IDTrainingSelected
Forms.EnterDataOfTheYear.testsf3b_rq_FormationRequiseParPersonne.Form.Requery
End Sub

Où suis-je faux dans la formulation de mon code?



Mon autre question, est de savoir comment il serait possible de "multiplier" le nombre de ligne dans la zone SF2 (faire plusieurs sous-formulaires?) pour correspondre exactement à ce qu'il y a dans le SF1 et permettre un encodage différents dans un même champ quelque soit la ligne. Evidemment ce nombre de lignes doit changer si on change de personne...
Un peu comme dans un tableau excel, ou les premières colonnes contiennent déjà des infos, et les colonnes suivantes sont a remplir.


Merci d'avance pour votre aide et éclaircissements :-)
Et, bientôt bonne fête du premier mai

[Dermochelys]

Bon, je n'ai pas trouvé de solutions et ai fait autrement :-)

[User]

Bonjour,

- Idéalement, j'aurais voulu qu'il y ai autant de lignes dans le second formulaire que dans le premier. Et que pour chaque contrôles de chaque ligne on puisse encoder une valeurs différentes de la ligne précédente. Pour ce faire j'avais mis mon SF2 en mode continu mais, remplir le champs d'une ligne, répercute cette valeur dans tous les champs similaires de toutes les lignes. Donc pas du tout ce que je veux.

Quelques pistes de réflexion :

A chaque nouvelle évaluation vous exécuter avant la saisie une requête insertion qui ajoute autant de nouvelles lignes dans la table Evaluation qu'il y a de formations pour cette personne, un exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
dim strSQL as String
 
strSQL = "INSERT INTO Evaluations (id_formation, id_personne, id_training) " & _
         "SELECT id_formation, id_personne, id_training FROM Formations where id_personne = " & nz(Me.id_personne,0)
 
currentdb.Execute strSQL, dbFailOnError
 
Me.SF2.requery
 
'...

Ensuite vous basez le sous-formulaire SF2 sur une requête qui n'affiche que les lignes non encore évaluées :

Code SQL :

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

1
2
3
select *
from Evaluations
where IsNull(DateEvaluation) and IsNull(Resultat)

;

Cdlt,