Suppresion avec acces et VBA

Frerovic Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
 Marius -
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.
A voir également:

1 réponse

Marius
 
L'enregistrement est en fait supprimé quand vous avez validé la suppression.

Il suffit de rafraîchir le formulaire : ajouter une des lignes de code suivante :

Me.refresh
ou si le formulaire est basé sur une requête :
Me.requery
0