Aller au contenu

Suppresion avec VBA


Frerovic

Messages recommandés

Bonjour, j'ai un petit souci avec acces. J'ai créer un formulaire qui permet à partir d'une liste déroulante de choisir une personne et d'afficher ses coordonnées. Dans ce formulaire il y'a également un bouton de commande "Nouvel Intervenant" qui vide tous les champs afin de pouvoir saisir d'autre coordonnées, un bouton "Enregistrer/Modifier" qui comme son nom l'indique permet d'enregistrer ou modifier une nouvelle personne et il y'a également un bouton "supprimer" et le problème vient de ce bouton. Quand je me sert de ce bouton de commande la personne est bien supprimer de la liste et de la table, mais à la place il est écrit #supprimer et je cherche un code pour qu'il soit completement supprimer et que cette indication n'apparaissent pas.

Je suis un débutant sous VBA et voici le code que j'ai utilisé pour le bouton de commande "supprimer"

Private Sub Supprimer_intervenant_Click()

On Error GoTo Err_Supprimer_intervenant_Click

req = "Delete* FROM Interv;"

MsgBox ("L'intervenant " & Me.ZT_Nom & " " & Me.ZT_Prénom & ", a bien été supprimer")

Set RSInterv = CurrentDb.OpenRecordset(req)

Exit_Supprimer_intervenant_Click:

Exit Sub

Err_Supprimer_intervenant_Click:

MsgBox Err.Description

Resume Exit_Supprimer_intervenant_Click

Merci pour votre aide.

Lien vers le commentaire
Partager sur d’autres sites

Archivé

Ce sujet est désormais archivé et ne peut plus recevoir de nouvelles réponses.

×
×
  • Créer...