Discussion :

[MAMANHOU]

Bonjour,
j'utilise le code ci dessous pour supprimer des lignes dans une liste déroulante.

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
Dim i As Variant
Dim str As String
    If Me.Liste13.ItemsSelected.Count > 0 Then
        For Each i In Me.Liste13.ItemsSelected
 
        str = "delete trame.* FROM Trame where N° = '" & Me.Liste13.ItemData(i) & "' ;"
        DoCmd.RunSQL str
 
        Next i
        For Each i In Me.Liste13.ItemsSelected
        Me!Liste13.Selected(i) = False
        Next i
         Me.Liste13.Requery
            Else
        MsgBox "Selectionnez une ou plusieurs lignes"
 End If
 Me.Liste3.Requery

Lorsque j'ai une apostrophe dans mon champ1, il ne me supprime pas la ligne.
Comment puis je modifier mon code pour qu'il ne tienne pas compte des apostrophes.

Merci d'avance pour votre aide
Mamanhou

[Jean-Philippe André]

Bonjour,
pour passer au travers des apostrophes, 2 approches
- soit tu ne veux pas supprimer les champs avec un apostrophe :

Code :

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

1
2
3
4
If Instr(1Me.Liste13.ItemData(i),"'")=0 Then
        str = "delete trame.* FROM Trame where N° = '" & Me.Liste13.ItemData(i) & "' ;"
        DoCmd.RunSQL str
End If

- soit tu veux quand même traiter les champs

Code :

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

 str = "delete trame.* FROM Trame where N° = '" & Replace(Me.Liste13.ItemData(i),"'","''") & "' ;"

[MAMANHOU]

merci beaucoup ca marche super

MAMANHOU