Discussion :

[guillaume.auge]

Bonjour à tous,

je débute en VBA, et je coince sur un problème qui va sans doute vous paraître simple...

Dans une base de gestion de formations, j'ai un formulaire de création d'une session (date, durée, etc.). Il contient un sous-formulaire (au format feuille de données), qui contient les stagiaires inscrits.

Je cherche à récupérer les valeurs concernant le stagiaire (dans le sous-formulaire donc) de la ligne sur laquelle mon curseur est positionné.

J'ai en effet besoin de créer un bouton de suppression du stagiaire, mais avec un msgbox qui demande "Voulez-vous vraiment supprimer PIERRE DUPOND ?".

Peut-on en quelques sortes dire à Access :

"Stocke la ligne en cours dans un recordset", pour ensuite manipuler le recordset ? Si oui comment ?

Je vous remercie sincèrement par avance de votre aide, car je m'arrache les cheveux...

[ClaudeLELOUP]

Bonjour Guillaume,

Pour faire simple.
Ouvre ton formulaire et aide-toi de l’assistant pour créer une requête qui supprime le stagiaire.
La syntaxe qui te donnera la valeur « stagiaire » sera du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Formulaires!TonFormulairePrincipal!LeNomDuSousFormulaire.Formulaire!LeNomDuContrôleStagiaire

.

Pour ce qui est du code à associer à l’événement sur le clic de ton bouton

- message de confirmation
- exécution de la requête, si la réponse est oui.

Reviens si ceci ne t'est pas clair.

[pier.antoine]

Bonjour

Autre solution, plus lourde en terme de programmation, mais plus souple en terme de manipulation (à mon sens) : passer par une table dite de "paramètre".


Pierre

[davidbd]

As-tu réussi à régler ton problème? Je suis aussi bloqué avec mon sous-formulaire pour faire la même chose que toi...

[User]

Bonjour,

Tu peux utiliser un code de ce type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CmdSuppEnrg_Click()
' Supprime l'enregistrement en cours
 
   If ( MsgBox("Souhaitez-vous supprimer l'enregistrement ?", vbYesNo) = vbYes) Then
 
      If Not (Me.RecordsetClone.EOF) Then
        Me.RecordsetClone.Delete
      End If
 
   End If
 
End Sub

a+