Discussion :

[Valreg23]

Bonjour tous le monde,
Je suis débutant dans access et je suis en train de réaliser une base de donnée Access pour la gestion des stocks dans une pépinière de plants.
J ai réalisé une requête simple dans laquelle on doit choisir la fourchette de date (première date et dernière date) pour laquelle on veut les données et je veux que ces dates s'affiche sur l’état qui est fait a partir de cette requête.
Quelqu un peut il m'aider?
Merci d'avance

[EricDgn]

Bonjour

Une façon de faire est modifier le texte du titre de l'état (.Caption) au moment de son ouverture à l'aide des dates inscrites dans le formulaire qui lance l'ouverture de cet état. Quelque chose du genre:

Code :

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

1
2
Me.etqTitre.Caption = "Liste des plants entre le " & Format(d1, "dd/mm/yyyy") & _
                      " et le " & Format(d2, "dd/mm/yyyy") & "."

Un exemple en attaché.

Bonne continuation.

[Valreg23]

Salut EricDgn et merci pour ton aide.
C'est exactement ce qu'il me faut mais malheureusement je ne m'y connais pas en programmation. J'avais basé mon état sur une requête de sélection de la date mais je trouve plus pratique de faire un formulaire a la place comme tu l'a fais dans l'exemple
Si j ai bien compris il faut que je crée je crée 2 zones de text indépendant au niveau du titre de mon formulaire et que je rentre dans le générateur de code de ces zones de texte pour "insérer le code que tu m'a donné?
J ai essayer de le faire mais je n'arrive pas a avoir le meme résultat que celui dans l'exemple que tu m'a envoyé.
Pourrait tu détailler un peu les étapes pour y arriver?
Merci

[EricDgn]

Bonjour,

Le principe est effectivement d'avoir dans le formulaire 2 zones de texte qui contiennent les dates, nommées dans l'exemple 'Dat1' et 'Dat2'.



Ensuite l'état "sur ouverture" récupère ces 2 valeurs pour construire le texte du titre, nommé dans l'exemple 'etqTitre'.





Maintenant il y a différentes façons de synchroniser la liste affichée sur le formulaire et la liste affichée sur l'état. J'en ai utilisée une mais vous en avez sans doute utilisé une autre, que vous pouvez tout à fait bien conserver: cela ne change pas le principe de construction du texte titre de l'état.

Bonne continuation.

[Valreg23]

Bonjour EricDgn et merci pour vos explications.
J ai suivi vos étapes et j ai pu mettre au point le formulaire ''=(F_Production) avec les 2 date.


J ai ensuite créé l'état qui est basé sur la table T_Production et j’ai nommé son entête "etqTitre".


J 'ai utilisé le code suivant dans l'évenement "sur ouverture" de l'état:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Report_Open(Cancel As Integer)
   Dim d1 As Variant, d2 As Variant
   If OpenArgs = "F_Production ouvert" Then
      Me.RecordSource = Form_F_Production.RecordSource
      d1 = Nz(Form_F_Production.Dat1, "")
      d2 = Nz(Form_F_Production.Dat2, "")
      If d1 <> "" And d2 <> "" Then
         Me.etqTitre.Caption = "Liste des plants produits entre le " & Format(d1, "dd/mm/yyyy") & _
                               " et le " & Format(d2, "dd/mm/yyyy") & "."
      End If
   End If
End Sub

Mais apparemment j'ai dû faire une erreur quelque part parce que ça me donne ce message

Je n'arrive pas à déceler l’erreur
Avez-vous une idée de ce qui n'a pas marché?
Merci

[EricDgn]

Bonjour,

Attention, ce n'est pas la 'section' qui doit avoir ce nom, mais l'étiquette qui contient le texte de titre:



Bonne continuation.

[Valreg23]

Bonjour et Merci pour la correction.
J'ai rectifié et Il n'y a plus de message d'erreur mais les 2 dates ne s'affichent pas sur l'état et aussi la sélection de dates n'est pas effectuée.
Sur cette exemple mon formulaire présente une entrée

mais l'était présente toutes les entrées

Y'a t il une autre erreur?
Merci

[EricDgn]

Bonjour,

Dans le fichier exemple donné, il y avait dans le formulaire un bouton avec ce code:

Code :

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

1
2
3
Private Sub btnPrint_Click()
   DoCmd.OpenReport "ePlants", acViewPreview, , , , "fPlants ouvert"
End Sub

Le texte "fPlants ouvert" est l'argument envoyé à l'état "ePlants".
Il faut exactement ce même texte dans la macro Report_Open(...). C'est ce texte qui est analysé dans l'instruction:

Code :

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

If OpenArgs = "F_Production ouvert" Then

Si d'un côté il est indiqué "fPlants ouvert" et de l'autre "F_Production ouvert", cela ne peut effectivement pas fonctionner: il n'y a pas égalité.
En exécutant la macro Report_Open pas à pas, vous pourrez voir ce qui se passe effectivement.

Bonne continuation.

[Valreg23]

Bonjour,

J'ai vérifié mais j'ai le même ''F_production ouvert'' dans les 2 codes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub valider_Click()
   If IsDate(Me.Dat1) And IsDate(Me.Dat2) Then
      If Me.Dat1 > Me.Dat2 Then
         MsgBox "Annulé: Date2 < Date1 ?", , "Anomalie dates"
      Else
         Me.RecordSource = "Select * FROM T_Production WHERE Date_production Between #" & Format(Me.Dat1, "yyyy-mm-dd") & "# AND #" & Format(Me.Dat2, "yyyy-mm-dd") & "#;"
      End If
   Else
      MsgBox "Annulé: SVP indiquez la fourchette de date de production", , "Date manquante"
   End If
End Sub
 
Private Sub imprimer_Click()
DoCmd.OpenReport "E_Production", acViewPreview, , , , "F_Production ouvert"
End Sub

Je peux peut-être vous envoyer ma base pour que vous voyez ce qui ne vas pas?

Production plants.rar

[EricDgn]

Bonjour,

En fait il suffit d'allonger la largeur de l'étiquette etqTitre pour que tout le texte puisse s'afficher!

Bonne continuation.

[Valreg23]

Génial ça a marché.
Merci beaucoup EricDgn