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
FRProjets est un formulaire access
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
Merci de votre aide
Partager