Est il possible d'utiliser un critère défini dans un module VB pour qu'il
devienne critère SQL ?
Je souhaite faire quelque chose qui ressemble à ceci :
Dim MonCritere
MonCritere = 2
DoCmd.RunSQL "SELECT Tb1.Champ1 INTO [Tb2] FROM Tb1WHERE
(((Tb1.Champ1)=MonCritere));"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
blancmunier
c'est tout a fait possible. créé une fonction publique dans un module et elle sera réutilisable ds tes requêtes ex public function moncritere() dim moncritere as integer moncritere = 2 end function
c'est tout a fait possible. créé une fonction publique dans un module
et elle sera réutilisable ds tes requêtes
ex
public function moncritere()
dim moncritere as integer
moncritere = 2
end function
c'est tout a fait possible. créé une fonction publique dans un module et elle sera réutilisable ds tes requêtes ex public function moncritere() dim moncritere as integer moncritere = 2 end function
JeanYves \(au pro\)
Merci pour ta réponse
Mais comment dois je indiquer que je le critère "MonCritère" dans le WHERE de mon SQL car si j'écris :
Dim MonCritere as integer MonCritere = 2
DoCmd.RunSQL "SELECT Tb1.Champ1 INTO [Tb2] FROM Tb1WHERE (((Tb1.Champ1)=MonCritere));"
lorsque j'execute, la boite de dialogue "Entrez la valeur de MonCritère" apparait
Moi ce qui m'interesse c'est que se soit la valeur au préalablement définie de "MonCritere" qui soit prise en compte, en loccurence 2 dans cet exemple.
encore merci
JY
a écrit dans le message de news:
c'est tout a fait possible. créé une fonction publique dans un module et elle sera réutilisable ds tes requêtes ex public function moncritere() dim moncritere as integer moncritere = 2 end function
Merci pour ta réponse
Mais comment dois je indiquer que je le critère "MonCritère" dans le WHERE
de mon SQL
car si j'écris :
Dim MonCritere as integer
MonCritere = 2
DoCmd.RunSQL "SELECT Tb1.Champ1 INTO [Tb2] FROM Tb1WHERE
(((Tb1.Champ1)=MonCritere));"
lorsque j'execute, la boite de dialogue "Entrez la valeur de MonCritère"
apparait
Moi ce qui m'interesse c'est que se soit la valeur au préalablement définie
de "MonCritere" qui soit prise en compte, en loccurence 2 dans cet exemple.
encore merci
JY
<blancmunier@yahoo.fr> a écrit dans le message de news:
1137680720.272704.290140@g43g2000cwa.googlegroups.com...
c'est tout a fait possible. créé une fonction publique dans un module
et elle sera réutilisable ds tes requêtes
ex
public function moncritere()
dim moncritere as integer
moncritere = 2
end function
Mais comment dois je indiquer que je le critère "MonCritère" dans le WHERE de mon SQL car si j'écris :
Dim MonCritere as integer MonCritere = 2
DoCmd.RunSQL "SELECT Tb1.Champ1 INTO [Tb2] FROM Tb1WHERE (((Tb1.Champ1)=MonCritere));"
lorsque j'execute, la boite de dialogue "Entrez la valeur de MonCritère" apparait
Moi ce qui m'interesse c'est que se soit la valeur au préalablement définie de "MonCritere" qui soit prise en compte, en loccurence 2 dans cet exemple.
encore merci
JY
a écrit dans le message de news:
c'est tout a fait possible. créé une fonction publique dans un module et elle sera réutilisable ds tes requêtes ex public function moncritere() dim moncritere as integer moncritere = 2 end function
blancmunier
si il n'y a pas de paramètre : ... WHERE tb1.Champ1=moncritere()
si il y a des parametres : ... WHERE tb1.Champ1=moncritere([tb1].[Champ2])
aussi simple que ca !
si il n'y a pas de paramètre :
... WHERE tb1.Champ1=moncritere()
si il y a des parametres :
... WHERE tb1.Champ1=moncritere([tb1].[Champ2])
