Je ne sais pas comment tu sélectionnes ton enregistrement donc c'est difficile de te proposer une solution.
Si tu es sur un formulaire par exemple, sur click d'un champ tu peux mettre Private Sub numero_Click() Me.Recordset.Delete End Sub
A+ Eric
"svitaud" écrivait news::
Bonjour,
EN vba quel est la commande pour supprimer l'enregistrement en cours . MErci
sabine
kinguepat
Le jeudi 22 Avril 2004 à 15:22 par svitaud :
Bonjour, EN vba quel est la commande pour supprimer l'enregistrement en cours . MErci sabine
bonsoir à tous! j'aimerais supprimer l'enregistrement en cours en executant le code suivant: 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 tout se passe très bien au point de supprimer tous les enregistrements au lieu d'un seul... que faire? Notons que le choix de l'enregistrement se fait sur une liste déroulante
Le jeudi 22 Avril 2004 à 15:22 par svitaud :
> Bonjour,
>
> EN vba quel est la commande pour supprimer l'enregistrement en cours . MErci
>
> sabine
bonsoir à tous!
j'aimerais supprimer l'enregistrement en cours en executant le code suivant:
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
tout se passe très bien au point de supprimer tous les enregistrements au lieu d'un seul...
que faire?
Notons que le choix de l'enregistrement se fait sur une liste déroulante
Bonjour, EN vba quel est la commande pour supprimer l'enregistrement en cours . MErci sabine
bonsoir à tous! j'aimerais supprimer l'enregistrement en cours en executant le code suivant: 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 tout se passe très bien au point de supprimer tous les enregistrements au lieu d'un seul... que faire? Notons que le choix de l'enregistrement se fait sur une liste déroulante
