Discussion :

[Tazzou]

Salut à tous

J'ai créé un formulaire qui est basé sur une requête SELECT
Je souhaite filtrer les informations présentées par le formulaire en modifiant son code source
Voici le code que j'ai créé (FiltreRecap est un groupe d'option) :

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
Select Case Me.FiltreRecap
   Case 0
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_0"
   Case -1
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_Recup"
   Case 1
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_1"
   Case 2
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_2"
   Case 3
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_3"
   Case 4
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_4"
   Case 5
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_5"
End Select

mais, lorsque j'exécute ce code, le formulaire ne m'affiche plus aucune information alors que si je mets manuellement le nom de chaque requête dans la propriété SOURCE du formulaire les informations s'affichent correctement

Pourriez-vous m'aider SVP ??? C'est quelque peu urgent.

Merci beaucoup

[marot_r]

Bonjour.

Essaye en ajoutant :

Code :

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

 Me.SF_HistoriqueHeures.Form.requery

après le end select.

Et accessoirement tu pourrais simplifier ton code comme ceci :

Code :

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

1
2
3
4
5
if Me.FiltreRecap<>-1 then
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_" & me.FiltreRecap
   else
      Me.SF_HistoriqueHeures.Form.RecordSource = "R_Historique_Recup"
end if

A+

[Tazzou]

j'ai essayé ta proposition mais toujours rien dans mon formulaire... Je ne comprends pas... J'ai déjà fait ceci dans une autre base et ça fonctionnait mais là ça ne veut pas...

Les requêtes fonctionnent bien individuellement...

[titi95]

Bonjour

Question "idiote"...
As-tu vérifié le fonctionnement du groupe d'options : bon nom dans le select case, MsgBox pour contrôler la valeur prise, emplacement du select case...

[Tazzou]

oui j'avais ajouté un bouton avec un msgbox qui reprend la valeur de la propriété SOURCE qui était correcte

[titi95]

j'avais ajouté un bouton avec un msgbox

???
Ma question portait sur le bon fonctionnement du groupe d'option en tant que tel, à vérifier en 1ère ligne de ton code.

[Tazzou]

oui ca fonctionne correctement

A chaque fois que je clique sur le bouton d'option le msgbox me renvoie la valeur correspondant au bouton

[titi95]

Tu as bien ajouté le Requery conseillé par marot_r ?

[Tazzou]

Oui mais rien

[Jeannot45]

Je viens de créer une petite base avec le meme type de process en reprenant ton code.
Tout semble bien fonctionner.

As-tu pensé à supprimer ton groupe d'option et à le recréer voir même, et c'est moins marrant, refaire ton formulaire.
j'ai déjà eu un problème similaire qui m'a amené a recréer mon formulaire.

Bonne continuation

[marot_r]

Étrange !

Essaye

Code :

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

me.recalc

à la place du Me.SF_HistoriqueHeures.Form.requery.

A+

[Tazzou]

J'ai refait le formulaire que je souhaite filtrer, j'ai refait le groupe d'option, j'ai remplacé la ligne Me.SF_HistoriqueHeures.Form.requery par Me.SF_HistoriqueHeures.Form.recalc et ça ne fonctionne toujours pas...

La valeur du groupe d'option est correcte car la msgbox me donne la bonne valeur mais rien a faire... Je sens que je vais

[tee_grandbois]

bonsoir,
peux-tu poster ta base ?

[marot_r]

Bonjour.

remplace Me.SF_HistoriqueHeures.Form.recalc par me.recalc.

Cela va forcer le formulaire principal à se recalculer et par la même recalculer le sous-formulaire.

A+

[Tazzou]

Voici un extrait de ma base

Gestion heures Supp-Recup - Copie.zip

[tee_grandbois]

bonsoir,
je constate deux dysfonctionnements:
1) le formulaire principal contient une source de données: T_DonneesHeures. Quel est l'intérêt, d'autant plus qu'il n'y a pas de champs pères / champs fils entre ce formulaire et le sous-formulaire ?

2) toutes les requêtes, à l'exception de R_historique_0, contiennent un critère sur NumPersonnel avec [Formulaires]![F_SaisieHeures]![NumPersonnel2] contrôle qui ne semble pas exister dans le formulaire et qui est sans aucun doute la cause du problème.

J'ai fait fonctionner le formulaire en enlevant la source de données du formulaire principal et en supprimant les critères des requêtes: le code fonctionne bien, le type d'heures est bien pris en compte et cela sans l'instruction Me.Recalc

[Tazzou]

J'ai supprimé la source du formulaire principal et ça fonctionne... Bon... Bah... Il me reste a créer une requête ajout pour intégrer les informations du formulaire principal dans une table

[marot_r]

Bonjour.

Il me reste a créer une requête ajout pour intégrer les informations du formulaire principal dans une table

Pourquoi ne pas utiliser un formulaire lié ?
Avec cela, Access fait tout le travail pour toi.

A+