Discussion :

[Daniel MOREAU]

Bonjour à tous,

Voilà je souhaiterai à partir d'une zone de liste faire une multi sélection et ensuite supprimer les lignes sélectionnées.

Je pensai à ce code :

Private Sub Supp_Mess_Click()

Dim MaBase As Database
Dim StrSqlDelete As String
Dim i As Long

Set MaBase = CurrentDb

For i = 0 To Me.Lst_MessNonAffect.ListCount - 1
If Me.Lst_MessNonAffect.Selected(i) Then

StrSqlDelete = " Delete Tbl_RegrOutlook.NumAuto, Tbl_RegrOutlook.Nom_Client, "
StrSqlDelete = StrSqlDelete & " Tbl_RegrOutlook.CodeClient, Tbl_RegrOutlook.Commercial, "
StrSqlDelete = StrSqlDelete & " Tbl_RegrOutlook.Date, Tbl_RegrOutlook.Message, Tbl_RegrOutlook.Sujet, "
StrSqlDelete = StrSqlDelete & " Tbl_RegrOutlook.DateMAJ, Tbl_RegrOutlook.Maj_CpteRendu, "
StrSqlDelete = StrSqlDelete & " Tbl_RegrOutlook.ClientProspect FROM Tbl_RegrOutlook "
StrSqlDelete = StrSqlDelete & " Where ((Tbl_RegrOutlook.NumAuto) = '" & Me.Lst_MessNonAffect & ";"
Debug.Print StrSqlDelete
MaBase.Execute StrSqlDelete, dbFailOnError

End If
Next i

End Sub

Malheureusement j'ai une message d'erreur lorsque j'éxécute la requête.

Pouvez vous m'aider à résoudre ce problème.

Daniel

[LedZeppII]

Bonjour,

On dirait qu'il y a un caractère en trop. Le guillement simple.

Code :

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

StrSqlDelete = StrSqlDelete & " Where ((Tbl_RegrOutlook.NumAuto) = '" & Me.Lst_MessNonAffect & ";"

A+

[Papy Turbo]

P.S. : à tout hasard, tu peux remplacer tous les noms de champs par une simple étoile :

Code :

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

1
2
         StrSqlDelete = "Delete * FROM Tbl_RegrOutlook "
        StrSqlDelete = StrSqlDelete & " Where ((Tbl_RegrOutlook.NumAuto) = " & Me.Lst_MessNonAffect & ";"

sera déjà + facile à déboguer , sachant que, lors d'une suppression, tous les champs sont supprimés.

[cafeine]

voici un code pour transformer une sélection multiple en bloc In pour un SQL

Code :

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

1
2
3
4
5
6
7
8
9
    Dim varElt As Variant
    Dim str As String
    
    For Each varElt In Me.Liste0.ItemsSelected
        str = str & """" & Me.Liste0.ItemData(varElt) & ""","
    Next varElt
    
    str = " in (" & Left(str, Len(str) - 1) & ") "
    MsgBox str

Et c'est ce bloc IN qui servira pour ta clause WHERE

[Daniel MOREAU]

Bonjour à tous,

Merci pour vos réponses, et surtout merci Caféine, ton code fonctionne parfaitement bien.

Super et merci encore.

Daniel