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 Requete parametre VB et date

Requete parametre VB et date

3 réponses
Avatar
Guy
Voila je n'arrive toujours pas a r=E9cuper ma variable=20
Date que manque t'il=20
ou pouvez vous me donner une autre astuce

' ---
' OUVERTURE D'UNE REQUETE PARAMETREE (DAO)
' ---
Function DAO_RequeteParametree()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset

Dim dtd As Variant
Dim dtf As Date

dtd =3D InputBox("donner la date d=E9b")
dtf =3D InputBox("doner la date de fin")

Set db =3D CurrentDb
Set qdf =3D db.QueryDefs("rqt Clients =E0 recontacter")
'qdf.Parameters("Date de d=E9but") =3D #1/6/2003#
'qdf.Parameters("Date de fin") =3D #1/9/2003#

qdf.Parameters("Date de D=E9but") =3D "#" & dtd & "#"
qdf.Parameters("Date de Fin") =3D "#" & Format
(dtf, "dd/mm/yy") & "#"
'qdf.Parameters("Date de D=E9but") =3D "#" & FirstDate & "#"
'df.Parameters("Date de Fin") =3D "#" & LastDate & "#"
=20
Set rst =3D qdf.OpenRecordset
While Not rst.EOF
Debug.Print rst("Num=E9ro Client"), rst("Prochain=20
contact")
rst.MoveNext
Wend

rst.Close
Set rst =3D Nothing
Set qdf =3D Nothing
Set db =3D Nothing
End Function
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
Avatar
Pierre CFI
bonjour
personnellement j'aime pas mélanger, si je fais des recordset je fais mes where dedans et je m'occupe pas des paramétres
(spécifiques à access) donc
je suppose que tu cherche des dates comprises entre ...(je nomme ce champ Champdate
en vb les dates sont toujours en format us mm/dd/yyyy


Dim db As DAO.Database
Dim rst As DAO.Recordset

Dim dtd
Dim dtf
dtd = InputBox("donner la date déb")
if dtd = "" or not isdate(dtd) then exit function
dtf = InputBox("doner la date de fin")
if dtf = "" or not isdate(dtf) then exit function
Set db = CurrentDb


Set rst = db.OpenRecordset("Select * from rqt Clients à recontacter where Champdate >=#" & Format(dtd,"mm/dd/yyyy") & "# and
Champdate <=#" & Format(dtf,"mm/dd/yyyy") & "#")
While Not rst.EOF
Debug.Print rst("Numéro Client"), rst("Prochain
contact")
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Guy" a écrit dans le message de news: 15b5801c385c1$15487bc0$
Voila je n'arrive toujours pas a récuper ma variable
Date que manque t'il
ou pouvez vous me donner une autre astuce

' ---
' OUVERTURE D'UNE REQUETE PARAMETREE (DAO)
' ---
Function DAO_RequeteParametree()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset

Dim dtd As Variant
Dim dtf As Date

dtd = InputBox("donner la date déb")
dtf = InputBox("doner la date de fin")

Set db = CurrentDb
Set qdf = db.QueryDefs("rqt Clients à recontacter")
'qdf.Parameters("Date de début") = #1/6/2003#
'qdf.Parameters("Date de fin") = #1/9/2003#

qdf.Parameters("Date de Début") = "#" & dtd & "#"
qdf.Parameters("Date de Fin") = "#" & Format
(dtf, "dd/mm/yy") & "#"
'qdf.Parameters("Date de Début") = "#" & FirstDate & "#"
'df.Parameters("Date de Fin") = "#" & LastDate & "#"

Set rst = qdf.OpenRecordset
While Not rst.EOF
Debug.Print rst("Numéro Client"), rst("Prochain
contact")
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing
End Function
Avatar
Guy
Merci
je vais tester cela desuite

-----Message d'origine-----
bonjour
personnellement j'aime pas mélanger, si je fais des
recordset je fais mes where dedans et je m'occupe pas des

paramétres
(spécifiques à access) donc
je suppose que tu cherche des dates comprises entre ...
(je nomme ce champ Champdate

en vb les dates sont toujours en format us mm/dd/yyyy


Dim db As DAO.Database
Dim rst As DAO.Recordset

Dim dtd
Dim dtf
dtd = InputBox("donner la date déb")
if dtd = "" or not isdate(dtd) then exit function
dtf = InputBox("doner la date de fin")
if dtf = "" or not isdate(dtf) then exit function
Set db = CurrentDb


Set rst = db.OpenRecordset("Select * from rqt Clients à
recontacter where Champdate >=#" & Format

(dtd,"mm/dd/yyyy") & "# and
Champdate <=#" & Format(dtf,"mm/dd/yyyy") & "#")
While Not rst.EOF
Debug.Print rst("Numéro Client"), rst("Prochain
contact")
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Guy" a écrit dans le message de
news: 15b5801c385c1$15487bc0$

Voila je n'arrive toujours pas a récuper ma variable
Date que manque t'il
ou pouvez vous me donner une autre astuce

' ---
' OUVERTURE D'UNE REQUETE PARAMETREE (DAO)
' ---
Function DAO_RequeteParametree()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset

Dim dtd As Variant
Dim dtf As Date

dtd = InputBox("donner la date déb")
dtf = InputBox("doner la date de fin")

Set db = CurrentDb
Set qdf = db.QueryDefs("rqt Clients à recontacter")
'qdf.Parameters("Date de début") = #1/6/2003#
'qdf.Parameters("Date de fin") = #1/9/2003#

qdf.Parameters("Date de Début") = "#" & dtd & "#"
qdf.Parameters("Date de Fin") = "#" & Format
(dtf, "dd/mm/yy") & "#"
'qdf.Parameters("Date de Début") = "#" & FirstDate & "#"
'df.Parameters("Date de Fin") = "#" & LastDate & "#"

Set rst = qdf.OpenRecordset
While Not rst.EOF
Debug.Print rst("Numéro Client"), rst("Prochain
contact")
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing
End Function


.



Avatar
Pierre CFI
hum, pense à mettre la req entre crochet car il y a du blanc dans le nom

--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Guy" a écrit dans le message de news: 0b5201c385d4$5b75e5c0$
Merci
je vais tester cela desuite

-----Message d'origine-----
bonjour
personnellement j'aime pas mélanger, si je fais des
recordset je fais mes where dedans et je m'occupe pas des

paramétres
(spécifiques à access) donc
je suppose que tu cherche des dates comprises entre ...
(je nomme ce champ Champdate

en vb les dates sont toujours en format us mm/dd/yyyy


Dim db As DAO.Database
Dim rst As DAO.Recordset

Dim dtd
Dim dtf
dtd = InputBox("donner la date déb")
if dtd = "" or not isdate(dtd) then exit function
dtf = InputBox("doner la date de fin")
if dtf = "" or not isdate(dtf) then exit function
Set db = CurrentDb


Set rst = db.OpenRecordset("Select * from rqt Clients à
recontacter where Champdate >=#" & Format

(dtd,"mm/dd/yyyy") & "# and
Champdate <=#" & Format(dtf,"mm/dd/yyyy") & "#")
While Not rst.EOF
Debug.Print rst("Numéro Client"), rst("Prochain
contact")
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing


--
Pierre CFI
MVP Microsoft Access

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Guy" a écrit dans le message de
news: 15b5801c385c1$15487bc0$

Voila je n'arrive toujours pas a récuper ma variable
Date que manque t'il
ou pouvez vous me donner une autre astuce

' ---
' OUVERTURE D'UNE REQUETE PARAMETREE (DAO)
' ---
Function DAO_RequeteParametree()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rst As DAO.Recordset

Dim dtd As Variant
Dim dtf As Date

dtd = InputBox("donner la date déb")
dtf = InputBox("doner la date de fin")

Set db = CurrentDb
Set qdf = db.QueryDefs("rqt Clients à recontacter")
'qdf.Parameters("Date de début") = #1/6/2003#
'qdf.Parameters("Date de fin") = #1/9/2003#

qdf.Parameters("Date de Début") = "#" & dtd & "#"
qdf.Parameters("Date de Fin") = "#" & Format
(dtf, "dd/mm/yy") & "#"
'qdf.Parameters("Date de Début") = "#" & FirstDate & "#"
'df.Parameters("Date de Fin") = "#" & LastDate & "#"

Set rst = qdf.OpenRecordset
While Not rst.EOF
Debug.Print rst("Numéro Client"), rst("Prochain
contact")
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set qdf = Nothing
Set db = Nothing
End Function


.