Discussion :

[benoaa]

Bonjour à tous,

Je souhaite supprimer un enregistrement par formulaire à partir de la clé de ma table qui se trouve dans une liste déroulante.
Pour cela j'ai créer un bouton SUPPRIMER qui réalise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Supprimer_Client_Click()
Dim SQL As String
    If MsgBox("Êtes-vous certain de vouloir supprimer cet enregistrement ?", vbYesNo, "Demande de confirmation") = vbYes Then
          SQL = "DELETE Clients.* FROM Clients WHERE Client.cle = " & Me.cle & " ;"
 
          MsgBox "Le champ correspondant a été effacé"
    End If
 
End Sub

Pourriez-vous m'indiquer la commande qui permet d'éxectuer la variable SQL.

Merci à tous pour vos suggestions.

BH

[jimbolion]

benoaa bonjour,


http://msdn.microsoft.com/fr-fr/libr...ffice.15).aspx

JimBoLion

[benoaa]

Merci pour ta réponse,

Cependant, j'ai une erreur '3075' : Erreur de syntaxe (opérateur absent) dans l'expression

Code :

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

"Clients.cle = Jean Dupont".

J'ai tenté de placer des parenthèses du type :

Code :

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

... WHERE [Clients]![cle] = " & Me.cle & " ;"

puis :

Code :

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

 ... WHERE (Client.cle = " & Me.cle & ") ;"

Mais cela ne fonctionne pas, auriez vous une idée?

Cdl

BH

[jimbolion]

benoaa,

Comme ton champ est de type string, tu dois protéger par des quotes ta variable :

Code :

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

SQL = "DELETE Clients.* FROM Clients WHERE Client.cle = " & chr(34) & Me.cle & chr(34) & " ;"

JimboLion

[paidge]

Salut,
L'erreur est humaine mais évite de la réitérer

[benoaa]

ça fonctionne, merci pour vos réponses.

Cdl,

BH