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