[Access] Supprimer champ ds zone de liste mod

Fermé
Mannie - 3 nov. 2003 à 16:47
 Mannie - 3 nov. 2003 à 17:57
Bonjours tout le monde ! Voici mon problème :

J'ai une zone de liste modifiable d'une table PREAVIS qui contient comme clef primaire pre_id (numéro auto) et comme champ pre_tps (texte).
J'essaye de créer un bouton qui permet de supprimer la valeur selectionnée dans ma zone de liste (modifiable27).

j'ai essayé ceci mais ca ne marche po :

Private Sub Commande59_Click()
Dim strquery As String
If MsgBox("Supprimer la valeur séléctionnée ?", vbQuestion + vbYesNo) = vbYes Then
strquery = "DELETE [PREAVIS].pre_id FROM [PREAVIS] WHERE [PREAVIS].pre_tps = ' & modifiable27.value & ';"
CurrentDb.Execute (strquery)
Modifiable27.Requery
End If
End Sub

Si vous aviez une solution ca m'aiderai bien, merci
A voir également:

2 réponses

mobile75 Messages postés 69 Date d'inscription lundi 3 novembre 2003 Statut Membre Dernière intervention 23 septembre 2008 17
3 nov. 2003 à 17:24
salut
Surement que le champ lié de ta liste n'est pas pre_tps mais pre_id

alors essaye ça :
If MsgBox("Supprimer la valeur séléctionnée ?", vbQuestion + vbYesNo) = vbYes Then 
strquery = "DELETE [PREAVIS].pre_id FROM [PREAVIS] WHERE [PREAVIS].pre_id = ' & modifiable27.value & ';" 
CurrentDb.Execute (strquery) 
Modifiable27.Requery 
End If 
End Sub 


en esperant que ça puisse t'aider

A+
Essayer.........des fois ça marche............
0
J'ai bien essayé ca mais... :

Type de données incompatible dans l'expression du critère
0
mobile75 Messages postés 69 Date d'inscription lundi 3 novembre 2003 Statut Membre Dernière intervention 23 septembre 2008 17
3 nov. 2003 à 17:48
pre_id = texte ?

alors essayes :
strquery = "DELETE [PREAVIS].pre_id FROM [PREAVIS] WHERE [PREAVIS].pre_id = '" & modifiable27.value & "';"

A+
Essayer.........des fois ça marche............
0
Nan nan ca veut po :(
Pi pre_id c'est un numéro auto
pre_tps du texte

Mais je pense que l'erreur vient du modifiable27.value...
a mon avis c pas du tout ca mais je trouve pas les bonnes propriétés.
0
J'ai trouvé grace à toi :) merci !

strquery = "DELETE [PREAVIS].pre_id FROM [PREAVIS] WHERE [PREAVIS].pre_tps = '" & Modifiable27.Value & "';"

voila en compilant un peu toutes les infos on y arrive a la fin ;)

Merci encore !
0