Discussion :

[isabelle b]

Bonjour,

Un bouton sur le formulaire qui bascule tous les champs de la table T_Titre dans une table temporaire qui contient un champ id_titre et un champ complémentaire id_chantier (qui doit se remplir avec l'id_chantier du formulaire sur lequel on se trouve).

Il me faut donc une requete ajout de manière à associé à chaque id_titre de la table T_titre, l'id chantier du formulaire ouvert dans la T_titre temporaire ?

voici ce que j'ai commencer à faire.

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
Private Sub TousADroiteEtiquetteSav_Click()
 
DoCmd.SetWarnings False
 
 
DoCmd.RunSQL "INSERT INTO T_TitreEtiquetteSav_temp ( Id_Titre,Id_Chantier) SELECT T_TitreEtiquetteSav.Id_Titre, """ & Me.ID_Chantier & """ AS Expr1 FROM T_Chantier;"
 
 
Me.ZL_TitreEtiquetteSav.Requery
Me.ZL_TitreChoisisSav.Requery
 
DoCmd.SetWarnings True
 
 
End Sub

Merci de votre aide (en miniature l'image de l'écran concerné)

isabelle

[Invité]

[QUOTE=isabelle b;3807365]Bonjour,

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
Private Sub TousADroiteEtiquetteSav_Click()
 
DoCmd.SetWarnings False
 
 
DoCmd.RunSQL "INSERT INTO T_TitreEtiquetteSav_temp ( Id_Titre,Id_Chantier) SELECT T_TitreEtiquetteSav.Id_Titre, """ & Me.ID_Chantier & """ AS Expr1 FROM T_Chantier;"
 
 
Me.ZL_TitreEtiquetteSav.Requery
Me.ZL_TitreChoisisSav.Requery
 
DoCmd.SetWarnings True
 
 
End Sub

Bonjour
Je pense que tu as un problème dans ta ligne de commande avec des ". Il doit falloir les remplacer par des quotes '.

'"& Me.ID_Chantier & "'

[philben]

bonjour Isabelle ,

1. Si id_chantier est un numérique, il ne faut pas l'entourer de quote ou de double quote.
2. Ta table d'origine s'appelle <T_TitreEtiquetteSav> ou <T_Chantier> car ta requete fait figurer les deux !?! (T_TitreEtiquetteSav.Id_Titre et FROM T_CHANTIER).

Si ta table source est bien <T_TitreEtiquetteSav> et ton champ <Id_Chantier> est bien un numérique, voici une requete a tester :

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO T_TitreEtiquetteSav_temp (Id_Titre,Id_Chantier) SELECT T_TitreEtiquetteSav.Id_Titre, " & Me.ID_Chantier & " AS Expr1 FROM T_TitreEtiquetteSav;"

Amicalement,

Philippe

[isabelle b]

Bonjour Philippe,

voici ce que j'ai trouvé par moi même (à quelque doubles quotes) prêt c'est exactement la même chose que toi.

T'es très fort et par voie de conséquence, je le deviens aussi !!

Code :

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

DoCmd.RunSQL "INSERT INTO T_TitreEtiquetteSav_temp ( Id_Titre, Id_Chantier ) SELECT T_TitreEtiquetteSav.Id_Titre, """ & Me.ID_Chantier & """ AS Expr1 FROM T_TitreEtiquetteSav ;"

Merci beaucoup de ton aide

[Invité]

J'ai donc tout faux. Désolé

[isabelle b]

pas tout à fait toutes les quotes ne sont pas nécessaires, mais il y avait aussi un autre problème

merci aussi pour ton aide