Insérez une ligne dans une table automatique chaque mois

**Jiben59** · 14/03/2013, 16h00

Envoyé par zoom61

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function MaJ_Periodique()
    Dim SQL As String, oSQL As DAO.Recordset
    Dim IDPaiPer As String, LibPaiPer As String, MTPaiPer As String, MoisPaiPer As String, CodePmt As String, NumChq As String, CodeJrnl As String, CodeSsJrnl  As String, CodePaiPer As String
    Dim ProchainPaiPer As Date, FuturPaiPer As Date
 
    DoCmd.SetWarnings False
 
    'Je lis la table PaiementPeriodique pour ne récupérer que les paiements à faire
    SQL = "SELECT PaiementPeriodique.* " _
        & " FROM PaiementPeriodique " _
        & "WHERE PaiementPeriodique.FinPaiPer>Now() AND PaiementPeriodique.ProchainPaiPer<=Now();"
 
    'Exécute la requête
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    'Fait l'analyse de tous les paiements
    Do Until oSQL.EOF
        'Initialise mes variables
        IDPaiPer = oSQL("CodePaiPer")
        LibPaiPer = oSQL("LibellePaiPer")
        MTPaiPer = oSQL("MontantPaiPer")
        ProchainPaiPer = oSQL("ProchainPaiPer")
        FuturPaiPer = DateAdd("m", 1, ProchainPaiPer) 'Ajoute un mois à la date du paiement
        MoisPaiPer = Format(oSQL("ProchainPaiPer"), "MMMM") 'récupère le mois en texte
	CodePmt = oSQL("CodePmt ")
	NumChq = oSQL("NumChq ")
	CodeJrnl = oSQL("CodeJrnl ")
	CodeSsJrnl = oSQL("CodeSsJrnl ")
	CodePaiPer = oSQL("CodePaiPer ")
 
        'Ajout la donnée dans la table Mouvements
        DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, NumChq, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & NumChq & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"
 
        'Mise à jour la date du prochain paiement dans la table PaiementPeriodique
        DoCmd.RunSQL "UPDATE PaiementPeriodique SET PaiementPeriodique.ProchainPaiPer = #" & Format(FuturPaiPer, "MM/DD/YY") & "# " _
            & "WHERE PaiementPeriodique.CodePaiPer=" & IDPaiPer & ";"
 
        oSQL.MoveNext
    Loop
 
    DoCmd.SetWarnings True
End Function

@+.

Merci pour le code mais toujours ce message d'erreur.

Je vous explique ce que j'ai fais :

J'ai supprimé les deux lignes dans la table mouvements, ensuite j'ai changé la valeur ProchainPaiPer en mettant 14/03/13, enfin j'ai ouvert le module puis j'ai supprimé l'ancien code pour mettre le nouveaux code fournit, et j'ai enregistré le module et la base de données (Access) puis j'ai fermer la base de données.

En ouvrant la base de données j'ai eu ce message :

Du coup, j'ai appuyer sur la croix rouge pour fermer ce message.

J'ai fais option activer les contenus, comme je fais à chaque ouverture de ma base de données.
Juste après, j'ai un nouveau message qui s'affiche :

J'ai appuyer sur le bouton " Déblocage", et j'ai eu la fenêtre suivante qui s'est ouvert :

Que faire maintenant si vous plaît ?

**zoom61** · 14/03/2013, 16h05

Il ne faut pas d'espace.

@+.

**Jiben59** · 14/03/2013, 16h10

Entre les guillemets ? ou entre les égal aussi ?

Merci.

**Jiben59** · 14/03/2013, 16h30

J'ai enlever les espaces mais sur le NumChq, j'ai le message suivant :

Car la case NumChq est vide car le Code de Paiement est par virement bancaire donc il n'a pas de chèque, il aura un numéro de chèque si le code de paiement est un Chèque.
Donc j'ai enlevé NumChq car ce numéro changera de toute façon donc une saisie manuelle devra avoir lieu si un jour j'utilise le chèque comme mode de paiement.

Mais après l'avoir enlever j'ai une erreur ici :

