Discussion :

[Rayan1]

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

[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)?

[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"

[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 :

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

'DoCmd.SetWarnings False

[Rayan1]

J'ai fais ça mais pas de reponse.

[tee_grandbois]

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 ?

[hyperion13]

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 :

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

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