Création d'une requette en VBA
Bonjour,
J'utilise ce code:
Code:
1
2
3
4
5
6
7
8
9
10
11
| Private Sub CmdRefresh_Click()
Dim FormFilter As String
FormFilter = "SELECT DISTINCTROW CLIENTS.Ver_HD FROM CLIENTS"
FormFilter = FormFilter & " WHERE ((CLIENTS.Ver_HD) = """ & Me.AB_Ver_HD & """ ) "
DoCmd.DeleteObject acQuery, "FiltrageDynamiqueReabonnement" 'supprime requete
CurrentDb.CreateQueryDef "FiltrageDynamiqueReabonnement", FormFilter 'creer une requete
DoCmd.OpenQuery "FiltrageDynamiqueReabonnement"
End Sub |
me.AB_Ver_HD est un champ de mon formulaire, qui contient une valeur "oui" ou "non" (liste de cjoix, pas booléen)
ça marche nickel !!! et je multiplie les parametres de ma requete !! :yaisse2:
Sauf que..
certains de mes parametres SONT de type booléens...
et là, la créationd e la requete ne se fait plus convenablement.
En effet, il prend bien la valeur "vrai" ou "faux" de mon champ formulaire, il colle bien cette valeur dans les criteres, mais si j'observe ma requete, il le fait sous la forme [Vrai] ou [faux] et pas vrai ou faux tout simplement...
ce qui fait qu'en executant, il demande la valeur de "vrai"...
comment faire pour que la creation de la requete se fasse avec un parametre de verification booleen !!??
En decorticant, je me rend compte que les """ & [mon champ] & """ font que je me retrouve avec "Faux" ou "Vrai", ce qui retourne une incompatibilité de type, pour un champ dont le critere ne peu etre du texte, mais uniquement vrai ou faux.. sans les ""...
il y a un moyen de faire comprendre ça a la fonction qui créé la requete??
M E R C I