Revoici le code pour l'analyser si vous plaît car je ne vois pas mon erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Function MaJ_Periodique()
    Dim SQL As String, oSQL As DAO.Recordset
    Dim IDPaiPer As String, LibPaiPer As String, MTPaiPer As String, MoisPaiPer As String, CodePmt As String, CodeJrnl As String, CodeSsJrnl  As String, CodePaiPer As String
    Dim ProchainPaiPer As Date, FuturPaiPer As Date
 
    DoCmd.SetWarnings False
 
    'Je lis la table PaiementPeriodique pour ne récupérer que les paiements à faire
    SQL = "SELECT PaiementPeriodique.* " _
        & " FROM PaiementPeriodique " _
        & "WHERE PaiementPeriodique.FinPaiPer>Now() AND PaiementPeriodique.ProchainPaiPer<=Now();"
 
    'Exécute la requête
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    'Fait l'analyse de tous les paiements
    Do Until oSQL.EOF
        'Initialise mes variables
        IDPaiPer = oSQL("CodePaiPer")
        LibPaiPer = oSQL("LibellePaiPer")
        MTPaiPer = oSQL("MontantPaiPer")
        ProchainPaiPer = oSQL("ProchainPaiPer")
        FuturPaiPer = DateAdd("m", 1, ProchainPaiPer) 'Ajoute un mois à la date du paiement
        MoisPaiPer = Format(oSQL("ProchainPaiPer"), "MMMM") 'récupère le mois en texte
    CodePmt = oSQL("CodePmt")
    CodeJrnl = oSQL("CodeJrnl")
    CodeSsJrnl = oSQL("CodeSsJrnl")
    CodePaiPer = oSQL("CodePaiPer")
 
        'Ajout la donnée dans la table Mouvements
        DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"
 
        'Mise à jour la date du prochain paiement dans la table PaiementPeriodique
        DoCmd.RunSQL "UPDATE PaiementPeriodique SET PaiementPeriodique.ProchainPaiPer = #" & Format(FuturPaiPer, "MM/DD/YY") & "# " _
            & "WHERE PaiementPeriodique.CodePaiPer=" & IDPaiPer & ";"
 
        oSQL.MoveNext
    Loop
 
    DoCmd.SetWarnings True
End Function

Désoler pour le double post. merci pour votre aide.

**zoom61** · 14/03/2013, 20h19

Copie la ligne (en la mettant avant) et remplace docmd.runsql par msgbox.
Que contient le message ?

@+.

**Jiben59** · 14/03/2013, 20h40

Envoyé par zoom61

Copie la ligne (en la mettant avant) et remplace docmd.runsql par msgbox.
Que contient le message ?

@+.

Je remplace tout les docmd.runsql par msgbox ?

De plus, la ligne copier il faut la mettre avant quoi ?

Merci.

**zoom61** · 14/03/2013, 20h43

Remplace :

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"

Par :

Code :

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

1
2
3
4
Msgbox "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"

@+.

**Jiben59** · 14/03/2013, 20h50

Maintenant j'ai ce message :

La même ligne que tout à leur est mis en jaune :s

Mon Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Function MaJ_Periodique()
    Dim SQL As String, oSQL As DAO.Recordset
    Dim IDPaiPer As String, LibPaiPer As String, MTPaiPer As String, MoisPaiPer As String, CodePmt As String, CodeJrnl As String, CodeSsJrnl  As String, CodePaiPer As String
    Dim ProchainPaiPer As Date, FuturPaiPer As Date
 
    DoCmd.SetWarnings False
 
    'Je lis la table PaiementPeriodique pour ne récupérer que les paiements à faire
    SQL = "SELECT PaiementPeriodique.* " _
        & " FROM PaiementPeriodique " _
        & "WHERE PaiementPeriodique.FinPaiPer>Now() AND PaiementPeriodique.ProchainPaiPer<=Now();"
 
    'Exécute la requête
    Set oSQL = CurrentDb.OpenRecordset(SQL)
    'Fait l'analyse de tous les paiements
    Do Until oSQL.EOF
        'Initialise mes variables
        IDPaiPer = oSQL("CodePaiPer")
        LibPaiPer = oSQL("LibellePaiPer")
        MTPaiPer = oSQL("MontantPaiPer")
        ProchainPaiPer = oSQL("ProchainPaiPer")
        FuturPaiPer = DateAdd("m", 1, ProchainPaiPer) 'Ajoute un mois à la date du paiement
        MoisPaiPer = Format(oSQL("ProchainPaiPer"), "MMMM") 'récupère le mois en texte
    CodePmt = oSQL("CodePmt")
    CodeJrnl = oSQL("CodeJrnl")
    CodeSsJrnl = oSQL("CodeSsJrnl")
    CodePaiPer = oSQL("CodePaiPer")
 
        'Ajout la donnée dans la table Mouvements
        MsgBox "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"
 
        'Mise à jour la date du prochain paiement dans la table PaiementPeriodique
        DoCmd.RunSQL "UPDATE PaiementPeriodique SET PaiementPeriodique.ProchainPaiPer = #" & Format(FuturPaiPer, "MM/DD/YY") & "# " _
            & "WHERE PaiementPeriodique.CodePaiPer=" & IDPaiPer & ";"
 
        oSQL.MoveNext
    Loop
 
    DoCmd.SetWarnings True
