Discussion :

[mgascult]

Salut
Je ne fais que passer.
Si le formulaire principal qui est actif est F_fond et que celui-ci contient vos 8 sous-formulaires qui eux-mêmes contiennent des contrôles (textboxes, etc.), il y a un problème avec vos syntaxes en L22/L27, L38/L164 !

Code :

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

1
2
3
4
5
Formulaires![nomform]![nomsubform].Formulaire![nomcontrole]
ou
Forms!nomform!nomsubform.Form!nomcontrole
ou
Me!nomsubform.Form!nomcontrole

Code :

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

1
2
3
Forms![F_fond].Form![SF_ML]!lst_select_ML.Visible = False
vs
Forms![F_fond]![SF_ML]!Form!lst_select_ML.Visible = False

Code :

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

1
2
3
Forms![F_fond].Form![SF_ML]!txt_id_ML.Value = Rst.Fields(0)
vs
Forms![F_fond]![SF_ML]!Form!txt_id_ML.Value = Rst.Fields(0)

J'ai testé

Code :

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

Forms![F_fond]![SF_ML]!Form!lst_select_ML.Visible = False

le messages est "Ne trouve pas le formulaire SF_ML"

Parcontre, ce code fonctionne bien et me masque bien le champs

Code :

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

Forms![F_fond]![SF_ML]!Form!lst_select_ML.Visible = False

J'ai aussi testé

Code :

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

Forms![F_fond]![SF_ML]!Form!txt_id_ML.Value = Rst.Fields(0)

même message "Ne trouve pas le formulaire SF_ML"

Et j'ai essayé

Code :

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

Me! SF_ML.Form!txt_id_ML.Value = Rst.Fields(0)

message d'erreur ne trouve pas le champs SF_ML.

[mgascult]

Bonjour,

Je ne sais pas d'où vient l'erreur, mais je pense qu'il serait préférable d'utiliser une série de sous-formulaires placés chacun dans l'onglet qui convient que d'avoir ce recordset reprenant tout ensemble. Une petite démo en attaché avec les 3 premiers onglets.

Cordialement.

Merci EricDgn, c'est ce que j'ai fait. J'ai créé mes 8 sous formulaires indépendants et ensuite je les aient intégrés dans chaque onglets du formulaire F_Fond.
Ce qui m'a valu au passage de revoir une partie du code car le chemin n'était plus le meme

Je suis absent demain, je regarderai ta base la semaine prochaine.

[EricDgn]

