Discussion :

[albahl]

Bonjour,

D'après un formulaire dans lequel on renseigne deux champs date intitulés DateDébut et Datefin, je désirerais en cliquant sur OK ouvrir un état et afficher les enregistrements de date à date sans que me l'on redemande de renseigner les dates.

En résumé, je renseigne DateDébut et Datefin, je clique sur OK et j'ouvre un état qui tient compte des plages.

Je peux le faire d'après une requête, mais je préfère le formulaire avec les options à renseigner.

Merci pour votre aide.

[EricDgn]

Voir dans l'aide d'Access la commande OpenReport. Il suffit d'y expliciter la condition WhereCondition.

Attention:
- dans la WhereCondition, les dates doivent être indiquées dans le format US.
- bien vérifier que les dates limites sont bien contenues dans le résultat (en particulier la date fin), les champs Date étant en fait des champs Date+Heure.

Bonne continuation.

[albahl]

Voir dans l'aide d'Access la commande OpenReport. Il suffit d'y expliciter la condition WhereCondition.

Attention:
- dans la WhereCondition, les dates doivent être indiquées dans le format US.
- bien vérifier que les dates limites sont bien contenues dans le résultat (en particulier la date fin), les champs Date étant en fait des champs Date+Heure.

Bonne continuation.

Bonjour et merci pour votre réponse.

J'ai ceci mais il y aurait une erreur de syntaxe.

DoCmd.OpenReport "Grand Livre", A_PREVIEW, , " Me.[Date d'opération] Between #" & _
Format(Datedébut, "dd/mm/yyyy") & "#" & " # And # " & "#" & Format(DateFin, _
"dd/mm/yyyy") & "#".

Ou ceci: DoCmd.OpenReport "Grand Livre", acViewPreview, , "[Date d'opération] between [Sélections écritures].[DateDébut] and [Sélections écritures].[Datefin]"
Cela fonctionne mais me redemande les dates dans une fenêtre paramètres.

Merci.

[EricDgn]

Il y a des espaces et # en trop. L'instruction devrait plutôt être celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.OpenReport "Grand Livre", acViewPreview , , _
"[Date d'opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#"

