Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Filtrer un report via code ?

Filtrer un report via code ?

12 réponses
Avatar
Bruno Frisque
Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code ci-dessous.
Il y a chaque fois 1 msg d'erreur : the settings is not valid for this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True Then
Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & " with IDKey
" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " & Forms!clientsactuels!MyIdEventKey '<<<
error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte !

Bruno
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Gilbert
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans Forms!clientsactuels!MyIdEventKey ?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message de news:

Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code ci-dessous.
Il y a chaque fois 1 msg d'erreur : the settings is not valid for this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True Then
Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & " with
IDKey

" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " & Forms!clientsactuels!MyIdEventKey '<<<
error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte !

Bruno




Avatar
Bruno Frisque
Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans Forms!clientsactuels!MyIdEventKey ?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message de news:

Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code ci-dessous.
Il y a chaque fois 1 msg d'erreur : the settings is not valid for this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True Then
Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & " with
IDKey

" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " & Forms!clientsactuels!MyIdEventKey
'<<<


error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte !

Bruno








Avatar
Gilbert
Si tu utilise :
Me.Filter = "ideventkey = 3"
est-ce que ça fonctionne?

"Bruno Frisque" a écrit dans le message de news:

Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans Forms!clientsactuels!MyIdEventKey ?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message de news:

Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code
ci-dessous.



Il y a chaque fois 1 msg d'erreur : the settings is not valid for this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True Then
Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & " with
IDKey

" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " & Forms!clientsactuels!MyIdEventKey
'<<<


error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte !

Bruno












Avatar
Bruno Frisque
Merci,

Non ! justement le problème ....
erreur the settings is not valid for this property etc ...



"Gilbert" wrote in message
news:
Si tu utilise :
Me.Filter = "ideventkey = 3"
est-ce que ça fonctionne?

"Bruno Frisque" a écrit dans le message de news:

Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans Forms!clientsactuels!MyIdEventKey
?




Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message de
news:




Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code
ci-dessous.



Il y a chaque fois 1 msg d'erreur : the settings is not valid for
this




property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True Then
Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & "
with




IDKey
" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " & Forms!clientsactuels!MyIdEventKey
'<<<


error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte !

Bruno
















Avatar
Gilbert
Es-tu sûr que le type de données de ideventkey et de
Forms!clientsactuels!MyIdEventKey est le même?
Qu'est-ce que t'affiche la commande suivante?
Debug.Print "," & Forms!clientsactuels!MyIdEventKey & ","
Y-a-t'il un espace entre le numéro et une des virgules?


"Bruno Frisque" a écrit dans le message de news:
#
Merci,

Non ! justement le problème ....
erreur the settings is not valid for this property etc ...



"Gilbert" wrote in message
news:
Si tu utilise :
Me.Filter = "ideventkey = 3"
est-ce que ça fonctionne?

"Bruno Frisque" a écrit dans le message de news:

Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans
Forms!clientsactuels!MyIdEventKey




?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message de
news:




Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code
ci-dessous.



Il y a chaque fois 1 msg d'erreur : the settings is not valid for
this




property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True Then
Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & "
with




IDKey
" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " & Forms!clientsactuels!MyIdEventKey
'<<<


error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte !

Bruno




















Avatar
Bruno Frisque
Merci,
Bonne idée .. mais ce debug.print donne bien ,3, sans espace, avant le
runtime error 2101.
Est-ce que la raison serait qu'on essaie de filtrer un subreport déjà chargé
par le report principal ??
Cà doit pourtant être possible ??

encore merci



"Gilbert" wrote in message
news:
Es-tu sûr que le type de données de ideventkey et de
Forms!clientsactuels!MyIdEventKey est le même?
Qu'est-ce que t'affiche la commande suivante?
Debug.Print "," & Forms!clientsactuels!MyIdEventKey & ","
Y-a-t'il un espace entre le numéro et une des virgules?


"Bruno Frisque" a écrit dans le message de news:
#
Merci,

Non ! justement le problème ....
erreur the settings is not valid for this property etc ...



