Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Supprimer un enregistrement

Supprimer un enregistrement

3 réponses
Avatar
kinguepat
Bonjour,
Après exécution du code ci-après, tous les enregistrements sont supprimés au lieu de l'enregistrement en cours.

N.B: j'ai une liste déroulante sur laquelle s'effectue la recherche. après MAJ de la liste déroulante, l'enregistrement concerné s'affiche.

code:

Private Sub btnDeleteClient_Click()
Dim Valeur As String
With txtFindClient
If .ListIndex <> -1 Then
Valeur = .ItemData(.ListIndex)
CurrentDb.Execute "DELETE FROM T_Clients WHERE " & _
BuildCriteria("IDClient", dbIntegrer, Valeur), dbFailOnError
txtFindClient.Requery
End If
End With
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
Me.Undo
Cancel = False
End If

Merci pour vos différentes contributions!
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
db
Bonjour,
Je ne sais pas si ça a un rapport, mais dans la ligne :
BuildCriteria ("IDClient",dbIntegrer, Valeur),
je remplacerais dbIntegrer par dbInteger…
db
Le 29/06/2017 à 18:39, kinguepat a écrit :
Bonjour,
Après exécution du code ci-après, tous les enregistrements sont supprimés au
lieu de l'enregistrement en cours.
N.B: j'ai une liste déroulante sur laquelle s'effectue la recherche. après MAJ
de la liste déroulante, l'enregistrement concerné s'affiche.
code:
Private Sub btnDeleteClient_Click()
Dim Valeur As String
With txtFindClient
If .ListIndex <> -1 Then
Valeur = .ItemData(.ListIndex)
CurrentDb.Execute "DELETE FROM T_Clients WHERE " & _
BuildCriteria("IDClient", dbIntegrer, Valeur),
dbFailOnError
txtFindClient.Requery
End If
End With
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion + vbYesNo,
"CONFIRMATION") = vbNo Then
Me.Undo
Cancel = False
End If
Merci pour vos différentes contributions!
Avatar
kinguepat
Le jeudi 29 Juin 2017 à 19:16 par db :
Bonjour,
Je ne sais pas si ça a un rapport, mais dans la ligne :
BuildCriteria ("IDClient",dbIntegrer, Valeur),
je remplacerais dbIntegrer par dbInteger…
db
Le 29/06/2017 à 18:39, kinguepat a écrit :
Bonjour,
Après exécution du code ci-après, tous les
enregistrements sont supprimés au
lieu de l'enregistrement en cours.
N.B: j'ai une liste déroulante sur laquelle s'effectue la recherche.
après MAJ
de la liste déroulante, l'enregistrement concerné s'affiche.
code:
Private Sub btnDeleteClient_Click()
Dim Valeur As String
With txtFindClient
If .ListIndex <> -1 Then
Valeur = .ItemData(.ListIndex)
CurrentDb.Execute "DELETE FROM T_Clients WHERE " & _
BuildCriteria("IDClient", dbIntegrer, Valeur),
dbFailOnError
txtFindClient.Requery
End If
End With
If MsgBox("Voulez-vous confirmer la suppression?", vbQuestion +
vbYesNo,
"CONFIRMATION") = vbNo Then
Me.Undo
Cancel = False
End If
Merci pour vos différentes contributions!
Bonsoir dB!
merci pour la réponse mais elle ne fonctionne pas...
Avatar
JeanPaulo
kinguepat wrote in
news::
Bonjour,
N.B: j'ai une liste déroulante sur laquelle s'effectue la recherche.
après MAJ
de la liste déroulante, l'enregistrement concerné s'affiche.
code:
Merci pour vos différentes contributions!

Une solution plus simple est de passer par les commandes directes:
Dim bd As Database
Dim Frd_in As Recordset
Dim Frd_ou As Recordset
'
Set bd = CurrentDb()
'
Set Frd_in = bd.OpenRecordset("Votre table", dbOpenDynaset) '
Frd_in.MoveFirst
ensuite utiliser (selon l'aide intégrée)
frd_in.findnext "référence de l'enregistrement, numéro d'index,
etc...)
' vous pouvez trouver l'enregistrement avec me![champ du formulaire]
frd_in.delete
frd_in.close
Bonne chance. JP