Discussion :

[rasta girl]

Voilà, j'ai un formulaire basé sur une requête et j'aimerais pouvoir supprimer dans ma table ce qui correspond à l'enregistrement courant.

Code :

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

ligneencours = Me.CurrentRecord

<-je sais pas si c'est ça.
Le problème c'est que je ne sais pas comment rédiger ma requête.

Code :

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

1
2
3
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)="l'id du produit de mon enregistrement courant"));

Quelqu'un saurait-il m'aider ?

[rasta girl]

Code :

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

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

Code :

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

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

[rasta girl]

Est-ce que quelqu'un a une idéé svp ?

[aba_tarn]

Tu devrais aller dans le forum VBA access, il y a plein de gens compétents dans ce domaine.