Bonjour à tous,
 
J'ai un formulaire avec deux zones de listes permettant de remplir une troisième zone de liste en passant par une table de travail.
Sur clic sur un bouton enlever, je veux enlever une ou plusieurs lignes sélectionnées dans cette troisième liste
je passe par une requete sql DELETE
le problème c'est que lorsque access fait le DoCmd.RunSQL (strSql)
il me met une fenetre me demandant de taper ConIdFilsO et ConIdFilsD ???
 
voici le contenu de strSql au débogage :
 
Citation :
 
 ?strsql
 DELETE FROM TabTravailConversion WHERE (ConIdFilsO = 14 and ConIdFilsD = 499) OR (ConIdFilsO = 499 and ConIdFilsD = 14)
   | 
 
j'ai beau le tourner dans tout les sens je ne vois pas ce qui ne fonctionne pas
 
 
 
Voici mon code
 
Citation :
 
 'ENLEVER ------------------------------------------------------------
 Private Sub btnSupprimer_Click()
   'Enleve une ou plusieurs conversions de la table de travail
   Dim varElt As Variant
 Dim myId1, myId2, a As Integer
   For Each varElt In ListeCreationConversion.ItemsSelected
           'Récupération des ID
 myId1 = ListeCreationConversion.Column(0, varElt)
 myId2 = ListeCreationConversion.Column(2, varElt)
   'Construction SQL
 strSql = "DELETE FROM TabTravailConversion" & _
 " WHERE (ConIdFilsO = " & myId1 & " and ConIdFilsD = " & myId2 & " )" & _
 " OR (ConIdFilsO = " & myId2 & " and ConIdFilsD = " & myId1 & " )"
   'Exécution Sql
 DoCmd.RunSQL (strSql)
           Next varElt
   'Rafraichissement des listes
 ListeCreationConversion.Requery
   End Sub
   | 
 
Est ce que vous auriez des pistes ??
 
D'avance merci
Suzan
 
Message édité par sdean le 04-03-2005 à 22:20:05