Bien noter que la "Source" du formulaire F_fond est simplement la table T_ML (et rien d'autre).
Formulaire et sous-formulaires sont liés par "Champ père" - "Champ fils".
Cordialement.

[mgascult]

il n'y a pas de table source, tous les contrôles sont indépendants

[mgascult]

Bien noter que la "Source" du formulaire F_fond est simplement la table T_ML (et rien d'autre).
Formulaire et sous-formulaires sont liés par "Champ père" - "Champ fils".
Cordialement.

Je n'ai pas vu cette notion de Champ père Champ fils, peut être faut il que je fasse une déclaration ou relation entre le formulaire F_Fond et tous ses sous formulaires?

[EricDgn]

Pour chaque sous-formulaire le sélectionner puis indiquer le lien:

Cordialement.

[hyperion13]

Re,
Je ne vois pas de différence entre les 2 syntaxes ! Et vous ?

[mgascult]

Pardon, Erreur de copier/coller c'est bien mon code qui fonctionne et masque la liste

Code :

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

Forms![F_fond].Form![SF_ML]!lst_select_ML.Visible = False

Belle soirée

[mgascult]

Pour chaque sous-formulaire le sélectionner puis indiquer le lien:

Cordialement.

Merci, effectivement je ne l'ai pas fait, c'est la première fois que j'utilise des sous formulaires.
Je regarde cela lundi.

Belle soirée

[tee_grandbois]

bonsoir mgascult,
je relis ce post depuis le début, j'avoue que je l'ai fait un peu en diagonale avant d'y participer:

Je souhaite ajouter des données dans un formulaire qui contient 8 sous formulaires et chacun alimente une table.
Ces sous formulaires contiennent tous des contrôles indépendants.
J’ai donc fait comme d’habitude à savoir une requête qui va récupérer toutes les données des 8 tables pour alimenter ma liste déroulante.
Seul souci ma requête contient 112 champs et la liste déroulante est limitée à 20 champs ☹

il n'y a pas de table source, tous les contrôles sont indépendants

autant te prévenir tout de suite que vouloir remplir un formulaire et des formulaires de cette façon est vouée à l'échec.
Autant c'est possible de remplir un formulaire composé de champs indépendants avec un seul enregistrement, autant se sera impossible de le faire avec des sous-formulaires contenant des enregistrements multiples (et, à mon avis, ce sera le cas) car la source de données doit obligatoirement être une table (ou une requête).
Je te conseille donc de réfléchir avant de continuer dans cette voie et d'utiliser les bonnes pratiques de la programmation Access avec une source de données pour tes formulaires, même si tu passes par des tables temporaires.

[mgascult]

Bonjour à Tous,

Pour chaque sous-formulaire le sélectionner puis indiquer le lien:

Cordialement.

Ça ne fonctionne pas « impossible de lier des formulaires indépendants ».

[mgascult]

autant te prévenir tout de suite que vouloir remplir un formulaire et des formulaires de cette façon est vouée à l'échec.
Autant c'est possible de remplir un formulaire composé de champs indépendants avec un seul enregistrement, autant se sera impossible de le faire avec des sous-formulaires contenant des enregistrements multiples (et, à mon avis, ce sera le cas) car la source de données doit obligatoirement être une table (ou une requête).
Je te conseille donc de réfléchir avant de continuer dans cette voie et d'utiliser les bonnes pratiques de la programmation Access avec une source de données pour tes formulaires, même si tu passes par des tables temporaires.

Merci tee_grandbois.

je pleure 😢 je pensais qu’en alimentant mes sous formulaire avec la requête cela pouvait se faire.

Donc en gros le fait d’avoir fait 8 sous formulaires indépendamment et de les avoir ensuite insérés dans chaque onglet m’a été préjudiciable.

Si je revoie mon formulaire F_fond et que dans chaque onglet je dépose directement tous les contrôles, cela résoudra t’il mon problème ?

Dans la négative, cela voudrait dire que je devrai créer une table temporaire avec les 112 champs qui alimenteraient des contrôles qui ne seraient plus indépendants mais liés à la TMP et donc plus de gestion en variables.

Il me faudra donc revoir complètement ma copie.

[tee_grandbois]

bonjour,

Dans la négative, cela voudrait dire que je devrai créer une table temporaire avec les 112 champs qui alimenteraient des contrôles qui ne seraient plus indépendants mais liés à la TMP et donc plus de gestion en variables.

si dans ta requête les relations entre les tables sont 1à 1, ce serait éventuellement possible, mais je pense plutôt que cela sera 1 à n la plupart du temps (sinon pourquoi passer par des sous-formulaires ?): donc plusieurs tables temporaires et par conséquent ce serait le reflet des tables d'origine.
Et même si tu passes par des tables temporaires, as-tu pensé à la gestion des mises à jour qui pourraient survenir sur un ou plusieurs enregistrement(s) durant la copie dans les tables temporaires ? Car il faudra bien verrouiller ces enregistrements pour que d'autres utilisateurs ne puissent y accéder qu'en lecture seule car il faudra bien réinjecter les éventuelles mises à jour, ajouts, suppressions faites dans ces tables temporaires. Autant te dire que la solution n'est pas si simple et que tu t'attaques à quelque chose de plutôt gigantesque pour un seul homme.

Mais pourquoi travailler directement avec les tables d'origine te pose problème ? Est-ce une contrainte que l'on t'impose ?

[mgascult]

merci tee_grandbois.

mes tables sont liées en un pour un, une fiche ML égale une ligne dans chacune des autres tables.
Si nous devions avoir un autre départ pour une même personne, elle aurait un autre n° de fiche.



Ce matin, à la lecture de ton mail je me suis même posé la question : "pourquoi toutes ces tables en fait" mais je n'ai pas encore eu le temps de me poser pour trouver les conséquences si je regroupais tout dans une table

Je ne suis pas parti sur les tables temporaires car cela ne "m'excite" pas vraiment (je ne mets pas en cause le principe) et l'option des variables même si c'est plus lourd me convenais surtout pour l'historisation (que j'ai déjà construis).

Le non accès direct aux tables m'est imposé .

[mgascult]

Je viens de tomber sur un post qui évoque l'erreur "2113 valeur non valide pour ce champs" comme pour mon code.
Cela m'amène à un gros doute sur le résultat de ma requête! et si elle était vide? cela justifirai ce code erreur (on ne copie pas du vide dans du vide!).

Quel code pourrai-je mettre pour faire afficher ma requête? c'est bête mais je ne vois pas

Code :

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

1
2
Debug.Print [Forms]![F_select_suivi_fiche_ML]![lst_selct_fiche_ML_1]
sSQL = "SELECT T_ML.*, T_CAF.*, T_H24.*, T_NDF.*, T_PM.*, T_A7.*, T_MKD.*, T_RLM.* FROM ((((((T_ML INNER JOIN T_A7 ON T_ML.id_ML = T_A7.id_ML) INNER JOIN T_CAF ON T_ML.id_ML = T_CAF.id_ML) INNER JOIN T_H24 ON T_ML.id_ML = T_H24.id_ML) INNER JOIN T_MKD ON T_ML.id_ML = T_MKD.id_ML) INNER JOIN T_NDF ON T_ML.id_ML = T_NDF.id_ML) INNER JOIN T_PM ON T_ML.id_ML = T_PM.id_ML) INNER JOIN T_RLM ON T_ML.id_ML = T_RLM.id_ML WHERE (((T_ML.id_ML)=" & [Forms]![F_select_suivi_fiche_ML]!lst_selct_fiche_ML_1.Column(0) & "));"

[tee_grandbois]

mes tables sont liées en un pour un, une fiche ML égale une ligne dans chacune des autres tables.

donc tout va bien, tu peux alimenter tes formulaires avec ta requête. Même si dans le principe, une relation 1 à 1 avec plusieurs tables n'est pas du tout logique.

Je viens de tomber sur un post qui évoque l'erreur "2113 valeur non valide pour ce champs" comme pour mon code.
Cela m'amène à un gros doute sur le résultat de ma requête! et si elle était vide? cela justifirai ce code erreur (on ne copie pas du vide dans du vide!).

pour éviter d'utiliser un Recordset vide il faut tester sa fin de fichier avec EOF:

Code :

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

1
2
3
4
5
6
7
8
'... 
sSQL = "SELECT T_ML.*, T_CAF.*, T_H24.*, T_NDF.*, T_PM.*, T_A7.*, T_MKD.*, T_RLM.* FROM ((((((T_ML INNER JOIN T_A7 ON T_ML.id_ML = T_A7.id_ML) INNER JOIN T_CAF ON T_ML.id_ML = T_CAF.id_ML) INNER JOIN T_H24 ON T_ML.id_ML = T_H24.id_ML) INNER JOIN T_MKD ON T_ML.id_ML = T_MKD.id_ML) INNER JOIN T_NDF ON T_ML.id_ML = T_NDF.id_ML) INNER JOIN T_PM ON T_ML.id_ML = T_PM.id_ML) INNER JOIN T_RLM ON T_ML.id_ML = T_RLM.id_ML WHERE (((T_ML.id_ML)=" & [Forms]![F_select_suivi_fiche_ML]!lst_selct_fiche_ML_1.Column(0) & "));"
'insère les résultats dans les controles des sous formulairesSet db = CurrentDb
    Set Rst = db.OpenRecordset(sSQL, dbOpenSnapshot)
if not Rst.EOF Then
    Forms![F_fond].Form![SF_ML]!txt_id_ML.Value = Rst.Fields(0)
'... etc
End if

[mgascult]

Bonjour à Tous,

merci tee_grandbois, plus de message d'erreur mais les SF sont vides donc c'est la requête qui ne fonctionne pas

[mgascult]

J'ai ouvert la requête qui m'a servie de base et enlevé le critère le la liste déroulante et mis l'ID en dur et bien rien

J'ai enlevé l'ID et changé de champ et mis le nom, rien
Je ne comprends pas pourquoi elle ne fonctionne pas.
Les relations sont bonnes, j'ai des tables avec données d'autres sans car pas encore alimentées et c'est normal (une fiche n'est pas complétée en une fois)
Je sèche encore une fois

