InputBox et moi 2eme

Le
apo75
Bonjour à tous,

Après plusieurs essais, j'ai ajouté cette formule:

Private Sub Form_Open(Cancel As Integer)
Dim debutPeriode As Date, finPeriode As Date
debutPeriode = CDate(InputBox("Entrez la date de début de réception:"))
finPeriode = CDate(InputBox("Entrez la date de fin de réception:"))
Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin
Me.FilterOn = True

Résultat:

Je peut renseigner les dates de dbut et de fin, mais cela bloque à :

Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin

Et là, je ne vois pas ou est mon erreuret je ne sais toujours
pas si mon formulaire sera trié de date à date.

Mais je persévère..

Au secours.
apo75
Questions / Réponses high-tech
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
pgz
Le #6230281
Bonjour.

Essayer peut-être:
Me.Filter = "[Date début étiquette] BETWEEN #" &
Format(debutPeriode,"mm/dd/yyyy") & "# AND #" & format(DateFin,"mm/dd/yyyy")
& "#"

ou:
Me.Filter = "Date_début_étiquette BETWEEN cdate(" & debutPeriode & ") AND
cdate(" & DateFin & ")"

Bon courage,




--
pgz
_____________________________




Bonjour à tous,

Après plusieurs essais, j'ai ajouté cette formule:

Private Sub Form_Open(Cancel As Integer)
Dim debutPeriode As Date, finPeriode As Date
debutPeriode = CDate(InputBox("Entrez la date de début de réception:"))
finPeriode = CDate(InputBox("Entrez la date de fin de réception:"))
Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin
Me.FilterOn = True

Résultat:

Je peut renseigner les dates de dbut et de fin, mais cela bloque à :

Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin

Et là, je ne vois pas ou est mon erreur............et je ne sais toujours
pas si mon formulaire sera trié de date à date.

Mais je persévère.................

Au secours..........
apo75


apo75
Le #6230101
Bonjour

D'abord merci pour ton aide.
Ca va mieux, mais à l'ouverture, j'ai le message suivant:

erreur 3075
Erreur de syntaxe dans la date dans l'expression:

"[Date_début_Etiquette] BETWEEN # " & Format(debutPeriode, "mm/dd/yyyy") & "
# AND #

Aurait tu une idée
Par avance merci
apo75



Bonjour.

Essayer peut-être:
Me.Filter = "[Date début étiquette] BETWEEN #" &
Format(debutPeriode,"mm/dd/yyyy") & "# AND #" & format(DateFin,"mm/dd/yyyy")
& "#"

ou:
Me.Filter = "Date_début_étiquette BETWEEN cdate(" & debutPeriode & ") AND
cdate(" & DateFin & ")"

Bon courage,




--
pgz
_____________________________




Bonjour à tous,

Après plusieurs essais, j'ai ajouté cette formule:

Private Sub Form_Open(Cancel As Integer)
Dim debutPeriode As Date, finPeriode As Date
debutPeriode = CDate(InputBox("Entrez la date de début de réception:"))
finPeriode = CDate(InputBox("Entrez la date de fin de réception:"))
Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin
Me.FilterOn = True

Résultat:

Je peut renseigner les dates de dbut et de fin, mais cela bloque à :

Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin

Et là, je ne vois pas ou est mon erreur............et je ne sais toujours
pas si mon formulaire sera trié de date à date.

Mais je persévère.................

Au secours..........
apo75




Fabien
Le #6230081
Bonjour Apo75

Bonjour

D'abord merci pour ton aide.
Ca va mieux, mais à l'ouverture, j'ai le message suivant:

erreur 3075
Erreur de syntaxe dans la date dans l'expression:

"[Date_début_Etiquette] BETWEEN # " & Format(debutPeriode, "mm/dd/yyyy") & "
# AND #
Peut-être un Blanc de trop essaie : "[Date_début_Etiquette] BETWEEN #" &

Format(debutPeriode, "mm/dd/yyyy") & "# AND #" & Format(datefin,
"mm/dd/yyyy") & "#"

Aurait tu une idée
Par avance merci
apo75



Bonjour.

Essayer peut-être:
Me.Filter = "[Date début étiquette] BETWEEN #" &
Format(debutPeriode,"mm/dd/yyyy") & "# AND #" & format(DateFin,"mm/dd/yyyy")
& "#"

ou:
Me.Filter = "Date_début_étiquette BETWEEN cdate(" & debutPeriode & ") AND
cdate(" & DateFin & ")"

Bon courage,




--
pgz
_____________________________




Bonjour à tous,

Après plusieurs essais, j'ai ajouté cette formule:

Private Sub Form_Open(Cancel As Integer)
Dim debutPeriode As Date, finPeriode As Date
debutPeriode = CDate(InputBox("Entrez la date de début de réception:"))
finPeriode = CDate(InputBox("Entrez la date de fin de réception:"))
Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin
Me.FilterOn = True

Résultat:

Je peut renseigner les dates de dbut et de fin, mais cela bloque à :

Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin

Et là, je ne vois pas ou est mon erreur............et je ne sais toujours
pas si mon formulaire sera trié de date à date.

Mais je persévère.................

Au secours..........
apo75






apo75
Le #6230051
Bonjour Fabien,
Désolé, le résultat est identique
apo75


Bonjour Apo75

Bonjour

D'abord merci pour ton aide.
Ca va mieux, mais à l'ouverture, j'ai le message suivant:

erreur 3075
Erreur de syntaxe dans la date dans l'expression:

"[Date_début_Etiquette] BETWEEN # " & Format(debutPeriode, "mm/dd/yyyy") & "
# AND #
Peut-être un Blanc de trop essaie : "[Date_début_Etiquette] BETWEEN #" &

Format(debutPeriode, "mm/dd/yyyy") & "# AND #" & Format(datefin,
"mm/dd/yyyy") & "#"

Aurait tu une idée
Par avance merci
apo75



Bonjour.

Essayer peut-être:
Me.Filter = "[Date début étiquette] BETWEEN #" &
Format(debutPeriode,"mm/dd/yyyy") & "# AND #" & format(DateFin,"mm/dd/yyyy")
& "#"

ou:
Me.Filter = "Date_début_étiquette BETWEEN cdate(" & debutPeriode & ") AND
cdate(" & DateFin & ")"

Bon courage,




--
pgz
_____________________________




Bonjour à tous,

Après plusieurs essais, j'ai ajouté cette formule:

Private Sub Form_Open(Cancel As Integer)
Dim debutPeriode As Date, finPeriode As Date
debutPeriode = CDate(InputBox("Entrez la date de début de réception:"))
finPeriode = CDate(InputBox("Entrez la date de fin de réception:"))
Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin
Me.FilterOn = True

Résultat:

Je peut renseigner les dates de dbut et de fin, mais cela bloque à :

Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin

Et là, je ne vois pas ou est mon erreur............et je ne sais toujours
pas si mon formulaire sera trié de date à date.

Mais je persévère.................

Au secours..........
apo75









Fabien
Le #6230031
Re
Bonjour Fabien,
Désolé, le résultat est identique
apo75


Bonjour Apo75

Bonjour

D'abord merci pour ton aide.
Ca va mieux, mais à l'ouverture, j'ai le message suivant:

erreur 3075
Erreur de syntaxe dans la date dans l'expression:

"[Date_début_Etiquette] BETWEEN # " & Format(debutPeriode, "mm/dd/yyyy") & "
# AND #
Peut-être un Blanc de trop essaie : "[Date_début_Etiquette] BETWEEN #" &

Format(debutPeriode, "mm/dd/yyyy") & "# AND #" & Format(datefin,
"mm/dd/yyyy") & "#"



Et si on utilisait [Date_début_Etiquette]>= #" & Format(debutPeriode,
"mm/dd/yyyy") & "# AND [Date_début_Etiquette]<=#" &
Format(datefin,"mm/dd/yyyy") & "#"
d'autre part [Date_début_Etiquette] me semble bizard comme nom de champ
... ce ne serait pas plutôt [Date_début] ?

Aurait tu une idée
Par avance merci
apo75



Bonjour.

Essayer peut-être:
Me.Filter = "[Date début étiquette] BETWEEN #" &
Format(debutPeriode,"mm/dd/yyyy") & "# AND #" & format(DateFin,"mm/dd/yyyy")
& "#"

ou:
Me.Filter = "Date_début_étiquette BETWEEN cdate(" & debutPeriode & ") AND
cdate(" & DateFin & ")"

Bon courage,




--
pgz
_____________________________




Bonjour à tous,

Après plusieurs essais, j'ai ajouté cette formule:

Private Sub Form_Open(Cancel As Integer)
Dim debutPeriode As Date, finPeriode As Date
debutPeriode = CDate(InputBox("Entrez la date de début de réception:"))
finPeriode = CDate(InputBox("Entrez la date de fin de réception:"))
Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin
Me.FilterOn = True

Résultat:

Je peut renseigner les dates de dbut et de fin, mais cela bloque à :

Me.Filter = "Date_début_étiquette BETWEEN " & debutPeriode & " AND " & DateFin

Et là, je ne vois pas ou est mon erreur............et je ne sais toujours
pas si mon formulaire sera trié de date à date.

Mais je persévère.................

Au secours..........
apo75










Publicité
Poster une réponse
Anonyme