Discussion :

[Christ79]

Bonjours à toutes et tous

J'ai créé un formulaire de suppression à partir d'une requête (avec 2 tables liées). La sélection des enregistrements à supprimer s'effectue à partir de cases à cocher.

Nom de la requête = R_sélection_Usager
Champ clé (case à cocher) = Sélectionné

J'ai créé un bouton "Supprimer enregistrement", normalement cela doit supprimer les enregistrements qui son cochés (voir code ci-dessous) mais cela ne fonctionne pas.

Code :

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

1
2
3
4
5
6
7
8
9
 
' ---
' BOUTON 'SUPPRIMER'
' ---
'
 
Private Sub btnSupprimé_Click()
  DoCmd.RunSQL "DELETE * FROM [R_Sélection_Usager] WHERE [Sélectionné] = True;"
End Sub

Merci d'avance pour votre aide,

Bonne journée

[EricDgn]

Il n'est pas possible de supprimer des enregistrements d'une "requête", mais uniquement d'une "table".

Je pense que le mieux est de commencer par mettre au point cette "requête suppression" à l'aide des outils disponibles dans le ruban Access pour ensuite en recopier l'instruction SQL.

Bonne continuation.

[Christ79]

Bonjour et merci pour le conseil.

A force de regarder trop prêt, on finit par s'aveugler.

Je joins le code pour ceux qui pourrait en avoir besoin.

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
' ---
' BOUTON 'SUPPRIMER'
' ---
'
Private Sub btnSupprimé_Click()
  Dim SQL As String
 
  If MsgBox("Supprimer définitivement cette Ligne ?", vbQuestion + vbYesNo, "Supprimer la ligne") = vbNo _
  Then Exit Sub
 
  DoCmd.SetWarnings False
  SQL = "DELETE FROM Usager WHERE Usager.Num =" & Me![Num]
  DoCmd.RunSQL SQL
  DoCmd.SetWarnings True
  Me.Requery
 
End Sub

Bonne journée