Discussion :

[MAMANHOU]

bonjour,

Je voudrais supprimer des lignes dans une zone de liste mais mon code ne marche pas...

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
 
Private Sub Commande41_Click()
Dim i As Variant
Dim str As String
 
 
    If Me!Liste13.ItemsSelected.Count > 0 Then
        For Each i In Me!Liste13.ItemsSelected
 
    str = "delete * FROM trame where n° = " & Me.Liste13.Column(0) & " ;"
    DoCmd.RunSQL str
 
    Me.Liste13.Requery
     Next i
    Else
    MsgBox "Selectionnez une ou plusieurs lignes"
 
    End If
end sub

Merci pour votre aide
Mamanhou

[Dolphy35]

Bonjour,

qu'es ce qui ne marche pas ?

à vu de nez ton code fonctionne si tu sélectionne 1 ligne par contre tu lèvera une erreur si tu en sélectionne plusieurs.

utilise la méthode ItemData de ta liste que tu paramètre avec i

cela donne :

Code :

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

str = "delete * FROM trame where n° = " & Me.Liste13.ItemData(i) & " ;"

Dolphy

[MAMANHOU]

Bonjour,

Il ne se passe rien quand je clique sur mon bouton ... J'ai modifié mon code, ma liste est en sélection SIMPLE - tu me parles d'erreur je ne comprends pas
si je ne sélectionne aucune ligne j'ai bien le message de la msbox.

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

le champs N° est le 1er de ma liste comme le 1er de ma table

Merci d'avance pour ton aide
Mamanhou

[MAMANHOU]

J'ai compris pour l' erreur, j'ai inséré une gestion des erreurs dans mon code...

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
 
Private Sub Commande41_Click()
Dim i As Variant
Dim str As String
On Error GoTo GestionErreurs
 
    If Me.Liste13.ItemsSelected.Count > 0 Then
        For Each i In Me.Liste13.ItemsSelected
        str = "delete trame.N°, trame.NOM_PAR1, trame.ADRESSE1, trame.SITE_INTERNET, trame.N_SIREN, trame.CODE_POS, trame.VILLE, trame.TELEPH, trame.TELECOPI, trame.POSITION, trame.MARCHE, trame.DIR_NOM, trame.DIR_PRENOM, trame.CIVILITE, trame.SIC_US, trame.FORM_JUR, trame.DATE_CREATION_STE, trame.CODENAF, trame.ACTIVITENAF, trame.ACTIVITEDETAILLEE, trame.CA, trame.RESULTATNET, trame.CAPITALSOCIAL, trame.FONDSPROPRES, trame.EFFECTIFS, trame.ACTION_1, trame.COFACE, trame.COMPTESARRETESAU FROM Trame where N° = " & Me.Liste13.ItemData(i) & " ;"
        DoCmd.RunSQL str
        Me.Liste13.Requery
        Next i
    Else
        MsgBox "Selectionnez une ou plusieurs lignes"
    End If
GestionErreurs:
   MsgBox "Erreur n° " & err.Number & " - Descriptif : " & err.Description
   DoCmd.SetWarnings True

Il affiche maintenant l'erreur 3075 : erreur de syntaxe (opérateur absent) dans l'expression 'N° ='
J'avance à petit pas....
Mamanhou

[Invité]

Bonjour

Mets N° entre crochet comme cela [N°].

Starec

[MAMANHOU]

merci starec

J'ai trouvé pourquoi cela ne marchait pas c'est que ma colonne N° est vide....
je suis désolée ....... c'était si simple !!!!
Merci pour votre aide à tous
Mamanhou