Discussion :

[mawelle]

Bonsoir,

j'ai dans un formulaire une zone de liste dans laquelle sont sélectionnées des sources. Toutes ces sources sont liées à une seule référence ZAC inscrite dans 2 zones de texte (insee et ref).
Je voudrais pouvoir supprimer ces enregistrements afin de pouvoir en ajouter.
Mon problème, c'est qu'il bloque au niveau de la table A_POUR_SOURCE.
J'ai peur qu'il y ait une erreur dans la syntaxe mais ne connaissant pas vraiment cette commande, je suis perdue...

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
DELETE from A_POUR_SOURCE where REF = """ & Form_F_MODIFICATION_ZAC.insee.Value & "_" & Form_F_MODIFICATION_ZAC.ref.Value & """"
  rs.Open
 
    Dim j As Integer
    For j = 0 To Me.L_sources_choisies.ListCount - 1
    rs.AddNew
 
 
    rs.Fields("NO_SOURCE").Value = Me.L_sources_choisies.Column(0, j)
    rs.Fields("REF").Value = Form_F_MODIFICATION_ZAC.insee.Value & "_" & Form_F_MODIFICATION_ZAC.ref.Value
 
    rs.Update
    rs.MoveNext
    Next
    rs.Close

Merci de votre aide.

[Demco]

Intéresse toi dans la FAQ aux RunSQL pour voir comment exécuter des requêtes d'action.

En espérant t'aider.

[mawelle]

j'ai regardé dans la faq, le forum, fais des tests, mais je reçois toujours le message "erreur de compilation"...

[Demco]

Essaie :

Code :

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

DoCmd.RunSQL( "DELETE * FROM ....")

En espérant t'aider.