[Date d'opération] représente un champ de la table (et pas du formulaire). Il ne faut donc pas indiquer Me.[...]
DateDébut et DateFin sont des champs du formulaire. Il faut donc indiquer Me.Date... (Me= l'objet qui lance l'instruction)

Dans Access 2007, je pense qu'il faut utiliser la constante acViewPreview (plutôt que A_PREVIEW).

Personnellement j'évite de nommer les champs en y laissant des espaces, en y utilisant des lettres accentués, et je n'y utilise JAMAIS ' ou "
Aussi [Date d'opération] serait pour moi [DateOperation].

Bonne continuation.

[albahl]

Il y a des espaces et # en trop. L'instruction devrait plutôt être celle-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.OpenReport "Grand Livre", acViewPreview , , _
"[Date d'opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#"

[Date d'opération] représente un champ de la table (et pas du formulaire). Il ne faut donc pas indiquer Me.[...]
DateDébut et DateFin sont des champs du formulaire. Il faut donc indiquer Me.Date... (Me= l'objet qui lance l'instruction)

Dans Access 2007, je pense qu'il faut utiliser la constante acViewPreview (plutôt que A_PREVIEW).

Personnellement j'évite de nommer les champs en y laissant des espaces, en y utilisant des lettres accentués, et je n'y utilise JAMAIS ' ou "
Aussi [Date d'opération] serait pour moi [DateOperation].

Bonne continuation.

Bonjour,

J'ai modifié le nom du champs en "date_opération", mails il y a encore des erreurs: utilisation du mot clé Me incorrecte et si je le retire, il ya de nouveau une mauvaise syntaxe.

Encore merci pour votre participation.

[EricDgn]

Il faudrait regarder dans le formulaire (en mode création) quels sont les noms donnés aux zones de texte qui contiennent les valeurs DateDébut et DateFin

(Nom indiqué dans l'onglet 'Autres' de la fenêtre des Propriétés).

[albahl]

Il faudrait regarder dans le formulaire (en mode création) quels sont les noms donnés aux zones de texte qui contiennent les valeurs DateDébut et DateFin

(Nom indiqué dans l'onglet 'Autres' de la fenêtre des Propriétés).

La première solution (DoCmd.OpenReport "Grand Livre", acViewPreview, , _
"[Date_opération] Between #" & Format(Me.DateDebut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#") fonctionne maintenant car j'ai créé un module de class, sinon Me n'est pas accepté.
Cela dit, ça sélectionne tout et non la plage.

[EricDgn]

Je ne pense pas qu'un module de classe soit vraiment indiqué.
Il faudrait vraiment vérifier au niveau du formulaire les noms donnés aux 2 zones de texte contenant DateDébut et DateFin.

Autre vérification possible, ajouter avant l'instruction DoCmd l'instruction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print "[Date_opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#"

pour voir à quoi ce que cela donne exactement. (à la place de Debug.Print, vous pouvez aussi inscrire MsgBox)

Cordialement.

[albahl]

Je ne pense pas qu'un module de classe soit vraiment indiqué.
Il faudrait vraiment vérifier au niveau du formulaire les noms donnés aux 2 zones de texte contenant DateDébut et DateFin.

Autre vérification possible, ajouter avant l'instruction DoCmd l'instruction suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print "[Date_opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#"

pour voir à quoi ce que cela donne exactement. (à la place de Debug.Print, vous pouvez aussi inscrire MsgBox)

Cordialement.

Bonjour,

ça fonctionne sauf que pour DateDebut il me prend tout et Datefin c'est bon.

J'essaie également d'afficher les lignes dont le champ "SelecInv" est égal à 0 (oui/non). Pas d'erreur mais il ne prend pas en compte.

Encore merci pour votre aide.

[EricDgn]

Bonjour,

Pour prendre en considération le champ "SelecInv", il faut compléter la WhereCondition:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("[Date_opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#") AND ([SelecInv] = 0)

Pour résoudre le problème lié à DateDébut, il faudrait donner le résultat effectivement donné par la WhereCondition (les Debug.Print sont vraiment très utiles pour le débogage).

Cordialement.

[albahl]

Bonjour,

Pour prendre en considération le champ "SelecInv", il faut compléter la WhereCondition:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("[Date_opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#") AND ([SelecInv] = 0)

Pour résoudre le problème lié à DateDébut, il faudrait donner le résultat effectivement donné par la WhereCondition (les Debug.Print sont vraiment très utiles pour le débogage).

Cordialement.

Bonsoir,

En fait, en ce qui concerne le champ [SelecInv], j'avais déjà essayé votre methode avec diverses nuances mais ce champ n'est pas trouvé. Il figure dans l'état. En le remplaçant par le champ de la table, c'est la même chose.
Pour ce qui est de Debug.Print, il me renvoie bien les deux dates. Où est l'erreur?

Encore merci pour votre temps que vous me consacrez à ce sujet.

[EricDgn]

Attention, il y a un guillemet mal placé: il ne doit pas se trouver après le dernier # mais tout en fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("[Date_opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#) AND ([SelecInv] = 0)"

Pour date début, y-a-t'il vraiment des enregistrements qui sont "avant" ?

Cordialement.

[albahl]

Attention, il y a un guillemet mal placé: il ne doit pas se trouver après le dernier # mais tout en fin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

("[Date_opération] Between #" & Format(Me.Datedébut, "dd/mm/yyyy") & "# And #" & Format(Me.DateFin, "dd/mm/yyyy") & "#) AND ([SelecInv] = 0)"

Pour date début, y-a-t'il vraiment des enregistrements qui sont "avant" ?

Cordialement.

Bonjour,

ça fonction bien pour SelecInv =0, mais concernant la date début, j'ai changé le format: mm/dd/yyyy. et ça fonctionne. Pas très logique puisque la dateFin à le format dd/mm/yyyy.

Encore merci pour votre aide et votre patience.

Excellente journée à vous.

[EricDgn]

Il faut bien indiquer mm/dd/yyyy dans les 2 formats. Dans VBA, si la date à utiliser est 30/01/2017, Access comprend qu'il s'agit du mois de janvier tandis que si la date est 12/1/2017, Access considère qu'il s'agit du 1er décembre.
Ce qui se passe donc: pour les dates du jour > 12, Access corrige, pour les dates du jour < 13, Access se mélange les pinceaux.
Dans le code VBA, il faut donc toujours convertir les dates au format mm/dd/yyyy
(C'est idiot, je le savais, mais je me suis quand même trompé dès mon 1er message!)
Bonne continuation.

[albahl]

Il faut bien indiquer mm/dd/yyyy dans les 2 formats. Dans VBA, si la date à utiliser est 30/01/2017, Access comprend qu'il s'agit du mois de janvier tandis que si la date est 12/1/2017, Access considère qu'il s'agit du 1er décembre.
Ce qui se passe donc: pour les dates du jour > 12, Access corrige, pour les dates du jour < 12, Access se mélange les pinceaux.
Dans le code VBA, il faut donc toujours convertir les dates au format mm/dd/yyyy
(C'est idiot, je le savais, mais je me suis quand même trompé dès mon 1er message!)
Bonne continuation.

Encore merci pour les infos.

Cordialement.