INSERT INTO vba

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