Discussion :

[dede18]

Bonjour à tous,
J'ai une application comptabilité sur access, dans une sub vba il y a un certain nombre de requêtes qui fonctionnent toutes sauf la dernière. Si je passe cette requête en avant dernière elle fonctionne. C'est toujours la dernière qui ne fonctionne pas.
Je joint mon code.

Merci d'avance

Private Sub EcritRegroup_Click()
If MsgBox("Attention, cette opération est irréversible !", vbOKCancel, "Prudence") = vbOK Then
Dim bd As Database
Dim cptesGestion As Recordset
Dim montant, totalcharges, totalproduits, totalresult, numerocompte As Currency
Dim requeteSQL, resultatSQL As String
Dim jour As String
Dim numeroEcr As Long
Set bd = CurrentDb
DoCmd.SetWarnings (False)
jour = Date
' regroupement des charges
requeteSQL = "insert into ecriture (datEcr,libEcr) values ('" & jour & "','Regroupement charges')"
DoCmd.RunSQL (requeteSQL)
numeroEcr = DMax("numEcr", "ecriture")
totalcharges = 0
Set cptesGestion = bd.OpenRecordset("rq_regroupCharges")
cptesGestion.MoveFirst
While (Not cptesGestion.EOF)
montant = cptesGestion!solde
totalcharges = totalcharges + montant
requeteSQL = "insert into mouvement values (" & numeroEcr & ","
requeteSQL = requeteSQL & cptesGestion!numCpte & ", 0,"
requeteSQL = requeteSQL & montant & ","
requeteSQL = requeteSQL & 0 & ")"
DoCmd.RunSQL (requeteSQL)
cptesGestion.MoveNext
Wend
cptesGestion.Close
' regroupement des produits
requeteSQL = "insert into ecriture (datEcr,libEcr) values ('" & jour & "','Regroupement produits')"
DoCmd.RunSQL (requeteSQL)
numeroEcr = DMax("numEcr", "ecriture")
totalproduits = 0
Set cptesGestion = bd.OpenRecordset("rq_regroupProduits")
cptesGestion.MoveFirst
While (Not cptesGestion.EOF)
montant = cptesGestion!solde
totalproduits = totalproduits + montant
requeteSQL = "insert into mouvement values (" & numeroEcr & ","
requeteSQL = requeteSQL & cptesGestion!numCpte & ","
requeteSQL = requeteSQL & montant & ",0 ,0)"
DoCmd.RunSQL (requeteSQL)
cptesGestion.MoveNext
Wend
cptesGestion.Close
totalresult = totalcharges - totalproduits
If totalresult < 0 Then
numerocompte = 120000
Else
numerocompte = 129000
End If
requeteSQL = "insert into ecriture (datEcr,libEcr) values ('" & jour & "','Résultat')"
DoCmd.RunSQL (requeteSQL)
numeroEcr = DMax("numEcr", "ecriture")
requeteSQL = "insert into mouvement values (" & numeroEcr & ","
requeteSQL = requeteSQL & numerocompte & ", 0,"
requeteSQL = requeteSQL & totalcharges & ","
requeteSQL = requeteSQL & 0 & ")"
DoCmd.RunSQL (requeteSQL)
resultatSQL = "insert into mouvement values (" & numeroEcr & ","
resultatSQL = resultatSQL & numerocompte & ","
resultatSQL = resultatSQL & totalproduits & ",0 ,0)"
DoCmd.RunSQL (resultatSQL)
DoCmd.SetWarnings (True)
MsgBox ("Opération terminée")
Else
MsgBox ("Opération annulée")
End If
End Sub

[tee_grandbois]

Bonsoir,
Visiblement il n'y a pas d'erreur de code, peut-être faut-il essayer de remplacer DoCmd.RunSQL (resultatSQL) par CurrentDb.Execute resultatSQL, dbFailOnError et enlever le Docmd.SetWarnings (False) au moins la première fois pour vérifier qu'il n'y a pas de message d'erreur lors de l'exécution.

PS : pense à utiliser les balises de code (icône #) la prochaine fois.

[HDU71000]

Salut,

aussi, à chaque

Code :

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

set monmachin=truc

tu dois mettre en fin de code

Code :

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

set monmachin= nothing

pour libérer les objets de la mémoire.

Cela pourrait expliquer ton souci.

A+

[tee_grandbois]

Peux-tu aussi nous indiquer quel est le volume de données à insérer.

[dede18]

Bonjour,

Merci pour vos réponses, et surtout à tee_grandbois de m'avoir suggéré d'activer les messages. Il s'avère que j'essayais d'enregistrer les mêmes données sur une table ayant une clé primaire sur deux champs. J'ai modifié mon code et tout fonctionne.
Désolé pour les balises de code mais c'est la première fois que je poste avec du code, jusqu'ici j'avais trouvé mes réponses dans le forum.

@+