Discussion :

[FewRa]

Bonjour

J'ai créé un formulaire avec un détail, donc quand je l'ouvre j'ai plusieurs lignes qui apparaissent, je voudrais ajouter un bouton supprimer (dans la partie détail) pou pouvoir supprimer la ligne.

Voila mon code

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 Commande144_Click()
On Error GoTo Err_Commande144_Click
 
If MsgBox("Supprimer définitivement cette Ligne ?", vbQuestion + vbYesNo, "Supprimer la ligne") = vbNo Then Exit Sub
 
    SQL "DELETE FROM NH WHERE NH.ID_CAS=" & Me![ID_CAS]
    DoCmd.RunSQL SQL
 
 
Exit_Commande144_Click:
    Exit Sub
 
Err_Commande144_Click:
    MsgBox Err.Description
    Resume Exit_Commande144_Click
 
End Sub

MAis quand je clique sur le bouton j'ai ce message d'erreur: "Erreur de compilation: Sub ou Fonction non Définie"
Ce qui est surligné en bleu est ![ID_CAS] du Me![ID_CAS]

Merci d'avance pour votre aide

[tee_grandbois]

Bonsoir,
il manque le '=' à cette instruction :

Code :

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

    SQL = "DELETE FROM NH WHERE NH.ID_CAS=" & Me![ID_CAS]

[FewRa]

Désolé pour répondre aussi tard, mais pas eu le temps de me pencher sur la base c'est dernier jour.

quand je mets le signe = j'ai ce message d'erreur

Erreur de Compilation: Variable non définie

[tee_grandbois]

Bonsoir,
tu as peut-être l'option Explicit dans ta base (déclaration des variables obligatoire, ce qui est une bonne chose). Essaie de mettre cette instruction en début de procédure (après On Error) :

Code :

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

Dim SQL As String

[dok flint]

Bonjour,
Tu peux essayer :

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 Commande144_Click()
On Error GoTo Err_Commande144_Click
 
If MsgBox("Supprimer définitivement cette Ligne ?", vbQuestion + vbYesNo, "Supprimer la ligne") = vbNo Then Exit Sub
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande144_Click:
    Exit Sub
 
Err_Commande144_Click:
    MsgBox Err.Description
    Resume Exit_Commande144_Click
 
End Sub

A+

[FewRa]

Merci à Vous deux les deux marches

dok flint peux-tu m'expliquer que veux dire le 8 et le 6 dans ton code? c'est juste pour comprendre comment ça marche

Merci d'avance


Edit: J'aimerai bien mettre résolu dans le titre mais je ne peux plus éditer mon premier message

[dok flint]

Bonjour,
Là on a utiliser le code pre-etabli par Access ,le 6 et 8 sont la position de la commande à executer dans le menu edition :

Code :

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

1
2
3
4
5
6
7
8
 
0 :Annuler
1 :Couper
2 :Copier
3 :Coller
6 :Supprimer
8 :Selectionner enregistrement
9 :Selectionner tous les enregistrements

Pour le il est en bas des messages tu n'a qu'appuyer sur le bouton.
Et si tu veux un petit merci en cliquant sur de mon message
et les autres aussi .
A+

[FewRa]

Merci beaucoup pour toutes ces explications

[dok flint]

De rien et à la prochaine

[FewRa]

est-ce normal que si je regard dans ma Table "NH" les clés ne s'efface pas?
Donc la ligne existe toujours, et j'aimerai que ça supprime la ligne.

[dok flint]

Bonjour,
Non ce n'est pas normal ,ça peut être un problème de liaison ou quelque chose de ce genre ,si tu peux envoyer la base avec le formulaire concerné
on pourra mieux voir .
A+

[FewRa]

Non je ne peux pas c'est celle du boulot

[dok flint]

Bonjour,
1-Est ce que les données sont supprimés de la table?
2-Est ce que quand tu clique sur le bouton le message d'Access disant " vous allez supprimer un enregistrement......etc" s'affiche ?
A+

[FewRa]

Bonjour

tout est Effacé sauf les 2 Clés (Une est un numéro automatique et l'autre des valeurs numériques).
Non je n'ai pas ce message (je n'ai que le message de la MsgBox)

[dok flint]

Bonjour,
D'après ton premier message tu a un formulaire en mode continu basé sur une table et pas de sous formulaire donc tu efface les enregistrement directement .Car ce qui reste pourrait être les champs père et fils du formulaire et le sous formulaire.
A+

[FewRa]

Mon formulaire est basé sur une requête de 2 tables

Bon ça marche si je reprends mon code avec les corrections tee_grandbois, là j'ai bien le message de suppression.

Mais bizare que ça marche pas avec le tien

[dok flint]

Bonjour,
C'est normal si tu travail avec une requête et 2 tables ,car cette commande va effacer les enregistrements de la deuxième table et laisser ceux de la première vises , c'est pour cela que l'autre code va effacer l'enregistrement directement dans le première table.
Bon l'essentiel que tu a trouvé une solution et tu peux avancer.
A+

[FewRa]

Merci pour ton aide