OVH Cloud OVH Cloud

Créer une requête en code

3 réponses
Avatar
dakota77
Bonjour,
je dois cr=E9er une requ=EAte avec du code :

m =3D "SELECT PRESTA.[N=B0], PRESTA.DATC, PRESTA.TEMPS,... =20
m =3D m & "FROM CMDES=20

Set Db =3D CurrentDb
Set req =3D Db.CreateQueryDef("RQP01", m)

Cela fonctionne.
Mais comment changer la propri=E9t=E9 d'un champ de la=20
requ=EAte avec du code ?
Je voudrais changer la propri=E9t=E9 Format du champ DATC=20
pour qu'il affiche une date longue.
En mode =E9diteur cela ne pose pas de probl=E8me mais en=20
code ?

Merci pour votre aide.

3 réponses

Avatar
3stone
Salut,

"dakota77"
je dois créer une requête avec du code :

m = "SELECT PRESTA.[N°], PRESTA.DATC, PRESTA.TEMPS,...
m = m & "FROM CMDES

Set Db = CurrentDb
Set req = Db.CreateQueryDef("RQP01", m)

Cela fonctionne.
Mais comment changer la propriété d'un champ de la
requête avec du code ?
Je voudrais changer la propriété Format du champ DATC
pour qu'il affiche une date longue.
En mode éditeur cela ne pose pas de problème mais en
code ?


Un peu "agricole", mais bon... ;-)

Dim db As DAO.Database
Dim sSQL As String
Dim q As String, q3 As String
q = Chr(34)
q3 = q & q & q

sSQL = q3 & "Select champ1 , Format([DatC]," & q & "dddd mmmm yyyy" & q & ") AS DatC2 FROM Cmds;" & qqq

Set db = CurrentDb
Set req = db.CreateQueryDef("RQP01", sSQL)

db = Nothing

Ok ?


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
3stone
"3stone"

la fin, c'est...

sSQL = q3 & "Select champ1 , Format([DatC]," & q & "dddd mmmm yyyy" & q & ") AS DatC2 FROM Cmds;" & q3

évidement ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw
Avatar
dakota77
Génial
Un grand merci.


-----Message d'origine-----
"3stone"

la fin, c'est...

sSQL = q3 & "Select champ1 , Format([DatC]," & q & "dddd
mmmm yyyy" & q & ") AS DatC2 FROM Cmds;" & q3


évidement ;-)


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw

.