Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Rajouter "where" à une requête existante !

Rajouter "where" à une requête existante !

13 réponses
Avatar
Bruno MAZÉPA
Bonjour à tous,

J'ai un formulaire dont le RecordSource est : "Rqt SaisieDepMod"

Sous Access 2000, peut-on rajouter une condition "where"
à ma requête "Rqt SaisieDepMod" déjà existante, par VBA !?

--
Cordialement.
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
1 2
Avatar
3stone
Salut,

"Bruno MAZÉPA"

Dans ma procédure j'ai le code suivant :
Dim MyQuery, strSQL, strSQLtmp, PosWhere, PosOrder, PosFinal


Tu les déclare tous comme étant Variant...
donne leurs le type String et autre qui convient, même si cela ne suffira pas...



Mon code au début : MyQuery = Me![SFrm SaisieDepMod].Form.RecordSource
ne me retourne que les 256 premiers caractères !?
Je ne comprends pas !


Hmm... bizarre en effet...


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

Avatar
Bruno MAZÉPA
Encore moi,
J'ai essayé un truc : dans mon sous formulaire, j'ai mis dans le
RecordSource, la requête entiere !
Qui est :
SELECT [Tbl SaisieDepMod].NumCpte, [Tbl SaisieDepMod].NumAff, [Tbl
SaisieDepMod].DatePointage,
[Tbl SaisieDepMod].Matricule, [Tbl SaisieDepMod].TauxMod, [Tbl
SaisieDepMod].QtMod, [Tbl SaisieDepMod].MtMod,
[Tbl SaisieDepMod].Deplt, [Tbl SaisieDepMod].NomZone, [Tbl
SaisieDepMod].MtPtDeplt
FROM [Tbl SaisieDepMod]
WHERE ((([Tbl SaisieDepMod].DatePointage)>=#11/17/2003# And ([Tbl
SaisieDepMod].DatePointage)<=#11/21/2003#) AND (([Tbl
SaisieDepMod].Matricule)='811004'))
ORDER BY [Tbl SaisieDepMod].NumCpte, [Tbl SaisieDepMod].NumAff, [Tbl
SaisieDepMod].DatePointage;

J'ai définit mes variables comme suit :
Dim MyQuery As String, strSQL As String, strSQLtmp As String, PosWhere,
PosOrder, PosFinal
Et au premier passage de ma procédure, la ligne :
MyQuery = Me.[SFrm SaisieDepMod].Form.RecordSource
me donne bien ma requête entière !?
Avant de redéfinir mon RecordSource avec mon nouveau strSQL,
je fais un : msgbox strSQL
Ma syntaxe est bonne !
Et au deuxième passage de ma procédure, crac....
Que les 256 premiers caractères !?
--
Cordialement.

"3stone" a écrit dans le message de
news:3fc4a87e$0$28917$
Salut,

"Bruno MAZÉPA"

Dans ma procédure j'ai le code suivant :
Dim MyQuery, strSQL, strSQLtmp, PosWhere, PosOrder, PosFinal


Tu les déclare tous comme étant Variant...
donne leurs le type String et autre qui convient, même si cela ne
suffira pas...




Mon code au début : MyQuery = Me![SFrm SaisieDepMod].Form.RecordSource
ne me retourne que les 256 premiers caractères !?
Je ne comprends pas !


Hmm... bizarre en effet...


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------







Avatar
3stone
Salut,

"Bruno MAZÉPA"
[...]
je fais un : msgbox strSQL
Ma syntaxe est bonne !
Et au deuxième passage de ma procédure, crac....
Que les 256 premiers caractères !?



Vu d'ici, il reste le grigri ou le chapelet d'ail !!!!

Essaie de mettre une série de Debug.print TonRecordsource
pour voir si tu chope le moment ou il se fait trucider...

incompréhensible... :-(


--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------

1 2