Discussion :

[benoit13]

Bonjour,

Je souhaite créer un bouton "supprimer l'enregistrement" qui permette de... supprimer un enregistrement donné.
Avez vous une idée de la syntaxe qui permette de faire cela?
Comment faire pour ne supprimer que le contenu d'un champs (via un autre bouton)?

Merci d'avance!

[loufab]

Bonjour,

il y a l'assistant bouton de commande pour ta première question.

Pour la deuxième :

Code :

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

me.monchamp = Null

Cordialement,

[benoit13]

Merci beaucoup!

[benoit13]

En ce qui concerne l'aide à la création du bouton, elle ne me permet pas de choisir l'enregistrement que je souhaite supprimer (ou bien je ne sais pas le faire...).
Je m'explique:
J'ai une zone de liste dans laquelle je choisis un numéro d'affaire. Cette zone de liste m'actualise des sous formulaires que je peux venir modifier. J'aimerais pouvoir supprimer l'enregistrement via mon bouton mais pour cela, encore faudrait-t-il que ce bouton vienne récupérer l'information dans la zone de liste contenant le numéro d'affaire que j'ai sélectionné...

Voila le code du bouton:

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
Private Sub suppr_Click()
On Error GoTo Err_suppr_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_suppr_Click:
    Exit Sub
 
Err_suppr_Click:
    MsgBox Err.Description
    Resume Exit_suppr_Click
 
End Sub

Si quelqu'un a une idée qui permettrait de supprimer l'enregistrement sélectionné dans la zone de liste "Numéro Affaire", alors je suis preneur!

Merci d'avance

Cordialement,

Benoit

[4rn0_o]

appelons la zone de texte avec le numéro affaire s'appelle NumAffaire, la table ou est située l'enregistrement MaTable et le champ où est le numéro d'affaire MonChamp.

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
17
Private Sub suppr_Click()
On Error GoTo Err_suppr_Click
Dim rst As DAO.Recordset
Set rst=CurrentDb.OpenRecordset("MaTable")
Do While Not rst!MonChamp=NumAffaire
    rst.MoveNext
Loop
rst.Delete
 
Exit_suppr_Click:
    Exit Sub
 
Err_suppr_Click:
    MsgBox Err.Description
    Resume Exit_suppr_Click
 
End Sub

ce n'est pas forcément la meilleure méthode, mais c'est la seule que je connaisse et elle fonctionne

[benoit13]

Merci bcp!!!