Discussion :

[spud96]

Bonjour,

Je souhaiterai executer une requete suppression sur un formulaire car cela me permetterai de supprimmer un projets dans l'ensemble des tables dans laquelle il est mouvementé

J'ai essayer avec le code suivant mais ca ne fonctionne 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
Sub SUPPRESSIONPROJETS()
Dim Db As DAO.Database
Dim strSQL As String
Dim derlign As Long, i As Long
 
'connexion à la base
 
Set Db = DAO.OpenDatabase("Q:\ECHANGE_FINANCE\données Projets\Suivideprojets.mdb", False, False)
 
For i = 26 To 26
 
strSQL = "DELETE from FRProjets WHERE Num_credit = '" & Range("a" & i) & "'"
Db.Execute strSQL
Next i
 
End Sub

FRProjets est un formulaire access

Merci de votre aide

[jojo86]

Salut,
Je suis un peu confronté au même problème, mais il n'existe aucun moyen de supprimer des lignes complètes par SQL sous Excel.

Il n'est pas possible de supprimer les lignes complètes (enregistrements) dans un classeur fermé.
vous obtiendrez un message d'erreur "La suppression des données dans un table attachée n'est pas géré par le pilote ISAM".
Vous pouvez uniquement effacer le contenu des cellules.

Vous ne pouvez pas supprimer les lignes vides qui contenaient les données supprimées et les requêtes continueront d'afficher les enregistrements vides correspondant à ces lignes vides.

La version complète ici :
http://silkyroad.developpez.com/VBA/...ursFermes/#LII

Pour ma part, j'utilise une requete UPDATE qui vide les champs de la table, par exemple :

Code :

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

"UPDATE [TABLE$] SET Champ1= '', Champ2 = '', Champ3= '' WHERE CONDITION=....etc "

En gros le principe.

Ensuite, j'ai un joli tableau tout pouri avec des lignes vides un peut partout...
Lorsque je viens lire l'enssemble de la table pour l'afficher dans un listbox par exemple, je filtre les resultats de la requete et je n'affiche pas dans mon listbox les lignes vide.

Voila, je pense que c'est la seul solution à ce jour...

Mais comme je ne suis pas sur de ce que tu veux faire car tu parle d'access aussi si j'avais du faire ta requete j'aurais fait plutot :

Code :

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

"DELETE * from FRProjets WHERE Num_credit = '" & Range("a" & i) & "'"

Bon Courage !