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