Requete à partir formulaire

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:

---

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

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:

---

"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:

---

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

---

Bon Courage !