Problème avec deux insert into dans une commande

Version imprimable

Salut les ami,

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

Code:

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

30/09/2019, 18h08
hyperion13

Salut
Y-a-t-il un msg d'erreur ?
Sinon placez un debug.print après chaque str... pour vérifier le résultat dans le fenêtre d'exécution (Ctrl G)?
30/09/2019, 18h25
Rayan1

Salut

j'ai essayé mais quand j'exécute avec F5, rien ne s'affiche.
je ne sais pas si j'applique la bonne méthode pour exécuter afin d'avoir le résultat dans "Exécution"
30/09/2019, 18h29
tee_grandbois

bonjour,
et tant qu'on y est pour voir les erreurs messages suite à l'exécution de la requête: mettre en commentaires la désactivation des messages du moins tant que cela ne fonctionne pas:

Code:

'DoCmd.SetWarnings False
30/09/2019, 18h35
Rayan1

J'ai fais ça mais pas de reponse.
30/09/2019, 18h59
tee_grandbois

Citation:

J'ai fais ça mais pas de reponse.

et que doit-on comprendre: pas d'affichage du Debug.Print ou pas de message d'erreur ?

F5 pour exécuter et Ctrl G pour ouvrir en bas la fenêtre d'exécution pour visualiser le résultat des req

Code:

1
2
3
4
5
6
7
8
9
10
    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 & ")"
    Debug.Print strInsert
    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 & ")"
    Debug.Print strInsertVers
    DoCmd.RunSQL (strInsertVers)
    MsgBox "Paiement enregistré", vbInformation, ""
    DoCmd.SetWarnings True

01/10/2019, 12h37
Rayan1

1 pièce(s) jointe(s)

Salut voici ce que j'ai comme infos quand je le fais.
Pièce jointe 506826 Pièce jointe 506826
01/10/2019, 14h26
tee_grandbois

1 pièce(s) jointe(s)

bonjour,
comment se nomme le code que tu veux exécuter ?(on l'aurait su si tu avais posté le code complet)
Se trouve t-il dans un formulaire ou dans un module ?

Car avant de faire F5, il faut être dans la procédure.
Si c'est du code exécuté par un évènement d'un formulaire, inutile de faire F5, faire Ctrl G uniquement après avoir déclenché le code par le bouton associé en général.
Si tu es dans VBA, il faut faire F5 dans la procédure que tu veux lancer, et tu fais Ctrl G uniquement si tu ne vois pas la fenêtre d'exécution:

Pièce jointe 506858