"Gilbert" wrote in message
news:
Si tu utilise :
Me.Filter = "ideventkey = 3"
est-ce que ça fonctionne?

"Bruno Frisque" a écrit dans le message de
news:




Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans
Forms!clientsactuels!MyIdEventKey




?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message de
news:




Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code
ci-dessous.



Il y a chaque fois 1 msg d'erreur : the settings is not valid
for






this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True
Then






Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" & "
with




IDKey
" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " &
Forms!clientsactuels!MyIdEventKey






'<<<
error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe correcte
!







Bruno
























Avatar
Gilbert
Une idée comme ça:
Est-ce que ton état n'est pas déjà filtré. Comme ton sous-état doit être lié
par un 'champ père- champ fils', il est possible que le numéro que tu
sélectionne ne passe pas le filtre.
Dans ce cas il faut appliquer le filtre sur l'état et non le sous-état, ou
alors sur un autre critère.

Gilbert

"Bruno Frisque" a écrit dans le message de news:

Merci,
Bonne idée .. mais ce debug.print donne bien ,3, sans espace, avant le
runtime error 2101.
Est-ce que la raison serait qu'on essaie de filtrer un subreport déjà
chargé

par le report principal ??
Cà doit pourtant être possible ??

encore merci



"Gilbert" wrote in message
news:
Es-tu sûr que le type de données de ideventkey et de
Forms!clientsactuels!MyIdEventKey est le même?
Qu'est-ce que t'affiche la commande suivante?
Debug.Print "," & Forms!clientsactuels!MyIdEventKey & ","
Y-a-t'il un espace entre le numéro et une des virgules?


"Bruno Frisque" a écrit dans le message de news:
#
Merci,

Non ! justement le problème ....
erreur the settings is not valid for this property etc ...



"Gilbert" wrote in message
news:
Si tu utilise :
Me.Filter = "ideventkey = 3"
est-ce que ça fonctionne?

"Bruno Frisque" a écrit dans le message de
news:




Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans
Forms!clientsactuels!MyIdEventKey




?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le message
de






news:

Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code
ci-dessous.



Il y a chaque fois 1 msg d'erreur : the settings is not valid
for






this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True
Then






Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded" &
"







with
IDKey
" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " &
Forms!clientsactuels!MyIdEventKey






'<<<
error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe
correcte







!

Bruno




























Avatar
Bruno Frisque
oui l'état est filtré sur CodePostal mais ce n'est pas la raison :
Quand je défile l'état il me les montre avec le sous-état, problème s'il y a
3 records pour le sous-état, ils s'impriment tous les trois...
Si dans le sub-report j'indique "manuellement" filtre = key = 3 alors çà
marche ...
L'état principal ne contient que le sous-état key 3 ....
Mais quand le code lui dit ma même chose = erreur.

Il y-a-t'il des exemples ou on filtre un sous état ?? est-ce simplement
possible de le faire ???

encore grand merci





"Gilbert" wrote in message
news:
Une idée comme ça:
Est-ce que ton état n'est pas déjà filtré. Comme ton sous-état doit être
lié

par un 'champ père- champ fils', il est possible que le numéro que tu
sélectionne ne passe pas le filtre.
Dans ce cas il faut appliquer le filtre sur l'état et non le sous-état, ou
alors sur un autre critère.

Gilbert

"Bruno Frisque" a écrit dans le message de news:

Merci,
Bonne idée .. mais ce debug.print donne bien ,3, sans espace, avant le
runtime error 2101.
Est-ce que la raison serait qu'on essaie de filtrer un subreport déjà
chargé

par le report principal ??
Cà doit pourtant être possible ??

encore merci



"Gilbert" wrote in message
news:
Es-tu sûr que le type de données de ideventkey et de
Forms!clientsactuels!MyIdEventKey est le même?
Qu'est-ce que t'affiche la commande suivante?
Debug.Print "," & Forms!clientsactuels!MyIdEventKey & ","
Y-a-t'il un espace entre le numéro et une des virgules?