[mgascult]

j'ai trouvé c'est la jointure qui me bloquait, je viens de la modifier en 2 et j'ai des données




Mais je ne sais pas comment l'interpréter dans le code

Code :

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

sSQL = "SELECT T_ML.*, T_CAF.*, T_H24.*, T_NDF.*, T_PM.*, T_A7.*, T_MKD.*, T_RLM.* FROM ((((((T_ML INNER JOIN T_A7 ON T_ML.id_ML = T_A7.id_ML) INNER JOIN T_CAF ON T_ML.id_ML = T_CAF.id_ML) INNER JOIN T_H24 ON T_ML.id_ML = T_H24.id_ML) INNER JOIN T_MKD ON T_ML.id_ML = T_MKD.id_ML) INNER JOIN T_NDF ON T_ML.id_ML = T_NDF.id_ML) INNER JOIN T_PM ON T_ML.id_ML = T_PM.id_ML) INNER JOIN T_RLM ON T_ML.id_ML = T_RLM.id_ML WHERE (((T_ML.id_ML)=" & [Forms]![F_select_suivi_fiche_ML]!lst_selct_fiche_ML_1.Column(0) & "));"

[EricDgn]

Bonjour,

Désolé, mais à mon avis cela reste et restera une mauvaise idée de travailler avec tous ces champs "indépendants" (... alors que MS s'est fatigué à développer un gestionnaire de bases de données "relationnelles"). Jetez au moins un coup d'oeil sur l'exemple joint au post #40.

Cordialement.