Quel code pour suppression enregistrement ?

**Nessie37** · 17/10/2007, 17h17

Bonjour,

J'ai créé un bouton de commande avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande126_Click()
Me.AllowDeletions = True
 
If MsgBox("Vous êtes sur le point de supprimer définitivement un enregistrement. Cliquez sur OUI pour confirmer sinon NON.", vbQuestion + vbYesNo, "INFORMATION") = vbNo Then
Me.Undo
Cancel = True
Me.AllowDeletions = False
End If
 
End Sub

Mon form étant modif non autorisée, le but est de supprimer l'enregistrement après le message. Mais ... ça marche pas ! J'ai bien mon message d'erreur mais pas de suppression....

Help.

**Jean-Philippe André** · 17/10/2007, 17h22

salut,
pourquoi ne passes-tu pas par une requête sql de suppression ?

**Nessie37** · 17/10/2007, 17h30

Parce que mes connaissances en requêtes sont scolaires et se limitent à en faire en mode création.
De plus, j'avais oublié que les requêtes suppression existaient et tu me diras, je n'ai jamais su à quoi ça servait.

Est-ce que ça irait dans le sens de ce que je veux faire ?

**Jean-Philippe André** · 17/10/2007, 17h33

je suppose que oui,
si tu as la clé primaire de ton enregistrement tu peux faire une requête du style

Code :

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

DELETE * FROM MaTable WHERE ClePrimaire = " & num_d'enregistrement

**Nessie37** · 17/10/2007, 17h48

Oui mais la suppression, je la veux uniquement que sur le click du bouton de commande... je ne vois pas comment y arraiver avec cette requête

**Jean-Philippe André** · 17/10/2007, 17h52

ben dans ton evenement clic de bouton, apres la demande a l'utilisateur, tu stocke la valeur de l'enregistrement, et tu fais un docmd.runsql la_requete_de_suppression

**Nessie37** · 17/10/2007, 17h58

euh...là ça devient un peu compliqué pour moi :
tu me demandes donc dans mon form, sur mon super bouton avec mon Private Sub de "stocker la valeur" ? Kézako ?

Merci de me montrer comment tu fais stp

**Jean-Philippe André** · 17/10/2007, 18h08

mais tu as bien à ta disposition le numéro d'enregistrement affiché non ?
donc après ton code rajoute ceci

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande126_Click()
Me.AllowDeletions = True
 
If MsgBox("Vous êtes sur le point de supprimer définitivement un enregistrement. Cliquez sur OUI pour confirmer sinon NON.", vbQuestion + vbYesNo, "INFORMATION") = vbNo Then
Docmd.RunSQL "DELETE * FROM Talbe WHERE ClePrimaire = & " valeur_enregistement 'à adapter bien entendu
End If
 
End Sub

**Nessie37** · 17/10/2007, 18h15

C'est bien ce qu'il me semblait, j'avais compris ce que tu me demandes mais je ne suis pas assez familiarisée avec les termes appropriés donc sois indulgent stp

Code :

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

Docmd.RunSQL "DELETE * FROM Talbe WHERE ClePrimaire = & " valeur_enregistement

si j'ai bien compris :
FROM : c'est de la table dont est issu mon form
WHERE : que dois noter ? "cleprimaire" ?
valeur_enregistrement : je dois spécifier un n° d'enregistrement ?

**Jean-Philippe André** · 17/10/2007, 18h52

oui,
table est la table dans laquelle ton enregistrement existe,
cléprimaire est le champs qui te sert de clé primaire dans la table, et num_enregistrement est le numéro de la clé primaire de l'enreigstrement

**Nessie37** · 17/10/2007, 18h56

le souci c'est que je ne peux pas spécifier quel enregistrement je veux car je veux que cela supprime l'enregsitrement en cours sur mon form...

j'ai vraiment du mal là...

et je veux supprimer l'enregistrement entier....

**Jean-Philippe André** · 17/10/2007, 19h02

oui, mais l'enregistrement dans ta form, tu dois bien savoir d'ou il sort non ?

**Nessie37** · 17/10/2007, 19h15

Regarde ce que j'ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande126_Click()
Me.AllowDeletions = True
 
If MsgBox("Vous êtes sur le point de supprimer définitivement un enregistrement. Cliquez sur OUI pour confirmer sinon NON.", vbQuestion + vbYesNo, "INFORMATION") = vbNo Then
Me.Undo
Cancel = True
Else
DoCmd.RunSQL "DELETE DETAIL.*FROM DETAIL;"
 
