Discussion :

[Didier Piron]

Bonjour,
Je suis nouveau sur ce site, j'espère que ma 1ère question recevra une réponse.

En VBA, après avoir exécuté une requête action (insertion de lignes dans une query):
- soit avec la commande DOcmd.RUNSql
- soit avec la méthode dbs.Execute (STRSql)

il m'est impossible de lancer une nouvelle requête action supprimant ces mêmes lignes.
Je reçois le message 3086 "Could'nt delete from specified tables"

Didier

[LedZeppII]

Bonsoir,

Est-ce que tu pourrai nous montrer le SQL de la requête DELETE ?
Et préciser les clés des différentes tables.

A+

[Didier Piron]

Remarque:
Après avoir lancer la requête VBA "INSERT", il m'est également impossible de supprimer le contenu de la query Z_journal manuellement au moyen d'une simple query via l'écran Wizard. Mes enregistrements sont en lecture seule. Donc le problème ne vient pas de la query DELETE mais de la query INSERT qui bloque mes enregistrements en lecture seule (peut être le Group By ??) -> je vais essayer sans.

INSERTION

Code :

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

1
2
3
4
5
6
7
Strsql = " INSERT INTO Z_JournalAchat ( VersionComptaGénérale, [Supplier ID], Num_facture, [Type mouvement], Journal," _
       & " NumeropieceJournal, Date_Compta, Article9, GENCPT6_id, Crédit ) " _
       & " SELECT VersionComptaGénérale, [Supplier ID], Num_facture, 'F', 'JAC', " _
       & " NumeropieceJournal, Date(), 0, Compte, Sum(lgn_total_TVA) " _
       & " FROM Z_Invoice_Details " _
       & " WHERE [Supplier ID] = " & Me.Supplier_ID & " And num_facture = '" & Me.num_facture & "'" _
       & " GROUP BY VersionComptaGénérale, [Supplier ID], Num_facture, 'F', Journal, NumeropieceJournal, Date(), 0, Compte "

Code :

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

DoCmd.RunSQL Strsql

SUPPRESSION

Code :

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

1
2
3
Strsql = "DELETE * FROM Z_JournalAchat WHERE Num_facture = '" & Me.num_facture & "'" _
 
DoCmd.RunSQL Strsql

"Z_journal" = jointure entre tables "T_journal" et "Version" sur un champ version_id.

Code :

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

1
2
3
SELECT Z_VersionComptaGénérale.Modifiable, T_JournalAchat.*
FROM T_JournalAchat INNER JOIN Z_VersionComptaGénérale ON T_JournalAchat.VersionComptaGénérale = Z_VersionComptaGénérale.VersionComptaGénérale
WHERE (((T_JournalAchat.Journal)="JAC"));

[bizu31]

Je dis peut être une connerie, mais si ton Me.num_facture est un numéro, ce n'est pas la peine de l'entourer d'apostrophe:

Code :

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

1
2
 
Strsql = "DELETE * FROM Z_JournalAchat WHERE Num_facture = " & Me.num_facture

[LedZeppII]

Bonsoir,

Si je ne me trompe pas, DELETE ne peut supprimer que dans une seule table à la fois.
Or, si tu utilises comme source, une requête sur plusieurs tables, tu ne peux pas préciser dans quelle table supprimer.

Dans l'aide d'Access tape la question "supprimer des enregistrements à l'aide d'une requête"
et regarde la rubrique "Suppression d'un groupe d'enregistrements à l'aide d'une requête"

Bon courage.