INSERT INTO vba

Version imprimable

INSERT INTO vba

Bonsoir,

j'essaie de remplir une table intermédiaire avec une requête en vba mais sans succès

J'ai un formulaire Contrat site dans lequel je place deux zones de liste pour associer à ce contrat, les compagnons du sous traitant qui vont travailler sur le site. En cliquant sur le bouton unadroite, cela fait passer le nom du compagnon de la zone de liste de gauche vers la zone de liste à droite

je voudrais completer la T_contratsite_compagnon qui comporte deux champs, l'id_contratsite et l'id_compagnon qui proviennent respectivement de la t_contratsite et la t_compagnon

voici mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub cmdUnADroite_Click() Dim sql If Not IsNull(Me.Tous_les_compagnons) Then sql = "INSERT INTO T_contratsite_compagnon SELECT Id_compagnon,Id_contrat_site FROM T_compagnon,T_contrat_site WHERE ID_compagnon = " & Me.Tous_les_compagnons & ID_CONTRAT_SITE = " & Me.ID_CONTRAT_SITE" DoCmd.SetWarnings False DoCmd.RunSQL sql Me.Tous_les_compagnons.Requery Me.Compagnons_affectés.Requery ' End If DoCmd.SetWarnings True End Sub
c'est mon sql qui ne fonctionne pas

savez vous comment je peux associer les deux champs des deux tables dans la table intermédiaire ?

merci à vous
isabelle

23/06/2008, 07h00
ClaudeLELOUP

Bonjour Isabelle,

Citation:

cela fait passer le nom du compagnon de la zone de liste de gauche vers la zone de liste à droite

Si id_contratsite et id_compagnon sont de type "texte" alors il faudrait les encadrer de guillemets comme ceci :

Code:

