Discussion :

[tibofo]

Bonjour,

J'importe des fichiers txt en tables. Comme j'importe beaucoup trop d'enregistrements qui ne me concerne pas, je veux lancer aprés import, une requête de suppression d'enregistrements.

J'ai trouvé ce code sur le forum : (adapté au nom de ma table et champ)

Code :

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

1
2
3
Private Sub Commande0_Click()
DoCmd.RunSQL "DELETE From [Copie de dbo_CLIENTS] WHERE [REP] LIKE "09"" ;
End Sub

Donc ici je voudrais supprimer toutes les lignes qui ont dans le champs texte 'REP' le mot 09.

ACCESS me sort "erreur de compilation Erreur de syntaxe"
Je ne comprends pas car c'est le code que j'ai trouvé dans un post 'résolu' donc il doit marcher ??

Savez-vous ce qu'il y a de faux ?
Merci
Thibault

[Jean-Philippe André]

salut,
un peu de lecture sur la syntaxe SQL sous VBA :

http://cafeine.developpez.com/access...el/debugprint/

ici tu devrais esasyer avec :

Code :

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

1
2
3
Private Sub Commande0_Click()
DoCmd.RunSQL "DELETE From [Copie de dbo_CLIENTS] WHERE [REP] LIKE '09'" ;
End Sub

[tibofo]

Merci
impec avec les simples quotes !

j'en profite pour celui qui lira ce post plus tard :
j'ai amélioré en trouvant cet ajout sur le forum :

Code :

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

1
2
3
4
5
'je désactive le message d'alerte "vous allez supprimer..."
DoCmd.SetWarnings False
' clear out temp table
DoCmd.RunSQL "Delete * from [Copie de dbo_CLIENTS] WHERE [REP] NOT LIKE '01' ;"
DoCmd.SetWarnings True  ' je réactive les messages ACCESS