Discussion :

[pedrus16]

Bonjour,

Voila j'ai une liste déroulante basée sur une requête et un bouton "supprimer". Je voudrais supprimer l'enregistrement qui est sélectionné dans la liste en appuyant sur le bouton. Mais je n'ai aucune idée de comment procéder, je ne sais pas comment récupérer l'identifiant de l'enregistrement qui est sélectionné.

merci d'avance de votre aide.

[Tristan33000]

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
Sub btSupp_Click()
Dim SQL As String
Dim "MaTable" As DAO.Database
Dim enregistrement As DAO.Recordset
Dim identifiant as single
Dim enregselect as string
 
        enregselect = Me!"Malistedéroulante"
 
        SQL = "SELECT * FROM "MaTable"WHERE "MaTable"."MonChamp"=enregselect "' ;"
        Set MaTable= CurrentDb
        Set enregistrement = MaTable.OpenRecordset(SQL, dbOpenSnapshot)
        If enregistrement.RecordCount = 1 Then
            identifiant = enregistrement.Fields("NomChampidentifiant")
            DoCmd.RunSQL "DELETE FROM "MaTable" WHERE "NomChampidentifiant"=" & identifiant & " ;"        
        End If
 
 End Sub

Si je ne me suis pas trompé cela devrait marcher !
(en l'adaptant à ton formulaire évidement ^^ )

Cordialement.

Tristan

[Tofalu]

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
Sub btSupp_Click()
Dim SQL As String
Dim "MaTable" As DAO.Database
Dim enregistrement As DAO.Recordset
Dim identifiant as single
Dim enregselect as string
 
        enregselect = Me!"Malistedéroulante"
 
        SQL = "SELECT * FROM "MaTable"WHERE "MaTable"."MonChamp"=enregselect "' ;"
        Set MaTable= CurrentDb
        Set enregistrement = MaTable.OpenRecordset(SQL, dbOpenSnapshot)
        If enregistrement.RecordCount = 1 Then
            identifiant = enregistrement.Fields("NomChampidentifiant")
            DoCmd.RunSQL "DELETE FROM "MaTable" WHERE "NomChampidentifiant"=" & identifiant & " ;"        
        End If
 
 End Sub

Si je ne me suis pas trompé cela devrait marcher !
(en l'adaptant à ton formulaire évidement ^^ )

Cordialement.

Tristan

Bonjour,

Là, y aurait fallu tester avant de proposer ...

Dim SQL As String

Dim "MaTable" As DAO.Database

Ce n'est pas possible, une variable ne peut être déclarée comme ça.

SQL = "SELECT * FROM "MaTable"WHERE "MaTable"."MonChamp"=enregselect "' ;"

Le compilateur lève au moins 8 erreurs de compilations sans compter les erreur d'exécution à cause du guillemet simple

Set MaTable= CurrentDb

Pourquoi appeler MaTable un objet qui représente une base de données ?

Set enregistrement = MaTable.OpenRecordset(SQL, dbOpenSnapshot)

Pourquoi appeler un objet enregistrement alors que c'est une requête ?

DoCmd.RunSQL "DELETE FROM "MaTable" WHERE "NomChampidentifiant"=" & identifiant & " ;"

Enfin pourquoi tout ce code pour finalement lancer une requête DELETE. Le delete aurait pu se faire sur le recordset directement

[Tofalu]

On pourrait aussi, si la zone de liste déroulante est basé sur la même table que là où il faut supprimer, tenter un :

Code :

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

MaZl.Recordset.Delete

Bien entendu en gardant le principe du test pour savoir si un élément est sélectionné et en ajoutant un requery sur la zone de liste pour afficher les changements.

[Tristan33000]

humm il est clair que j'aurai du la testé désolé on ne m'y reprendra pas

Par rapport à la déclaration j'ai mi entre guillemets afin de situé ou faire des changement (pas judicieux j'en convien c'est pas plus clair ^^).

[Tofalu]

Bonjour

Par rapport au titre, la réponse serait

Code :

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

1
2
3
4
5
6
With MaZL
    If .ListIndex > -1 Then
        .RemoveItem .ListIndex
        .Value = Null
    End If
End With

Mais finalement ça ne correspond pas à ta question qui est de supprimer un enregistrement et non un élément de la liste ... D'où l'intérêt d'utiliser des titres précis

Pour supprimer un enregistrement dans une table correspondant à l'élément sélectionné dans la zone de liste, il faut savoir que l'élément sélection est récupérable (dans le cas d'une zone de liste sans selection multiple) par :

Code :

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

1
2
3
With MaZL
    .ItemData (.ListIndex)
End With

Où maZL est le nom de la liste. En effet, ItemData retourne la valeur par rapport au numéro de ligne passé en paramètre et ListIndex retourne le numéro de la ligne séectionné. Par imbrication, on a le résultat souhaité.

Ensuite, il suffit simplement de lancer une requête DELETE

Code :

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

1
2
3
4
5
6
Dim Valeur as Integer
With MaZL
    Valeur = .ItemData(.ListIndex)
    CurrentDb.Execute "DELETE FROM MATABLE WHERE " & _
                        BuildCriteria("MONCHAMP", dbInteger, Valeur), dbFailOnError
End With

Ici, j'ai pris le cas où le champ qui sert d'itenfiant pour le DELETE est de type Entier, mais si c'était du texte, on aurait :

Code :

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

1
2
3
4
5
6
Dim Valeur As String
With MaZL
    Valeur = .ItemData(.ListIndex)
    CurrentDb.Execute "DELETE FROM MATABLE WHERE " & _
                        BuildCriteria("MONCHAMP", dbText, Valeur), dbFailOnError
End With

Enfin, pour éviter les erreurs d'exécution lorsque rien est sélectionné, il faut ajouter un petit test :

Code :

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

1
2
3
4
5
6
7
8
Dim Valeur As String
With MaZL
    If .ListIndex <> -1 Then
        Valeur = .ItemData(.ListIndex)
        CurrentDb.Execute "DELETE FROM MATABLE WHERE " & _
                        BuildCriteria("MONCHAMP", dbText, Valeur), dbFailOnError
    End If
End With

Et enfin, si on veut afficher un petit message d'information:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Valeur As String
Dim oDb As DAO.Database
With MaZL
    If .ListIndex <> -1 Then
        Valeur = .ItemData(.ListIndex)
        Set oDb = CurrentDb
        oDb.Execute "DELETE FROM MATABLE WHERE " & _
                        BuildCriteria("MONCHAMP", dbText, Valeur), dbFailOnError
        MsgBox oDb.RecordsAffected & " enregistrement(s) supprimé(s)"
    End If
End With

Sans oublier de rafraichir la zone de liste pour afficher les changements

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim Valeur As String
Dim oDb As DAO.Database
With MaZL
    If .ListIndex <> -1 Then
        Valeur = .ItemData(.ListIndex)
        Set oDb = CurrentDb
        oDb.Execute "DELETE FROM MATABLE WHERE " & _
                        BuildCriteria("MONCHAMP", dbText, Valeur), dbFailOnError
        MsgBox oDb.RecordsAffected & " enregistrement(s) supprimé(s)"
        MaZL.Requery
    End If
End With

[pedrus16]

... D'où l'intérêt d'utiliser des titres précis

Et un titre long et préçis, un!

Pour en revenir à mon problème j'ai testé le code de Tristan mais j'obtiens une erreur d'exécution (pas assez de paramètres) à cette ligne :

Set enregistrement = MaTable.OpenRecordset(SQL, dbOpenSnapshot)

Je vais de ce pas tester le code de Tofalu et vous en dire des nouvelles.

[pedrus16]

Ca fonctionne merci beaucoup.