Discussion :

[Marcopololo]

J'ai utilisé un code trouvé sur le forum pour supprimer les données dans des tables.
J'ai rajouté une ligne sSQL2 pour supprimer les enregistrements liés à mon code client dans une autre table, mais là cela ne fonctionne pas.

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
18
19
20
21
Private Sub Supprimer_Click()
'On supprime l'apparition du message de confirmation
DoCmd.SetWarnings False
 
'Ici on va supprimer l'enregistrement dans la table Client
Dim sSQL As String
sSQL = "DELETE * FROM Clients WHERE [Code Client] = " & Me.CodeClient.Value
DoCmd.RunSQL sSQL
 
'Ici on va supprimer les enregistrements dans la table Extincteurs
Dim sSQL2 As String
sSQL2 = "DELETE * FROM [Liste extincteurs] WHERE [Code Client] = " & Me.CodeClient.Value
DoCmd.RunSQL sSQL2

'On va rafraichir les données de la liste déroulante
Me.Refresh
Me.CodeClient.Requery

'On réactive le message de confirmation
DoCmd.SetWarnings True
End Sub

Merci d'avance de votre aide

[francishop]

Bonsoir,

'Ici on va supprimer l'enregistrement dans la table Client
Dim sSQL As String
sSQL = "DELETE * FROM Clients WHERE [Code Client] = " & .............

[B]'Ici on va supprimer les enregistrements dans la table Extincteurs
Dim sSQL2 As String
sSQL2 = "DELETE * FROM [Liste extincteurs] WHERE [Code Client] = " & ...

Il semble qu'il puisse y avoir un client sans extincteur, mais pas l'inverse.
( Un extincteur orphelin? peut-être...)

Essayes en inversant l'ordre de suppression.

Cordialement.

[L'Italiano]

Bonne nuit.
Correcte mais aussi très sympathique l'observation de monsieur Francishop.

Ciao