End Function

**zoom61** · 14/03/2013, 21h13

Remplace par les lignes :

Code :

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

1
2
3
4
MsgBox "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", " & CodePmt & ", " & CodeJrnl & ", " & CodeSsJrnl & ", " & CodePaiPer & ",)"

Par :

Code :

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

1
2
3
 
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"

@+.

**Jiben59** · 14/03/2013, 21h19

On rencontre toujours le même problème, sa serait un problème de syntaxe avec L'INSERT INTO :

Et toujours la même ligne :

Merci de votre aide.

**zoom61** · 14/03/2013, 21h24

Code :

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

1
2
3
4
Msgbox "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"

Que donne le msgbox ?

@+.

**Jiben59** · 14/03/2013, 21h29

J'ai ce message qui est revenu :

Mais la balise msgbox, n'est pas sélectionner :

**zoom61** · 14/03/2013, 21h31

Tu n'as pas mis le code que je t'ai fourni :

Code :

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

1
2
3
4
Msgbox "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"

@+.

**Jiben59** · 14/03/2013, 21h39

Non, ton code donnée je l'avais remplacé moi. il ne fallait pas faire ceci ?

**zoom61** · 14/03/2013, 21h47

Je viens de voir une erreur, remplace :

Code :

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

1
2
3
4
Msgbox "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """,)"

Par :

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO Mouvements (DateMvt, LibelleMvt, MontantMvt, CodePmt, CodeJrnl, CodeSsJrnl, CodePaiPer) " _
            & "VALUES (#" & Format(ProchainPaiPer, "MM/DD/YY") & "#, """ & LibPaiPer & UCase(Left(MoisPaiPer, 1)) & LCase(Right(MoisPaiPer, Len(MoisPaiPer) - 1)) & """, " & MTPaiPer & ", """ & CodePmt & """, """ & CodeJrnl & """, """ & CodeSsJrnl & """, """ & CodePaiPer & """)"

@+.

**Jiben59** · 14/03/2013, 21h51

Tous les messages sont partis sauf celui dès que l'on ouvre la base de données,
voici le message :

Merci de votre aide encore.

**zoom61** · 14/03/2013, 21h54

Mais si tu fais le pas à pas, cela fonctionne ?

@+.

**Jiben59** · 14/03/2013, 22h23

Quand j'appuie sur F8, je n'ai aucun message d'erreur qui s'affiche contrairement aux fois précédente.

Quand je ferme le module, il me fait apparaitre ce message :

Sa veux dire quoi ? Et je fais quoi aussi ?

Merci pour vos réponse et vos aide.

**zoom61** · 15/03/2013, 07h19

Cela veut dire que ta fonction ne s'est pas exécutée jusqu'au bout...
Recommence en faisant tous les F8 nécessaire.

@+.

**Jiben59** · 15/03/2013, 14h07

Envoyé par zoom61

Cela veut dire que ta fonction ne s'est pas exécutée jusqu'au bout...
Recommence en faisant tous les F8 nécessaire.

@+.

Bonjour.

J'ai fais tous les F8, ensuite j'ai enregistré et exécuter le module, puis j'ai pu le fermer sans problème

Es ce bon alors ?

Puis ce message qui s'affiche à l'ouverture, il veux dire quoi à vrai dire :

Merci pour votre aide.

Insérez une ligne dans une table automatique chaque mois [AC-2007]

Access

Discussions similaires

Partager

Partager