OVH Cloud OVH Cloud

Sélection à partir de date "x "

7 réponses
Avatar
Luis
Bonjour,
J'ai un sous-formulaire (continu) avec table qui contient=20
des =E9v=E9nements.
Je veux depuis le formulaire pricipal s=E9lectionner les=20
enregistrements sur le sous-formulaire =E0 partir d'une date=20
affich=E9e sur le formulaire principal, de sorte que=20
l'affichage commence =E0 partir de cette date.Comment faire
Merci.
Luis

7 réponses

Avatar
FredO
Tu peux appliquer un filtre avec une macro.
Par exemple, si la date en question est une date
saisissable, tu ajoute un bouton "afficher" qui déclenche
une macro du type :

sub affichage()
with Forms("nom_formulaire_principal").sous_formulaire
.Filter="[champ_date_evenement]>=" &
Me.control_date_saisie.value
.FilterOn = True
end with
end sub
ou un truc du même genre...

-----Message d'origine-----
Bonjour,
J'ai un sous-formulaire (continu) avec table qui contient
des événements.
Je veux depuis le formulaire pricipal sélectionner les
enregistrements sur le sous-formulaire à partir d'une
date

affichée sur le formulaire principal, de sorte que
l'affichage commence à partir de cette date.Comment faire
Merci.
Luis
.



Avatar
Eric
"Luis" écrivait news:11f1c01c4425e
$e682b020$:

Bonjour,
J'ai un sous-formulaire (continu) avec table qui contient
des événements.
Je veux depuis le formulaire pricipal sélectionner les
enregistrements sur le sous-formulaire à partir d'une date
affichée sur le formulaire principal, de sorte que
l'affichage commence à partir de cette date.Comment faire
Merci.
Luis


Bonjour , tu peux mettre sur l'évènement AfterUpdate de ton controle ou sur
click d'un bouton, le code suivant :
Dim strSQl As String
strSQl = "select * from tatable where TonChampDate>=#" & Format
(Me.txtDate, "mm/dd/yyyy") & "#;"
Me.NomDeTonSousFormulaire.Form.RecordSource = strSQl


Faudra vérifier que txtDate est pas null

Eric

Avatar
Luis
Bonjour,
Dans [champ_date_evenement] je trouve #Nom?
Pourquoi?
Merci de m'aider.
Luis
-----Message d'origine-----
Tu peux appliquer un filtre avec une macro.
Par exemple, si la date en question est une date
saisissable, tu ajoute un bouton "afficher" qui déclenche
une macro du type :

sub affichage()
with Forms("nom_formulaire_principal").sous_formulaire
.Filter="[champ_date_evenement]>=" &
Me.control_date_saisie.value
.FilterOn = True
end with
end sub
ou un truc du même genre...

-----Message d'origine-----
Bonjour,
J'ai un sous-formulaire (continu) avec table qui
contient


des événements.
Je veux depuis le formulaire pricipal sélectionner les
enregistrements sur le sous-formulaire à partir d'une
date

affichée sur le formulaire principal, de sorte que
l'affichage commence à partir de cette date.Comment faire
Merci.
Luis
.

.





Avatar
Luis
Bonjour,
J'ai aussi essayé cette solution et j'ai 'Erreur,
Champ "I" introuvable'
Les champs sont pourtant existants.
Merci pour ton aide.
Luis
-----Message d'origine-----
"Luis" écrivait
news:11f1c01c4425e

$e682b020$:

Bonjour,
J'ai un sous-formulaire (continu) avec table qui
contient


des événements.
Je veux depuis le formulaire pricipal sélectionner les
enregistrements sur le sous-formulaire à partir d'une
date


affichée sur le formulaire principal, de sorte que
l'affichage commence à partir de cette date.Comment
faire


Merci.
Luis


Bonjour , tu peux mettre sur l'évènement AfterUpdate de
ton controle ou sur

click d'un bouton, le code suivant :
Dim strSQl As String
strSQl = "select * from tatable where TonChampDate>=#" &
Format

(Me.txtDate, "mm/dd/yyyy") & "#;"
Me.NomDeTonSousFormulaire.Form.RecordSource = strSQl


Faudra vérifier que txtDate est pas null

Eric
.




Avatar
Eric
Bonjour Luis,

Donnes ton sql et meme ta procedure, je vais jeter un oeil.

Eric
Avatar
Luis
Bonjour Eric,
Veux-tu que je t'envoi en zip le formulaire avec les
requettes par mail?
Merci.
Luis
-----Message d'origine-----
Bonjour Luis,

Donnes ton sql et meme ta procedure, je vais jeter un
oeil.


Eric

.



Avatar
Eric
re,
"Luis" écrivait
Bonjour Eric,
Veux-tu que je t'envoi en zip le formulaire avec les
requettes par mail?
Merci.
Luis



Ok Luis, à cette adresse :
Mets tout ce dont je pourrais avoir besoin.
A+