DoCmd.RunSQL "INSERT INTO T_contratsite_compagnon ( id_compagnon, id_contratsie ) SELECT """ & Me.[Tous_les_compagnons] & """ AS Expr1, """ & Me.[Id_contrat_site] & """AS Expr2; "

Les champs eussent été(*) numériques, alors simples guillemets à la place des triples guillemets.

Bonne journée.

(*) il y a des jours comme cela !
23/06/2008, 08h20
ClaudeLELOUP

Re
Proposition de recette pour créer ton sql

1° créer la requête avec l’aide Access
2° copier le « sql brut » et le coller dans la fenêtre d’exécution pour y apporter quelques retouches
3° mettre tout sur une ligne ( se positionner sur la première ligne et End tab Delete)
4° remplacer les données statiques dans la requête par le nom des variables
Exemple
Formulaires![LeFormulaireDsLequelJeTravaille]![Tous_les_compagnons] --> Me. [Tous_les_compagnons]
5° trancher le « sql brut » en parties fixes (encadrées de simples guillemets) et parties variables en les reliant par des ‘ & ’
6° si une tranche variable est de type texte, tripler le guillemet final de la tranche qui le précède et le guillemet initial de la tranche qui le suit.
7° traduire le reste en syntaxe Vba : Formulaires - - -> Forms, les points virgules - - - > virgules (dans les fonctions par exemple)
8° insérer le « sql toiletté » dans le code
9° croiser les doigts

A l’inverse
Proposition de recette pour comprendre pourquoi ton sql ne fonctionne pas

1° dans le code, créer le sql dans une variable avant de l’utiliser
2° placer un

Code:

debug .print CetteVariable

juste avant l’instruction où on l’utilise
3° provoquer l’exécution du code litigieux
4° récupérer dans la fenêtre d’exécution le sql généré par le programme
5° ouvrir une nouvelle requête en mode création
6° à l’invite « ajouter une table », cliquer sur FERMER
7° cliquer sur sql dans la barre menu
8° remplacer « Select ; » par le copier coller du sql ci-dessus.
9° cliquer sur affichage dans le menu et constater le contenu de l’exécution du sql.
10° rougir de confusion et essayer de faire mieux la prochaine fois.
23/06/2008, 08h24
Invité

Bonjour

@ClaudeLELOUP :king:

Je rajouterais cela : http://cafeine.developpez.com/access...el/debugprint/

Starec
23/06/2008, 08h42
ClaudeLELOUP

Merci Starec
C'est manifestement beaucoup mieux !
C'est toute la différence entre un Vulgus Homo numeris(*) et Léonard de Vinci ! :hola: cafeine

(*) un comptable ordinaire

Merci pour ces infos j'en ai pris bonne note

j'ai réussi à glisser les noms individuellement de droite à gauche et vice versa, j'ai même réussi à passer tous les noms de gauche à droite, mais je n'arrive pas à faire le "Tous à droite".

J'ai bien lu le tuto et utiliser la recette maison ce qui m'a bien aidé, mais je n'arrive pas à lui dire d'insérer tous les enregistrements de ma liste de gauche en un click dans ma liste de droite (et par la même dans ma table intermédiaire)

faut il glisser une astérix quelque part ?

voici le code utiliser pour unAdroite que je voudrais modifier pour TousAdroite
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub cmdTousADroite_Click() Dim sql If Not IsNull(Me.Tous_les_compagnons) Then sql = "INSERT INTO T_contratsite_compagnon (Id_compagnon, Id_contrat_site) values (" & Me.Tous_les_compagnons & ", " & Me.ID_CONTRAT_SITE & ")" DoCmd.SetWarnings False DoCmd.RunSQL sql Me.Tous_les_compagnons.Requery Me.Compagnons_affectés.Requery End If DoCmd.SetWarnings True End Sub
merci beaucoup
isabelle

Bonjour Isabelle,

Si :
T_compagnon,T_contrat_site est celle de gauche
T_contratsite_compagnon est celle de droite

Alors :
Pour tout mettre à droite, je te propose
1° d'abord supprimer ce qui s'y trouverait éventuellement déjà (la suite de UnADroite)
2° transférer tout de gauche à droite
Code:

1 2 3 4 5 6 Private Sub cmdTousADroite_Click() 'Pour d'abord vidanger ce qui se trouverait déjà éventuellement à droite DoCmd.RunSQL ("DELETE T_contratsite_compagnon.* FROM T_contratsite_compagnon;") 'Pour mettre tout à droite DoCmd.RunSQL ("INSERT INTO T_contratsite_compagnon SELECT [T_compagnon,T_contrat_site].* FROM [T_compagnon,T_contrat_site];") End Sub

25/06/2008, 00h09
isabelle b

bonsoir Claude

ce n'est pas tout à fait cela

la liste de gauche contient la T_compagnon, la liste de droite contient la T_contratsite_compagnon (table intermédiaire qui lie la table compagnons à la table contratsite

pour se remplir elle doit prendre l'id_compagnon de la liste de gauche et l'id contratsite du formulaire sur laquelle est le trouve

Pour créer ces enregistrements id_compagnons et id contratsite

Je comprends comment lui affecter l'id_compagnon de la liste de gauche, mais comment lui dire qu'elle doit ajouter à chacun de ses enregistrements l'ide contratsite du formulaire

Je te joins une image pour que vois mieux ce que je veux dire

(l'id_contratsite en question (non visible) se trouve sur le formulaire indépendant que je fais apparaitre grace au bouton "affecter des compagnons". Les compagnons choisis viennent se placer dans la liste de droite et ensuite dans le sousformulaire blanc (en bas).

Merci à toi
isa
25/06/2008, 07h27
ClaudeLELOUP

Bonjour Isabelle,

Citation:

l'id_contratsite en question (non visible) se trouve sur le formulaire indépendant... ensuite dans le sousformulaire blanc (en bas)

Si le formulaire indépendant s'appelle "LeSousFormulaireBlancEnBas"

alors, pour se référer à son contrôle "id_contrasite", la syntaxe est :

Code:

Me!LeSousFormulaireBlancEnBas.Form.id_contratsite

Bonne journée.
25/06/2008, 20h34
isabelle b

bonsoir Claude et merci de aide

Si je comprends bien ce que dit ta requete :

Insère dans la T_contratsite_compagnon tous les champs de T_compagnon et T_contrat site depuis les tables compagnons et Tables contrat site

Or ce n'est pas possible car je suis en train de lier deux tables j'ai besoin d'allier les id des 2 tables pour créer la table intermédiaire

ce que je veux lui dire c'est :

insère dans la t_contratsitecompagnon tous les idcompagnons choisis dans la liste de gauche et lie les à l'id contrat site du formulaire dans lequel nous sommes

dans la table contrat site compagnon je n'ai que deux champs : l'idcompagnon et le champ idcontratsite

est ce que j'ai bien compris ?

merci à toi
isabelle

Je crois que cette fois j'ai compris ce que tu veux.

Code:

1
2
3
4
5
6
Private Sub cmdTousADroite_Click()
'Pour d'abord vidanger ce qui se trouverait déjà à droite
DoCmd.RunSQL ("DELETE T_contratsite_compagnon.* FROM T_contratsite_compagnon;")
'Pour mettre tout à droite
DoCmd.RunSQL ("INSERT INTO T_contratsite_compagnon ( id_compagnon, Id_contrat_site ) SELECT T_compagnon.id_compagnon, """ & Me!LeSousFormulaireBlancEnBas.Form.id_contratsite & """ AS Expr1 FROM T_compagnon;")
End Sub

25/06/2008, 22h19
isabelle b

ah tu m'as bien fait rire avec le "formulaire blanc en bas" :D

en fait ce sont les compagnons qui viennent se mettre dedans, mon id contrat site est sur le formulaire indépendant !

je vais essayer ton code et je te dis (en le modifiant quelque peu)

je suis sur la lecture du tutoriel d'heureux oli sur le publipostage et le transfert des données dans word via access ! ouh la la quelle galère ce truc

mais j'ai un gros contrat à éditer alors il faut que je m'y mette, je vais sans doute avoir besoin d'aide

isa
25/06/2008, 22h27
isabelle b

Bon ben il ne se passe rien

:(

Code:

sql = "INSERT INTO T_contratsite_compagnon ( id_compagnon, Id_contrat_site ) SELECT T_compagnon.id_compagnon, "" & Me!id_contratsite & "" AS Expr1 FROM T_compagnon;"

c'est quoi expr1 ?
25/06/2008, 22h31
ClaudeLELOUP

dans cas :

Code:

DoCmd.RunSQL ("INSERT INTO T_contratsite_compagnon ( id_compagnon, Id_contrat_site ) SELECT T_compagnon.id_compagnon, """ & Me!id_contratsite & """ AS Expr1 FROM T_compagnon;")

Si ton publipostage a pour but d'envoyer des mails individualisés avec pièces jointes éventuelles, je peux te montrer ce que j'utilise pour le resto de ma fille.
25/06/2008, 22h35
isabelle b

pour le moment je cherche à éditer mon contrat dans word depuis access parce qu'avec un état l'utilisateur n'aura pas accès à la modification des additifs et autre

mais oui je vais en venir aux mails et pièces jointes aussi pour envoyer les demandes de docs et j'aurais bien besoin d'un coup de main

mille mercis, je suis preneuse
25/06/2008, 22h40
isabelle b

il me met erreur exécution 2465 impossible de trouver l'id contrat site dont il est fait référence

est ce que tu veux que je t'envoie la base ?
25/06/2008, 22h44
ClaudeLELOUP

J'ai aussi une application dans laquelle je confectionne des contrats de travail, les différents paramètres (noms, fonction, taux horaires ...) viennent d'une table gérée par l'utilisateur.
Cela ressemble à ce que tu veux faire ?
25/06/2008, 22h51
ClaudeLELOUP

Citation:

2465 impossible de trouver l'id contrat site dont il est fait référence

Vérifie que nous avons bien orthographié le nom du contrôle qui contient l'ID
dans ton formulaire.
Si non poste ta DB
25/06/2008, 23h31
isabelle b

Exact l'id contrat site comporte un _ entre contrat et site mais maintenant il me met tous les compagnons

moi je ne veux que les compagnons de la table de gauche c'est à dire ceux qui correspondent à l'id sous traitant qui est aussi sur le formulaire indépendant

désolée de ne pas l'avoir présiser

je suis épatée !

sais tu comment lui dire ? j'ai essayé me!tous les compagnons (le nom de la table de gauche mais il ne fait plus rien alors) :roll:

Bonjour,
c'est un jeu de piste ?

Code:

1
2
3
4
5
6
7
8
9
Private Sub cmdTousADroite_Click()
Dim sql As String
'Pour d'abord vidanger ce qui se trouverait déjà à droite
DoCmd.RunSQL ("DELETE T_contratsite_compagnon.* FROM T_contratsite_compagnon;")
'Pour mettre tout à droite
sql = "INSERT INTO T_contratsite_compagnon ( id_compagnon, Id_contrat_site ) SELECT T_compagnon.id_compagnon, """ & Me.Id_contrat_site & """ AS Expr1 FROM T_compagnon WHERE (((T_compagnon.id_soustraitant)=""" & Me.Id_soustraitant & """));"
'Debug.Print sql
DoCmd.RunSQL (sql)
End Sub

Bonne journée

26/06/2008, 09h05
isabelle b

Merci Claude

on s'en approche

cette fois c'est erreur 3464 donnée de type incompatible dans le critère :(

bouh !

bonne journée aussi à toi
isa

Voilà enfin le code qui fonctionne. Il n'acceptait pas le ME pour Id_soustraitant. J'ai mis le chemin complet et tout roule !! merci beaucoup pour ton soutien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub cmdTousADroite_Click()
Dim sql
 
  If Not IsNull(Me.Tous_les_compagnons) Then
 
    sql = "INSERT INTO T_contratsite_compagnon ( id_compagnon, Id_contrat_site ) SELECT T_compagnon.id_compagnon, """ & Me.ID_CONTRAT_SITE & """ AS Expr1 FROM T_compagnon WHERE (((T_compagnon.id_soustraitant)=[Formulaires]![F_contratcompagnon]![ID_SOUSTRAITANT]));"
 
    DoCmd.SetWarnings False
 
    DoCmd.RunSQL sql
    Me.Tous_les_compagnons.Requery
    Me.Compagnons_affectés.Requery
    Forms![F_contrat]![F_CONTRAT_SITE]![F_recapContratCompagnon_sf].Requery
    End If
 
    DoCmd.SetWarnings True
End Sub

à bientôt
isabelle