resultat = "DELETE LIGNE_COMMANDE.ID_COMMANDE, LIGNE_COMMANDE.ID_PRODUIT, LIGNE_COMMANDE.QTT_COMMANDEE, LIGNE_COMMANDE.QTT_CONFIRMEE, LIGNE_COMMANDE.QTT_LIVREE FROM LIGNE_COMMANDE WHERE (((LIGNE_COMMANDE.ID_PRODUIT)=" & Me.ID_PRODUIT & "))"
Me.ID_PRODUIT est ma liste d'ID de produit mais ça ne fait pas ce que je veux puisque ça me demande une nouvelle fois de saisir l'id du produit à supprimer.
De plus lorsque je réexécute la requête j'ai une erreur :
Type de données incompatible dans l'epression du critère
Voici le code complet
1 2 3 4 5 6 7 8 9 10
| Private Sub Commande52_Click()
Dim db
Dim resultat As String
Set db = CurrentDb()
resultat = "DELETE LIGNE_COMMANDE.ID_COMMANDE, LIGNE_COMMANDE.ID_PRODUIT, LIGNE_COMMANDE.QTT_COMMANDEE, LIGNE_COMMANDE.QTT_CONFIRMEE, LIGNE_COMMANDE.QTT_LIVREE FROM LIGNE_COMMANDE WHERE (((LIGNE_COMMANDE.ID_PRODUIT)=" & Me.ID_PRODUIT & "))"
DoCmd.RunSQL resultat
Me.Requery
End Sub |
Partager