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 date variable dans une query

date variable dans une query

1 réponse
Avatar
Ray
Bonjour
Comment pourrais-je ins=E9rer un genre "inputbox" pour=20
saisir la date "datum" soit dans cet exemple 2004-05-02
merci de votre collaboration les champions.
Bonne journ=E9e

=20
With ActiveSheet.QueryTables.Add(Connection:=3DArray(Array
("ODBC;CollatingSequence=3DASCII;DefaultDir=3DG:\DATA\ACCOUNTIN
G\PAYMASTER\INCOME;Deleted=3D1;Driver=3D{Microsoft dBase=20
Driver (*.dbf)};Driver"), Array( _
"Id=3D533;FIL=3DdBase=20
5.0;MaxBufferSize=3D2048;MaxScanRows=3D8;PageTimeout=3D600;SafeTr
ansactions=3D0;Statistics=3D0;Threads=3D3;UserCommitSync=3D" _
), Array("Yes;")), Destination:=3DRange("A1"))

.CommandText =3D Array("SELECT GLTAG.LNR,=20
GLTAG.DATUM, GLTAG.UTAG" & Chr(13) & "" & Chr(10) & "FROM=20
GLTAG GLTAG" & Chr(13) & "" & _
Chr(10) & "WHERE (GLTAG.DATUM>{d '2004-05-
02'})" & Chr(13) & "" & Chr(10) & "ORDER BY GLTAG.DATUM,=20
GLTAG.LNR")
.Name =3D "essaiquery"
.FieldNames =3D True
.RowNumbers =3D False
.FillAdjacentFormulas =3D False
.PreserveFormatting =3D True
.RefreshOnFileOpen =3D False
.BackgroundQuery =3D True
.RefreshStyle =3D xlInsertDeleteCells
.SavePassword =3D True
.SaveData =3D True
.AdjustColumnWidth =3D True
.RefreshPeriod =3D 0
.PreserveColumnInfo =3D True
.Refresh BackgroundQuery:=3DFalse
End With
Signaler un problème avec ce contenu

1 réponse

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
Michel Gesnot
Bonjour,

Allez voir dans l'aide d'Access :
Sommaire
Utilisation de requetes
Creation de requetes analyse croisee et parametree
Requetes parametrees

Vous trouverez les infos plus les branchements vers des
notions associees (formulaires).

Bon travail
M. Gesnot




-----Message d'origine-----
Bonjour
Comment pourrais-je insérer un genre "inputbox" pour
saisir la date "datum" soit dans cet exemple 2004-05-02
merci de votre collaboration les champions.
Bonne journée


With ActiveSheet.QueryTables.Add(Connection:=Array(Array

("ODBC;CollatingSequence=ASCII;DefaultDir=G:DATAACCOUNTIN

GPAYMASTERINCOME;Deleted=1;Driver={Microsoft dBase
Driver (*.dbf)};Driver"), Array( _
"IdS3;FILÛase
5.0;MaxBufferSize 48;MaxScanRows=8;PageTimeout`0;SafeT
r

ansactions=0;Statistics=0;Threads=3;UserCommitSync=" _
), Array("Yes;")), Destination:=Range("A1"))

.CommandText = Array("SELECT GLTAG.LNR,
GLTAG.DATUM, GLTAG.UTAG" & Chr(13) & "" & Chr(10) & "FROM
GLTAG GLTAG" & Chr(13) & "" & _
Chr(10) & "WHERE (GLTAG.DATUM>{d '2004-05-
02'})" & Chr(13) & "" & Chr(10) & "ORDER BY GLTAG.DATUM,
GLTAG.LNR")
.Name = "essaiquery"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:úlse
End With

.