Discussion :

[froutloops62]

Bonjour,

J'ai un sous formulaire en mode feuille de données, donc pas de possibilité de mettre un bouton dessus.

Je voudrais, juste en dessous du ce sous formulaire (donc sur le formulaire principal), un bouton qui pourrait supprimer l'enregistrement en cours dans le sous formulaire.

Merci de vos réponses

[mout1234]

bonjour,

Essaie:

Code :

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

1
2
3
    Me!MonSF.SetFocus
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDelete

[froutloops62]

Ok ça marche pour la suppression.

Par contre quand la fenetre s'affiche pour me demander si je valide la suppression, si je repond NON

Jai une erreur d'execution 2501
Laction Runcommand a ete annulé

Au débogage l'erreur pointe sur

Code :

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

1
2
3
4
5
Private Sub Commande74_Click()
    Me!Réalisation_sous_formulaire.SetFocus
    DoCmd.RunCommand acCmdSelectRecord
 >>> DoCmd.RunCommand acCmdDelete
End Sub

[Renardo]

Tu peux ajouter ceci

Code :

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

1
2
3
4
5
6
7
8
9
If MsgBox("Voulez-vous Suprimer cette enregistrement ?", _
                       vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
    DoCmd.SetWarnings False
    Me!Réalisation_sous_formulaire.SetFocus
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDelete
    DoCmd.SetWarnings True
 
End If

[froutloops62]

Ok merci beaucoup a tous les deux.

Merci Renardo ça marche.