Bonjour à tous,
J'aimerais exécuter 4 requêtes suppressions toutes basées sur un même paramètre, une Date.

Voici le bout de code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Deletion()
Dim codesql As String
 
DoCmd.SetWarnings False
 
date_demandee = InputBox("StartingWeek (aaaa/ww)", "Starting Week")
 
codesql = "DELETE [Table1].*, [Table1].WEEK" & " From [Table1] WHERE (([Table1].WEEK) >= " & date_demandee & ")" & "DELETE [Table2].*, [Table2].WEEK" & " From [Table2] WHERE (([Table2].WEEK) >= " & date_demandee & ")" & "DELETE [Table3].*, [Table3].WEEK" & " From [Table3] WHERE (([Table3].WEEK) >= " & date_demandee & ")" & "DELETE [Table4].*, [Table4].WEEK" & " From [Table4] WHERE (([Table4].WEEK) >= " & date_demandee & ")"
 
DoCmd.RunSQL codesql
 
DoCmd.SetWarnings True
End Sub
J'ai les interrogations suivantes:

1- Quel est l'opérateur adéquat pour enchaîner les requêtes Delete?
J'ai mis un "&" mais ça n'a pas l'air de fonctionner

2- Comment faire apparaître une boite de dialogue dans laquelle je pourrais choisir une date que j'aurai au préalable renseignée dans une liste?

3-Ma date à le format suivant "aaaa/ww", w, étant la semaine.
Du coup je suis amenée à taper ceci par exemple : "2011/06"
Dans access, aucun problème, il comprend que c'est une date et lorsque que je lui demande de supprimer toutes les cellules >= 2011/06, il le fait.
Dans le code VBA j'ai l'impression qu'il ne le comprend plus.

Merci,
Julie