DELETE FROMRésolu

Question

Bonjour,
Je souhaiterai supprimer un enregistrement par le biais d'un bouton.
Je vous explique le fonctionnement, lorsque je sélectionne un nom dans ma combo je souhaite le modifier et/ou le supprimer, j'ai donc essayer ceci :

Private Sub CmdSupprimer_Click()
    Dim lsSql As String
    Dim rsAdresse As Recordset
    
    MsgBox "Vous êtes sur le point de supprimer cet utilisateur. Voulez-vous continuer ?", vbExclamation + vbOKCancel, "Suppression d'un utilisateur"
        lsSql "DELETE * FROM tAdresse WHERE Nom '" & ComboAdresse.Text & "'"
    Set rsAdresse = CurrentDb.OpenRecordset(lsSql)
    
End Sub

Mais j'ai un message d'erreur qui est : "Erreur d'exécution 3219 : Opération non valide"

Si quelqu'un peux m'aider, merci d'avance

Renfield · Accepted Answer

deja, ta MsgBox est inutile....

de deux, tu ne peux pas faire de OpenRecordset avec un DELETE, un INSERT ou un UPDATE, car ces type de requetes ne renvoient AUCUNE donnée...

en somme :

Private Sub CmdSupprimer_Click()   
    If vbYes = MsgBox ("Vous êtes sur le point de supprimer cet utilisateur." & vbNewLine & _
       "Voulez-vous continuer ?", vbQuestion Or vbYesNo, "Suppression d'un utilisateur") Then
    
        CurrentDb.Execute "DELETE * FROM tAdresse WHERE Nom = '" & ComboAdresse.Text & "'"
    End If    
End Sub

DELETE FROM

1 réponse

Votre réponse

Discussions similaires