Discussion :

[denisfavre]

A tous bonsoir !

Je bloque sur un point pourtant simple. Je n'arrive pas à supprimer un enregistrement d'un table à partir d'un simple formulaire. Je ne passe pas par l'assistant (ne fonctionne pas sur ma version d'access). Donc je crée un bouton "supprimer". Je lui affecte le code suivant :

Private Sub Commande4_Click()
On Error GoTo Err_Commande4_Click
DoCmd.RunCommand acCmdDeleteRecord

Exit_Commande4_Click:
Exit Sub

Err_Commande4_Click:
MsgBox "SUPPRESSION ANNULEE"
Resume Exit_Commande4_Click

End Sub

Mais hélas ca ne fonctionne pas bien
Qq pourrait m'indiquer le code vb à mettre sous un bouton suppression d'un enregistrement ???
Merci d'avance !

[shwin]

Allo, voici le code généré par l'assistant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande1_Click:
    Exit Sub
 
Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
 
End Sub

[denisfavre]

Merci à toi Shwin. C très clair ! Par hasard tu ne saurais pas pourquoi mon assistant ne fonctionne pas. Lorsque je le lance il me met le très désagréable message suivant : "la méthode 'CurrentDb' de l'objet '_Application' a échoué".

Cela marchait pourtant bien et maintenant on dirait que la fonctionnalité n'est plus active ???? Tu as une idée ?

[denisfavre]

En fait les assistants s'étaient désinstallé. Je ne sais pas comment. Mais je les ai réinstallé à partir du CD MS Office et il remarche correctement.

Voila pb résolu !!!