End If
 
End Sub

Il semble vouloir executer la suppression mais il veut tous les enregistrements alors que je veux juste l'enregistrement en cours (la page que je consulte)...

une idée

**ft035580** · 17/10/2007, 20h08

Salut,

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 Commande126_Click()
Me.AllowDeletions = True
 
If MsgBox("Vous êtes sur le point de supprimer définitivement un enregistrement. Cliquez sur OUI pour confirmer sinon NON.", vbQuestion + vbYesNo, "INFORMATION") = vbNo Then
Me.Undo
Cancel = True
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE Détail.Champ1" _
& " FROM Détail " _
& " WHERE (((Détail.Champ1)=[Forms]![TonForm]![TonContrôle]))"
DoCmd.SetWarnings True
MsgBox "Enregistrement supprimé"
Me.Requery
End If
 
End Sub

**Nessie37** · 18/10/2007, 16h18

Salut,

Merci pour ton aide.
je suis en train de me pencher sur ton code et j'avoue qu'il y a des choses que je ne saisis pas, notamment :

Code :

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

1
2
3
DoCmd.RunSQL "DELETE Détail.Champ1" _
& " FROM Détail " _
& " WHERE (((Détail.Champ1)=[Forms]![TonForm]![TonContrôle]))"

le "champ 1" serait quoi ? Car je veux que toutes les données saisies de l'enregistrement en cours soient supprimées. En gros supprimer une ligne entière (celle qui sera consultée via le form) dans le table sur laquelle est basée mon form...
Je ne vois pas ce que je dois mettre... ni pour les autres d'ailleurs

Code :

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

[Forms]![TonForm]![TonContrôle]))

HELP !!!!

Sinon, il n'y avait pas plus simple que de passer par une requête suppression ?

**Nessie37** · 18/10/2007, 16h56

Je me suis débrouillée comme je pouvais (pas tout compris) et voilà ce que j'ai fait :

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 Commande126_Click()
Me.AllowDeletions = True
 
If MsgBox("Vous êtes sur le point de supprimer définitivement un enregistrement. Cliquez sur OUI pour confirmer sinon NON.", vbQuestion + vbYesNo, "INFORMATION") = vbNo Then
Me.Undo
Cancel = True
Else
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE DETAIL.numdetail" _
& " FROM DETAIL " _
& " WHERE (((DETAIL.numdetail)=[Forms]![DETAIL]![Commande126]))"
DoCmd.SetWarnings True
MsgBox "Enregistrement supprimé"
Me.Requery
End If
 
End Sub

ça me demande d'entrer qqch ...

marche pas...

**ft035580** · 18/10/2007, 19h42

Salut,

J'imagine que tu as une zone de texte nommée "numdetail" dans ton Form "DETAIL".

Auquel cas,essaie plutôt:

Code :

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

...& " WHERE (((DETAIL.numdetail)=[Forms]![DETAIL]![numdetail]))"

**Nessie37** · 19/10/2007, 09h44

Dans mon form, elle n'est pas nommée numdetail mais numéro
mais j'ai mis numdetail car c'est comme ça que ce champ apparait dans ma table (qui est la base du form).

Je ne comprends pas les codes et les formules, j'apprends au fur et à mesure donc merci de m'expliquer

**Nessie37** · 19/10/2007, 09h49

Envoyé par ft035580

Salut,

J'imagine que tu as une zone de texte nommée "numdetail" dans ton Form "DETAIL".

Auquel cas,essaie plutôt:

Code :

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

...& " WHERE (((DETAIL.numdetail)=[Forms]![DETAIL]![numdetail]))"

Je viens d'essayer ce que tu m'as dit et ça marche mais en me demandant d'entrer le numdetail, or je souhaiterais qu'il n'ait pas à me demander quel enregistrement je veux supprimer mais qu'il supprime automatiquement l'enregistrement en cours, celui que je consulte, par simple clic sur le bouton supprimer.

Invité · 19/10/2007, 10h02

Ce qui est pris en compte c'est comment il est nommé dans le form, en l'occurence si j'ai bien lu ici "numero" donc :

Code :

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

WHERE (((DETAIL.numdetail)=[Forms]![DETAIL]![numero]))

Quel code pour suppression enregistrement ?

VBA Access

Discussions similaires

Partager

Partager