Discussion :

[stephanies_1977]

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 :

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
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 !

[Jean-Philippe André]

bonjour
tout d'abord, un champ access ne doit pas s'appeler Date, donc il faut penser à changer si c'est possible.
D'autre part, tu peux regarder la fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Month(TaDate)

[Kloun]

Plutôt format, pour tenir compte de l'année :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

format(LaDate, "YYYYMM")

A part ça, d'accord avec jpcheck, Date pour un nom de champ, faut pas faire.

[stephanies_1977]

OK,
j'ai la possibilité de renommer mon champ date
pe ResultsDate

ma requete ressemble à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ReqSQL1 = "DELETE * FROM AA_Results_Mercator WHERE Month(ResultsDate)= " & mymonth

mais je reçois le petit écran "entrer une valeur de parametre"
...

que faire, précision, je suis assez novice dans ce que j'appelle des codes élaborés
Stéph

[Jean-Philippe André]

ok, mais de quel paramètre s'agit-il ?
le nom du champs est-il le bon ?