Sous formulaire et multi critère de sélection

**Spanish_** · 24/10/2007, 21h30

Bonsoir,

J'ai créé un formulaire sous Access avec:
- une liste_déroulante1 (liste de site),
- 2 champs où l'on peut saisir la date_début et date_fin
- un sous formulaire qui affiche toutes les infos(Id_site,date_publication,catégorie,...) concernant le site sélectionné dans liste_déroulante1 grace au champs père ,champs fils. Jusque là tout va bien, ça marche.

Mais je voudrais qu'en plus du critère de la liste_deroulante1, soient pris en compte, les plages de date_debut et date_fin qui affichera dans le sous formulaire les infos du site sélectionné ET dont le champs date_publication du sous formulaire soit compris entre les 2 dates saisis.

Comment puis je faire pour appliquer ces deux critère de sélection à la fois?
Merci d'avance

**Faw** · 24/10/2007, 22h34

Salut, à essayer

Code :

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

1
2
3
4
Me.monsousform.Form.RecordSource = Left(Me.monsousform.Form.RecordSource, Len(Me.monsousform.Form.RecordSource) - 1) 'On vire le ";" de la chaine du RecordSource
Me.monsousform.Form.RecordSource = Me.monsousform.Form.RecordSource & _
" AND date_publication between " & Me.date_début & " and " & Me.date_fin
Me.monsousform.Form.Requery

**Spanish_** · 25/10/2007, 08h29

Bonjour,

Comme je suis novice en access , ce code que tu m'as donné, je le à quel endroit exactement? Private Sub monsousform_enter()? Private sub Form_load()?

Merci

**loufab** · 25/10/2007, 08h42

Bonjour,

En toute logique et après quelques reflexion on peut trouver facilement ou mettre ce code.

Pour cela il faut se poser un minimum de questions (novice ou débutant ne veux pas dire qu'on ne sait pas se poser les bonnes questions qu'on a pas de logique).

Donc les questions :

Quand est-ce que je souhaite que le sous-form affiche les informations correspondantes ?
1) Quand je rentre dans le sous-form ?
2) Au chargement du formulaire principal ?
3) Dés que mes informations sont connues ?
4) Je ne sais pas... quand je ferme le formulaire principal ?

Pour un meilleur confort pour l'utilisateur je dirais 3 !

Pour créer une IHM il faut au moins connaitre les événements et leur enchainement, pas tous heureusement. Mais ceux qui reviennent souvent.

Regarde le chasseur d'événement dans les outils en téléchargement, le code est ouvert donc tu peux voir ce qui se passe et dans quel ordre il s'enchaine.

Ce post à un but didactique et vulgarisateur (Apprend à un homme à pêcher et il se nourrira tout seul...)

Cordialement,

**Spanish_** · 25/10/2007, 09h35

Non mais ça j'ai compris que c'est qu'une fois que mes 3 critères soient rentrés que le sous formulaire va les prendre en compte.Mon post précédent était purement cité à titre d'exemple.
Je me pose les bonnes questions, je sais ce que je veux obtenir. Ce que j'ai plus de mal c'est à les appliquer en code, sinon je n'utiliserai pas ce forum.

Cordialement,

**Spanish_** · 25/10/2007, 11h48

Bonjour Faw,

J'ai donc créé un bouton recherche et le code que tu m'as donné je l'ai mis dans ma recherche cmd_recherche_click.

Mais mais il m'indique une erreur d'éxécution '3142' et il me sélectionne en jaune dans le débogueur

Code :

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

1
2
Me.monsousform.Form.RecordSource = Me.monsousform.Form.RecordSource & _
" AND date_publication between " & Me.date_début & " and " & Me.date_fin

Bizarrreee...

**loufab** · 25/10/2007, 12h59

normal le code fourni doit être adapté à ton cas. le nom du formulaire, du sous formulaire, des controles...

Tu devrais regarder le tuto sur les appels formulaires/états, cela t'aidera à comprendre le mécanisme.

**Spanish_** · 25/10/2007, 14h43

J'avais bien adapté les noms contenus dans ton code que tu m'as donné avec ceux utilisés dans ma base de données. Je suis débutant mais quand même

**loufab** · 25/10/2007, 17h10

Envoyé par Spanish_

Bonjour Faw,

J'ai donc créé un bouton recherche et le code que tu m'as donné je l'ai mis dans ma recherche cmd_recherche_click.

Mais mais il m'indique une erreur d'éxécution '3142' et il me sélectionne en jaune dans le débogueur

Code :

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

1
2
Me.monsousform.Form.RecordSource = Me.monsousform.Form.RecordSource & _
" AND date_publication between " & Me.date_début & " and " & Me.date_fin

Bizarrreee...

