Discussion :

[Virgile59]

Bonsoir,

Voilà j'ai ce code :

Code :

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

1
2
3
4
5
6
DoCmd.SetWarnings False
Dim db As DAO.Database
Set db = CurrentDb()
    db.Execute "INSERT INTO [Commandes supprimées] SELECT Commandes.* From Commandes WHERE (((Commandes.NumAuto)=[forms]![Principal]![Liste]))"
    RefreshQuery
DoCmd.SetWarnings True

Il me dit trop peu de paramètres 1 attendu ???? Merci d'avance

[cafeine]

Hello,

je ne comprends RefreshQuery dans ton code c'est quoi ?
et est-ce que le form "Principal" est ouvert ?

[Virgile59]

Oui le form "Principal" est ouvert

Et RefrehQuery c'est pour mettre à jour une liste

[cafeine]

et si tu essaies ?

Code :

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

db.Execute "INSERT INTO [Commandes supprimées] SELECT Commandes.* From Commandes WHERE Commandes.NumAuto = "  & [forms]![Principal]![Liste]

[Virgile59]

Merci cafeine !