Probleme Requete sql DELETE [Access] [Résolu ] - VB/VBA/VBS - Programmation
Marsh Posté le 04-03-2005 à 09:08:40
Et si tu lances cette requête directement (création requête) sous Access
=>
DELETE FROM TabTravailConversion WHERE (ConIdFilsO = 14 and ConIdFilsD = 499) OR (ConIdFilsO = 499 and ConIdFilsD = 14)
Tu as le même message ?
Marsh Posté le 04-03-2005 à 22:05:21
Bonsoir,
oui, j'ai le même message avec cette manip
dubitative, dubitative, je suis...
je nage
Amicalement
Suzan
Marsh Posté le 04-03-2005 à 22:14:29
j'ai trouvé !
l'erreur très con....
je me suis trompé de nom de champ.....
la bonne requete c'est :
Citation : strSql = "DELETE FROM TabTravailConversion" & _ |
des fois a force d'avoir le nez dedans on voit plus rien....
Excuse moi pour le dérangement pour rien
en tout cas merci beaucoup pour ton aide
Amicalement
Suzan
Marsh Posté le 04-03-2005 à 08:29:05
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 :
?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
'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