Je reprends ton message.
Ton sous formulaire s'appelle monsousform ?

**Spanish_** · 25/10/2007, 23h04

Je trouve que t'es pointilleu ke meme, c'était pour dire que c'était les 2 lignes du milieu que access me renvoit en erreur. A part ça tu as d'autres commentaires ou t'as un début de soluce?

**Faw** · 26/10/2007, 01h19

Si j'ai bien compris ta liste et ton sous-form sont synchronisés, c'est çà? avec
la liste en champ père et l'identifiant du site en champ fils.

**Faw** · 26/10/2007, 07h06

Reprise...

tu peux appliquer un filtre à ton sous-form comme ceci

Code :

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

1
2
Me.monsousform.Form.Filter = "date_publication between #" & Me.date_début & "# and #" & Me.date_fin & "#"
Me.monsousform.Form.FilterOn = True

pour l'événement, cela dépend de ton contexte, de l'ergonomie que tu veux donner à ton interface...(cf les post de Loufab)

**Spanish_** · 26/10/2007, 11h09

Oui c'est exactement ça, ma liste est synchronisée avec mon sous-form.
Le critère de la date début et fin est un plus pour affinner la recherche.

Merci, L'application du filtre que tu m'as donné fonctionne nickel mais quand je saisi:
début :20/08/07 et fin: 26/10/07.

Mais ça déconne, quand JJ<MM style :
début: 09/10/07 et fin 26/10/07
Il m'affiche toutes les date_publication entre le 10/09/07 et 26/10/07.

Après plusieurs recherche, il yaurait un problème de format US.
Pourtant mes champs date_debut et date_fin sont dans le format date abrégé (19/06/1994) et mon champs date_publication idem, il continu malgré tout à confondre le format US dès que JJ<MM.

**loufab** · 26/10/2007, 11h14

En VBA les dates sont TOUJOURS au format US. Sauf formatage explicite de l'utilisateur (voir la fonction Format). Ou utiliser " au lieu de #.

**Spanish_** · 26/10/2007, 15h16

Re loufab

J'ai essayé pas mal de chose pour essayer d'obtenir un résultat juste quand l'utilisateur tape une date où JJ<MM.
J'ai changé comme tu m'as dis les # par " ---> erreur
J'ai changé les formats de mes champs heure, rien n'y fait.
Pourtant la table date_publication est dans le format français JJ/MM/AAAA.

La date par défaut d'afficher dans date_debut et date_fin est la date du jour, elle s'affiche bien correctement (26/10/2007).

Une autre idée, car là je sèche.

c'est à s'y arracher les cheveux déjà j'en ai plus bcp

**loufab** · 26/10/2007, 17h36

Au grand maux les grands moyens...

Dans ton filtre utilise cette formule

Code :

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

"date_publication between " & Cdbl(me.datedébut) & " and " & Cdbl(me.datefin)

Ici on transforme la date (us ou fr) en nombre du type Double. C'est le format interne des dates ACCESS. La partie entière (à gauche de la virgule) représente le N° du jour depuis l'origine du calendrier, et les décimales (partie à droite de la virgule représentant les heures.

Avec ça Access n'interprète plus les dates.

Peux-tu poster l'intégralité du code de la pose du filtre ?
D'ou déclenches-tu la procédure ?

Pour les cheveux c'est pareil...

**Spanish_** · 29/10/2007, 09h06

Bonjour Loufab,

J'ai testé ton code, en l'appliquant à mon cas, mais il me marque Erreur ODBC l'Appel à échoué.
Je récapitule.
En fais un utilisateur sélectionne dans une liste déroulante la catégorie de site qu'il veut visualiser dans le sous formulaire ( ça marche

).

Ensuite l'utilisateur peut appliquer un 2ème filtre sur les dates.
Il rentre la date de début et la date fin de création et il clique sur un bouton appliquant ce dernier.
ça marche tant que JJ>MM sinon il est perdu, ceci est du a la version US des dates access mais je n'arrive pas à y remedier.

Voici le code appliqué pour mes filtres:

Code :

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

1
2
Me.Sous_form_choix_categorie.Form.Filter = "DATE_PUBLICATION between " & CDbl(Me.dte_debut) & " and " & CDbl(Me.dte_fin)
Me.Sous_form_choix_categorie.Form.FilterOn = True

Merci de m'éclairer sur ce souci.

**loufab** · 29/10/2007, 10h34

Bonjour,

Quand tu dis ODBC, à quelle type de base de données accèdes-tu ?

**Spanish_** · 29/10/2007, 10h53

Mes tables sont liées à une base de données Oracle.
Mais je peux afficher tous les sites de la base données, c'est que dès que je clique sur le bouton pour appliquer le filtre sur la date, que le message d'erreur apparait.

Cordialement,