[Access] Supprimer champ ds zone de liste mod
Mannie
-
Mannie -
Mannie -
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
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
2 réponses
-
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............ -
