Discussion :

[domik]

Bonjour,
J’ai réalisé un graphique simple issue d’une table « matable » via une requête « r1 » dans laquelle j’extrais les
noms et les dates (champs : Nom – Ladate)

Code :

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

1
2
3
SELECT matable.Nom, matable.Ladate
FROM matable
WHERE (((matable.Ladate)=[Entrez une date :jj/mm/aa]));

Le contenu du contrôle IndépendantOLE0 du formulaire graphique est le suivant :

Code :

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

SELECT [Nom],Count([Ladate]) AS [CompteDeLadate] FROM [r1]   GROUP BY [Nom];

J’obtiens bien mon graphique, mais j’aimerais faire figurer dans ce formulaire un contrôle dans lequel figurerait la date précédemment sélectionnée dans la requête « r1 » qui correspond donc à l'extraction souhaitée (un peu comme un titre du graphique).
Merci pour votre aide.

[helas]

Pourquoi ne pas mettre une zone de texte en 2 dimensions avec fond transparent pour afficher la date et supprimer la légende principale du graphe.

Code :

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

1
2
 
 Me!ZoneDeTexte = MaDate

semble plus simple

[domik]

Merci pour ta proposition 'helas'
Ce que je souhaiterais, c'est que cette date s'affiche automatiquement (dans une zone de texte ou autre ) pour ne pas la saisir une 2ieme fois.
Comme le resultat du graphique ne concerne que cette date, c'est elle qu'il faudrait pouvoir retourner automatiquement ds une zone de texte

[FreeAccess]

Bonjour,

..c'est que cette date s'affiche automatiquement (dans une zone de texte ou autre )

Sauf erreur, c'est le but de la réponse de helas..
Ton Form graphique est bien basé sur une requête......et dans cette requête tu as bien ton champ "LaDate".....donc si tu crée une zone de texte avec comme valeur:

Code :

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

Me!ZoneDeTexte = LaDate

...alors ta zone de texte contiendras bien la valeur de ta date.....

[domik]

j'ai essayé cette solution, mais le problème est que dès que j'ouvre mon formulaire graphique ,le contrôle IndépendantOLE0 du formulaire graphique apparait mais vierge , la msgbox issue de la requete "r1" me demandant la date (Entrez une date :jj/mm/aa) apparait également , mais ma zone de texte est la également avec comme contenu: '#Nom*?'
après avoir saisi la date le grahique apparait mais ma zone de texte est toujours avec :#Nom*? .
aurais je oublié qq chose

[mout1234]

Bonsoir,

Il y a peut être une solution dans cette voie mais cela me parait plus compliqué inutilement....
Le plus simple à mon avis est de passer par un contrôle indépendant dans un formulaire; dans lequel tu peux appliquer un masque de saisie et une valeur par défaut... . Tu remplaces alors ton paramètre de ta requête par une référence à ce champ.

[domik]

j'ai finalement trouvé cette solution
j'ai supprimé la requête "r1" pour aller directement ds la table "matable"
j'ai créé une zone de texte "Texte1" avec le format : Date, abrégé (le
même format que le champ "Ladate")
dans le formulaire graphique j'ai placé ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub RefreshQuery()
Dim SQL As String
SQL = "SELECT [Nom],Count([Ladate]) AS [CompteDeLadate]FROM matable GROUP BY matable.Nom, Ladate HAVING "
 
    SQL = SQL & "matable!Ladate like '*" & Me.Texte1 & "*' "
 
Me.IndépendantOLE0.RowSource = SQL
Me.IndépendantOLE0.Requery
End Sub
 
Private Sub Texte1_BeforeUpdate(Cancel As Integer)
 RefreshQuery
End Sub

Dans les propriétés, le contenu du contrôle IndépendantOLE0 du formulaire graphique le code est le suivant:

Code :

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

SELECT [Nom],Count([Ladate]) AS [CompteDeLadate]FROM matable GROUP BY matable.Nom, Ladate HAVING matable!Ladate like '*" & Me.Texte1 & "*';

A l'ouverture du formulaire il me suffit donc d'entrer une date ds la zone de texte pour faire apparaitre le graphique correspondant

étant novice, je ne sais pas si cette solution est très élégante, mais elle marche.

je reste donc preneur pour d'autres solutions
merci.

[mout1234]

Bonjour,

Les dates dans une requêtes doivent être formatées au standard US.

Code :

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

SQL = SQL & "matable!Ladate =#" & Format(Me.Texte1,"mm/dd/yyyy")  & "# "

à moins que tu ne souhaites permettre à l'utilisateur de saisir une date incomplète....

N'oublie pas de cliquer sur