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 |
Partager