Discussion :

[sud825]

J’ai encore besoin de votre aide, tout d’abords j’ai effectué plusieurs recherches au niveau du forum et de la section de la FAQ mais je n’arrive pas à régler mon problème.

J’ai un état qui ce nomme Liberations_728 et il est alimenter par une requête qui comporte le paramètre suivant :

>=[forms]![Report Date Range]![Beginning Date] Et <=[forms]![Report Date Range]![Ending Date]


Voici le code 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
13
14
15
16
17
18
19
20
21
Option Compare Database
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
     'utiliser Détail_Print, PAS Détail_Format qui est appelé PLUSIEURS fois
     If ([Noligne] Mod 2) = 0 Then
          Section(0).BackColor = vbWhite
     Else
          Section(0).BackColor = vbYellow
          'jaune pâle : joli et discret
     End If
End Sub
 
Private Sub Report_Close()
    DoCmd.Close acForm, "Report Date Range"
End Sub
 
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "Aucune donnée n'est disponible..."
    Cancel = -1
End Sub
 
Sub Report_Open(Cancel As Integer)

L’état marche nickel avec le formulaire qui permet de saisir les dates.

Maintenant j’ai dupliqué le formulaire et l’état et je veux maintenant ouvrir l’état sur 1 seule date. Dans le formulaire j’ai une zone de liste qui récupère les dates dont les enregistrements ont .été confirmé. Les dates s’affichent bien sur le formulaire mais lorsque j’essaie de prendre la valeur de la liste et de l’appliquer comme « paramètre pour l’affichage et l’impression de l’état. Ceci ne fonctionne pas .

Ma zone de liste ce nomme : date_dcc

J’aimerais simplement que lorsque que je double-clic sur la date que je souhaite imprimer mon .état s’ouvre en mode « aperçu avant impression » avec le critère (date de la zone de liste)

Le champ de mon état qui doit être paramétré « DateMiseAjour »

Je veux que l’état affiche seulement les enregistrements de la date que j’ai sélectionnée dans la zone de liste.

Il ne peu qu’y avoir une seule date sélectionné.

Bien évidement si j’utilise le paramètre manuel cela fonctionne parfaitement, mais j’aimerais le faire fonctionner à partir de la zone de lite.

Merci à tous
:

[loufab]

Bonjour,

Dans la syntaxe de lancement de l'état utilise la condition Where.

Code :

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

docmd.OpenReport "monreport",acViewPreview,,"date = " & me.madate

Si tu as de problème avec le format de la date utilise la fonction format (voir l'aide) pour forcer le format en date à la française, en VBA les dates sont systèmatiquement exprimé en US/UK.

Code :

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

DoCmd.OpenReport "monreport", acViewPreview, , "date = " & Format(Me.madate, "jj/mm/aa")

Note que si ta date n'est pas dans la colonne liée de la liste ou dans la première il te faudra spécifier le n° de la colonne.

Code :

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

DoCmd.OpenReport "monreport", acViewPreview, , "date = " & Format(Me.madate.column(x), "jj/mm/aa")

ou x représente l'indice de la colonne à partir de 0.

Cordialement,