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 DAO récupération de Variables

DAO récupération de Variables

5 réponses
Avatar
guy
' D=E9claration des Dates D=E9but et Fin De la P=E9riode
Dim FirstDate As Date
Dim LastDate As Date

'Donner La Date de D=E9but De la Quizaine
FirstDate =3D InputBox("Entrez date de D=E9but de Quizaine")
LastDate =3D InputBox("Entrez date de Fin de Quizaine")

Set db =3D Application.CurrentDb
Set qdf =3D db.QueryDefs("Rq 00 Etat Presence15")
qdf.Parameters("Date de d=E9but") =3D "& Firsdate &"
qdf.Parameters("Date de Fin") =3D "& Lastdate &" ''

Set rst =3D qdf.OpenRecordset

Erreur : type de donn=E9es imcompatibles dans l'expression=20
du critere erreur d excecution N=B03464

cela fonction avex #01/01/03#=20

comment r=E9cuper ma variable

merci
Signaler un problème avec ce contenu

5 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
Daniel Carollo
Bonjour Guy!

Verifiez bien le format de vos variables "Firstdate" et "Lastdate". Il faut
un format qui ne soit pas ambigu, du genre "YYYYMMYY".

Bonne continuation.

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"guy" wrote in message
news:02ce01c38083$9b254d10$
' Déclaration des Dates Début et Fin De la Période
Dim FirstDate As Date
Dim LastDate As Date

'Donner La Date de Début De la Quizaine
FirstDate = InputBox("Entrez date de Début de Quizaine")
LastDate = InputBox("Entrez date de Fin de Quizaine")

Set db = Application.CurrentDb
Set qdf = db.QueryDefs("Rq 00 Etat Presence15")
qdf.Parameters("Date de début") = "& Firsdate &"
qdf.Parameters("Date de Fin") = "& Lastdate &" ''

Set rst = qdf.OpenRecordset

Erreur : type de données imcompatibles dans l'expression
du critere erreur d excecution N°3464

cela fonction avex #01/01/03#

comment récuper ma variable

merci
Avatar
LE CARRE Yannick
Salut Guy.

Access gère les dates avec des dièses #.
Essaye de faire un Cdate (Firstdate, 'dd/mm/yy') ou bien #Firstdate#, idem
pour Lastdate.

Yannick

guy a écrit dans le message :
02ce01c38083$9b254d10$
' Déclaration des Dates Début et Fin De la Période
Dim FirstDate As Date
Dim LastDate As Date

'Donner La Date de Début De la Quizaine
FirstDate = InputBox("Entrez date de Début de Quizaine")
LastDate = InputBox("Entrez date de Fin de Quizaine")

Set db = Application.CurrentDb
Set qdf = db.QueryDefs("Rq 00 Etat Presence15")
qdf.Parameters("Date de début") = "& Firsdate &"
qdf.Parameters("Date de Fin") = "& Lastdate &" ''

Set rst = qdf.OpenRecordset

Erreur : type de données imcompatibles dans l'expression
du critere erreur d excecution N°3464

cela fonction avex #01/01/03#

comment récuper ma variable

merci
Avatar
Guy
Merci
-----Message d'origine-----
Salut Guy.

Access gère les dates avec des dièses #.
Essaye de faire un Cdate (Firstdate, 'dd/mm/yy') ou bien
#Firstdate#, idem

pour Lastdate.

Yannick

guy a écrit dans le message :
02ce01c38083$9b254d10$
' Déclaration des Dates Début et Fin De la Période
Dim FirstDate As Date
Dim LastDate As Date

'Donner La Date de Début De la Quizaine
FirstDate = InputBox("Entrez date de Début de Quizaine")
LastDate = InputBox("Entrez date de Fin de Quizaine")

Set db = Application.CurrentDb
Set qdf = db.QueryDefs("Rq 00 Etat Presence15")
qdf.Parameters("Date de début") = "& Firsdate &"
qdf.Parameters("Date de Fin") = "& Lastdate &" ''

Set rst = qdf.OpenRecordset

Erreur : type de données imcompatibles dans l'expression
du critere erreur d excecution N°3464

cela fonction avex #01/01/03#

comment récuper ma variable

merci


.



Avatar
Guy
Cela ne fonctionne pas erreur de synthase

Merci quand meme
-----Message d'origine-----
Salut Guy.

Access gère les dates avec des dièses #.
Essaye de faire un Cdate (Firstdate, 'dd/mm/yy') ou bien
#Firstdate#, idem

pour Lastdate.

Yannick

guy a écrit dans le message :
02ce01c38083$9b254d10$
' Déclaration des Dates Début et Fin De la Période
Dim FirstDate As Date
Dim LastDate As Date

'Donner La Date de Début De la Quizaine
FirstDate = InputBox("Entrez date de Début de Quizaine")
LastDate = InputBox("Entrez date de Fin de Quizaine")

Set db = Application.CurrentDb
Set qdf = db.QueryDefs("Rq 00 Etat Presence15")
qdf.Parameters("Date de début") = "& Firsdate &"
qdf.Parameters("Date de Fin") = "& Lastdate &" ''

Set rst = qdf.OpenRecordset

Erreur : type de données imcompatibles dans l'expression
du critere erreur d excecution N°3464

cela fonction avex #01/01/03#

comment récuper ma variable

merci


.



Avatar
Raymond
Bonjour.

syntaxe de : CDate(madate) je pense qu'il a voulu dir "format"

ça doit fonctionner avec ceci
qdf.Parameters("Date de début") = "#" & Format(Firstdate, "dd/mm/yy") & "#"
ou selon les paramèters régionaux:
qdf.Parameters("Date de début") = "#" & Firstdate & "#"

--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Guy" a écrit dans le message de
news:094801c380f1$3ac15bd0$
Cela ne fonctionne pas erreur de synthase

Merci quand meme