Bonjour,
j'utilise le code ci dessous pour supprimer des lignes dans une liste déroulante.
Lorsque j'ai une apostrophe dans mon champ1, il ne me supprime pas la ligne.
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
Comment puis je modifier mon code pour qu'il ne tienne pas compte des apostrophes.
Merci d'avance pour votre aide
Mamanhou
Partager