Bonjour,

J'ai une base Access qui comprend une table USERS. J'ai créé un bouton SUPPRIMER pour pouvoir supprimer un utilisateur. Dans mon bouton j'ai ceci

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
        Dim sql_supprimer As String
        Try
 
            sql_supprimer = "DELETE from USERS where ALPS ='" & TXT_ALPS_USER.Text & "'"
            commande_user = New OleDb.OleDbCommand(sql_supprimer, con_user)
            commande_user.ExecuteNonQuery()
            con_user.Close()
            con_user.Open()
            MsgBox("L'utilisateur a bien été supprimé")
 
        Catch ex As OleDbException
 
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Oledb Error")
 
        Catch ex As Exception
 
            MsgBox(ex.Message, MsgBoxStyle.Critical, "General Error")
 
        End Try
 
    End Sub
La suppression fonctionne mais la mise à jour ne se fait pas. Je suis obligé de quitter le formulaire pour ne plus voir mon utilisateur supprimer. Quelqu'un pourrait il m'aider ?

Merci d'avance,