Bonsoir,
je fais appel à votre aide car je désespère.
Je suis débutant en VBA.
J'ai une requête Access dans laquelle je dois changer un filtre puis ensuite l'importer sur une feuille Excel.
Je pensais bien faire en cherchant à modifier le filtre d'un champ en utilisant parameters mais j'ai toujours un message d'erreur
au niveau de la dernière ligne de code (j'ai testé cdate, format et en dur)
Query.Parameters("MaturityDate").Value = "#23/02/2015#"
Y a t'il des protections sur une requête access?
Qu'est ce que je fais de mal? j'ai parcouru d'autres sources et il me semble que les personnes procèdent de la même manière...
Merci pour votre aide.
Marso.
(je n'ai pas mémorisé le code d'erreur malheureusement)
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
|
Dim acApp As Access.Application
Dim Infocentre As DAO.Database
Dim Db As DAO.Recordset
Dim Query As DAO.QueryDef
Dim srcPathBdd As String
Dim nomDeLaRequete As String
' Démarrer Access
Set acApp = New Access.Application
' Initialise le chemin de la base de données
srcPathBdd = "C:\X.accdb"
' Ouvrir la base de données concernée
acApp.OpenCurrentDatabase (srcPathBdd)
Set Infocentre = acApp.CurrentDb()
'Seletionne La Requête concernée
nomDeLaRequete = "NomRequete"
Set Query = Infocentre.QueryDefs(nomDeLaRequete)
'on change le paramètre de la date
'Query.Parameters("MaturityDate").Value = "#23/02/2015#" |
Partager