Suppression et Création table avec critère de variable
Bonjour à tous,
mon projet commence en excel
par une variable dont voici le code, je séléctionne un mois (sous forme de chiffre 1 à 12).
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
| Public mymonth As String
Sub CreateReports()
Dim Msg, Style, Title, Response
Dim mymonth As String
Dim acApp As New Access.Application
Dim ReqSQL1 As String
acApp.OpenCurrentDatabase ("C:\2008\SALES RESULTS\Data Files\Results_2008.mdb")
Msg = "Do you want to import a new File ?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Import File"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
mymonth = InputBox("Enter The Month here: ")
If Month = "" Then
MsgBox "The end !"
Exit Sub
End If
ReqSQL1 = "DELETE * FROM AA_Results_Mercator WHERE Date= " & mymonth
acApp.DoCmd.RunSQL (ReqSQL1)
End If
End Sub |
Cette variable doit me servir pour éffacer les données de ma table access
Seulement dans ma table le champ date est au format jj/mm/aaaa, (mais c'est le mois complet qui devra être supprimé)
le code ne me donne pas d'erreur mais il ne fait rien en access ...
je souhaite pouvoir continuer à travailler avec le format chiffre dans ma variable car plus loin dans mon projet cette variable est encore utilisé en excel cette fois.
Quelqu'un peut m'aider ??:?
d'avance merci !
