Discussion :

[marg0t]

Bonjour à tous,

Une question que je ne sais pas trop comment poser donc les recherches sur internet sont infructueuses.

Alors je souhaite savoir s'il est possible de créer un formulaire ajout(dans une table), qui récupère les données d'une autre table.

En fait avec mes données, j'ai une table T_Salarié_Chantier, où je souhaite récupérer les données pour mettre dans le formulaire. Et de là une fois le formulaire remplit, je souhaite que ces données s'enregistrent dans la table T_Pointage.

PS:Merci de ne pas simplement dire oui ou non mais si cela est possible d'expliciter un peu.

D'avance merci a tous.

[User]

Bonjour,

Si je me souviens bien de ton projet, tu disposes d'un planning pour le pointage avec à gauche, en en-têtes de lignes les salariés et projets, en en-t^tes de colonnes les jours du mois et enfin en dessous tu saisie les heures travaillées en double-cliquant sur une case.

Partant de là je pense que tu souhaites faire apparaître les salariés et les projets à gauche même si pour ceux-ci il n'y a pas encore eu d'heures pointées.

Si c'est le cas, alors il te faut faire des jointures gauches au niveau de la requête source qui alimente la requête croisée.

Après, une fois ceci fait, tu peux alimenter la table T_Pointage, avec les données de la table T_Salarié_Chantier, car justement elle apparaîtront à gauche sur ton planning. Utilises pour cela ton code sur l'événement double-clic :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function OuvrirFormSaisie(j As Integer)
Dim DateJ As Date
 
DateJ = DateSerial(Forms!Frm_Pointage!An, Forms!Frm_Pointage!Mois, j)
 
DoCmd.OpenForm "F_Saisie", , , "[LoginSalarié]=" & Nz(Formulaires!Frm_Pointage!LoginSalarie, 0) & " and [Référence Commande]=" & Nz(Formulaires!Frm_Pointage!SF_Pointage!Référence_Commande, 0) & " and ([DatePointage]=" & FDateUs(DateJ) & ")"
'DoCmd.OpenForm "F_Saisie", , , "[Référénce Commande]=" & Nz(Formulaires!Frm_Pointage!SF_Pointage!Référence_Commande, 0) & " and ([DatePointage]=" & FDateUs(DateJ) & ")"
 
Forms!F_Saisie!LoginSalarie.Value = Forms!Frm_Pointage!LoginSalarie
Forms!F_Saisie!Jour.Value = DateJ
Forms!F_Saisie!Référence_Commande.Value = Forms!Frm_Pointage!SF_Pointage!Référence_Commande
Forms!F_Saisie!Ref.Value = Forms!Frm_Pointage!SF_Pointage!Ref
 
End Function

Mais surtout n'oublie pas de bien faire ces jointures gauches au niveau de ta requête source...

A+

[marg0t]

Salut User,

Bon alors j'ai regardé un peu les jointures gauches dont tu parlais mais il y avait bien plus simple ne fait, ou alors c'est parce que ma demande n'était pas assez explicite. En fait j'ai créer un formulaire d'ajout sur la table qui m'interessé et j'ai créé une liste déroulante qui à partir d'une autre table récupère les données souhaitées. Tout cela marche super.

Merci pour ton aide user.

A+

[marg0t]

Salut User,

Bon alors en vérifiant plusieurs fois ce que j'avais fait, cela ne marche pas vraiment. Sa ajoute bien dans la table T_Pointage mais les données changent et se n'est pas normal.
Je vais donc essayer le principe des jointures même si je ne sais pas trop comment elles fonctionnent car je ne les ai jamais utilisées.

R_Analyse_Croisée=>R_Récup_Pointage_par_Affaires
R_Récup_Pointage_par_Affaires est liée a deux requêtes: R_Récup_Pointage=>T_Pointage et R_Affaires_Par_Salarié=>R_Affaires_par_Mois=>R_Récup_Pointage(lié à la table T_Mois)


Donc si tu peux me dire où je dois mettre la jointure gauche et comment le faire. Merci d'avance

[User]

Salut,

Dans la requête source de la requête analyse croisée, tu cliques sur les liens, puis tu fais un clic droit et choisis propriété de la jointure.

Et dans la fenêtre qui s'ouvre tu sélectionnes :

Inclure tous les enregistrements de la table contenant les salariés et seulement ceux de l'autre table pour lesquels les champs joints sont égaux.

A+

[marg0t]

Salut,

En fait sans trop le savoir c'est ce que j'avais fait. Donc tout fonctionne.

Merci encore pour ton aide User et à bientôt.

@+
Marg0t