Salut les ami,

Je voulais insérer les mêmes données dans deux tables; Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 StrInsert = "insert into t_paie (location_et,dtdebut,periodepaie,infospaie,user_et) values (" & Me.ListeLoca.Column(0) & ",#" & Format(Me.ListeLoca.Column(9), "mm/dd/yyyy") & "#,'" & Me.ListeLoca.Column(10) & "','Avance sur le loyer'," & iduser & ")"
        DoCmd.SetWarnings False
        DoCmd.RunSQL (StrInsert)
 
 
        StrInsertVers = "insert into t_vers (paie_et, verspaie, dtverse, user_et) values (" & IDPaie & ",'" & CDbl(Me.ListeLoca.Column(6)) & "',#" & Format(Me.ListeLoca.Column(9), "mm/dd/yyyy") & "#," & iduser & ")"
        DoCmd.RunSQL (StrInsertVers)
        MsgBox "Paiement enregistré", vbInformation, ""
Mais ça ne fonctionne pas je ne sais pas pourquoi. Auriez-vous une piste ?
merci