"Bruno Frisque" a écrit dans le message de
news:



#
Merci,

Non ! justement le problème ....
erreur the settings is not valid for this property etc ...



"Gilbert" wrote in message
news:
Si tu utilise :
Me.Filter = "ideventkey = 3"
est-ce que ça fonctionne?

"Bruno Frisque" a écrit dans le message de
news:




Oui il y a bien le IdEventKey 3 par exemple;
Le problème est comment le mettre dans le filtre ??


"Gilbert" wrote in message
news:
Bonjour,
Qu'est-ce que t'affiche la ligne Degug.print?
As-tu une bien valeur non nulle dans
Forms!clientsactuels!MyIdEventKey




?

Cordialement
Gilbert

"Bruno Frisque" a écrit dans le
message







de
news:

Bonjour,

Je voudrais filtrer l'ouverture d'un sub-report avec le code
ci-dessous.



Il y a chaque fois 1 msg d'erreur : the settings is not
valid








for
this
property etc ...

Private Sub Report_Open(Cancel As Integer)
If CurrentProject.AllForms("ClientsActuels").IsLoaded = True
Then






Debug.Print "at SubRpt open!!!: ClientsActuel IS loaded"
&








"
with
IDKey
" & Forms!clientsactuels!MyIdEventKey ' = ok
Me.Filter = "ideventkey = " &
Forms!clientsactuels!MyIdEventKey






'<<<
error Syntaxe ??
Me.FilterOn = True
end if

Tout grand merci si quelqu'un peut me donner la syntaxe
correcte







!

Bruno
































Avatar
Gilbert
Je ne comprends pas ce que tu entends par "problème s'il y a 3 records pour
le sous-état, ils s'impriment tous les trois..."
Si tu veux dire que les trois enregistrements du sous-form ne sont pas liés
à l'enregistrement du formulaire, mais apparaissent quand même, alors c'est
que soit le lien entre état et sous-état n'est pas défini correctement, soit
la relation entre les tables (ou requêtes) de l'état et du sous-état n'est
pas correcte.

Gilbert
Avatar
Bruno Frisque
Tout grand merci !
(tu bosses bien tard toi ?)
je ne m'exprime pas trop bien sans doute.
Etat principal : Ville de Nantes (il n'y en a qu'une, filtrée sur Code
Postal)

Sous-Etat : (subForm et Sous-Etat) Bordereau d'Enlèvement (des registres
Etat Civil) = EventKey 1
Boderau Restitution = EventKey 2
Bordereau de Livraison : CD Worm avec actes numérisés etc...
= EventKey 3
etc...
Mon formulaire affiche Nantes avec ttes. les coordonnées tel/fax ..etc) et
son sub-form les différents événements ... (sous forme DataSheet à compléter
successivement)
Je souhaite imprimer le dernier événement de Nantes.
Donc open report where key = Nantes ...c'est OK l'Etat principal s'affiche
avec Nantes etc....

Le sous-état (contenat l'objet de l'événement, sa date etc ) via code :
where "EventKey = 3" (Livraison) ... et là çà plante !!

Moralité : impossible de "coder" le filtre d'un sous-état !!??

Encore tout grand merci Gilbert !

Je m'étonne quand même un peu qu'un Forum tel que MS-Acces.FR n'y arrive
pas.
Tu n'y es pour rien et encore merci d'avoir répondu si rapidement ce jour !

Je tente ma chance aux US (ils ont des forums Access pas tristes non plus)
Encore fort grand merci
Bruno









"Gilbert" wrote in message
news:O8G24%
Je ne comprends pas ce que tu entends par "problème s'il y a 3 records
pour

le sous-état, ils s'impriment tous les trois..."
Si tu veux dire que les trois enregistrements du sous-form ne sont pas
liés

à l'enregistrement du formulaire, mais apparaissent quand même, alors
c'est

que soit le lien entre état et sous-état n'est pas défini correctement,
soit

la relation entre les tables (ou requêtes) de l'état et du sous-état n'est
pas correcte.

Gilbert




1 2