Discussion :

[samloba]

Salut à tous

J'ai une bd dans laquelle j'enregistre les demandes d'autorisation d'absences du personnel (Tbl_Personnel et Tbl_AutAbs). Je dois produire un état trimestriel dans lequel il faut regrouper les demandes par membre. Quand je fais ce regroupement j'obtiens plusieurs fois le nom du membre en sur les lignes le concernant. Dans word ou Excel on peut fusionner les cellules contenant la même valeur et obtenir qqchose comme dans la piece jointe
Quelqu'un a t-il une astuce
Merci pour votre aide

[Oliv'83]

Bonsoir,

Il doit te suffire d'utiliser la fonction "Regrouper et trier" de ton Etat et de Regrouper par le nom.

Oliv'

[samloba]

Merci pour l'interet
ça je sais le faire : regrouper trier, mais je voudrais que le nom du membre se soit pas répété dans la section détail.
Il doit y avoir un code vba à insérer sur l'évènement au formatage de la section détail
Merci pour votre aide

[marot_r]

En Access tu peux demander de ne pas répéter les doubles tu obtiendrais :

Toto, Valeur 1, Valeur 2

, valeur 3, Valeur 4

Toto, Valeur 6, Valeur 7

, valeur 8, Valeur 9.

Je ne me souviens plus exactement où c'est mais ce doit être une propriété de la section détail.

A+

[samloba]

salut marot_r

il faut certainement du code pour redimensionner le control contenant le nom et si possible centrer le contenu en face des autres ligne concernant le meme membre

[marot_r]

Je ne pense pas qu'on puisse facilement arriver à faire des cellules fusionnées en Access c'est pour cela que je te suggère l'option 'Ne pas répéter les doubles'. Access fait cela de lui-même sans une seule ligne de code et le résultat est assez proche de celui recherché.

Tu peux aussi explorer l'export vers Excel avec fusion de célulle en Excel mais ce sera sans doute plus de travail.

A+

[78chris]

Bonjour

Autre solution : mettre le nom dans la zone groupe et non dans le détail.

En Excel la fusion apporte plus de problèmes que d'avantages.

A mon avis ce n'est pas faisable dans Access sauf en trichant pour trouver la valeur se situant au milieu par rapport au nombre de lignes (marche pas vraiment pour les nombres pairs ) et en modifiant la couleur des autres.

[samloba]

salut 78chris!

si je mets le control dans l'entete de groupe, j'obtiens


toto
----------------------------
.
.
.
titi
-------------------------------

alors que je voudrais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
++++++++++++++++++++++++++++++++
+               +              
+               +++++++++++++++++++++++
+  Toto       +
+               +++++++++++++++++++++++
+               +
+++++++++++++++++++++++++++++++++
+               +              
+  Titi         +++++++++++++++++++++++
+               +
+ +++++++++++++++++++++++++++++++

Excusez moi pour les balises code c'est le seul moyen que j'aitrouvé pour maintenir mon texte en forme

[Jeannot45]

Dans les propriétés de format du champ, il suffit de passer la propriété Masquer Doublon sur Oui

Bonne continuation

[PeyePo]

Bonjour

Dans les propriétés de format du champ, il suffit de passer la propriété Masquer Doublon sur Oui

Oui, mais cela ne permettra pas de centrer la donnée, elle sera toujours en haut, non ? De plus on aura pas le cadrage.

J'avais mis une discussion avec un lien sur un article qui permettait de dessiner dans les états, pourquoi n'apparait-il plus ?

Edit : je remets le lien http://starec.developpez.com/tuto/ecriredessineretats/

[samloba]

j'étudie l'article du lien
@+

[Tofalu]

En bidouillant un peu, on arrive facilement à l'image ci-jointe. L'idée est de transformer la section de gauche en sous état et de tout caler pour que les bordures s'alignent. Un code VBA tout simplement vient ensuite ajuster la taille de la zone de texte de droite.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
Dim n As Integer
 
n = DCount("*", "matable", "eleve=" & Chr(34) & Me.Eleve.Value & Chr(34)) * 397
Me.txtEleve.TopMargin = CInt((n - 397) / 2)
Me.txtEleve.Height = n
Me.Détail.Height = n
End Sub

ci-joint l'image et la base car assez difficile à expliquer. La constante 397 correspond à la hauteur de mes lignes 0.7 cm en twips.

[anouar_chaieb]

Bonjour,

Samloba:

Quand je fais ce regroupement j'obtiens plusieurs fois le nom du membre en sur les lignes le concernant

Oliv'83:

Il doit te suffire d'utiliser la fonction "Regrouper et trier" de ton Etat et de Regrouper par le nom.

Samloba:

ça je sais le faire : regrouper trier, mais je voudrais que le nom du membre se soit pas répété dans la section détail.

Pour le regroupement de style classique:
Si tu as le problème de répitition voir la relation entre les tables. Et pour un bon regroupement il faut que ce soit sur un ID unique, il se peut que deux personnes portent le même nom

[Tofalu]

Quel rapport avec le besoin à savoir l'illusion d'une fusion vericale dans la section Détails ?

[samloba]

Salut Tofalu
Des que j'ai une bonne connection je télécharge et étudie ta soluce

[Tofalu]

A noter que dans mon exemple, j'ai fait au plus simple avec une seule table, mais on peut considérer que matable est une requête retournant des données.

Il faudrait surement peaufiner de telle sorte qu'une section détail de l'état principal ne soit pas couper par un saut de page (section insecable) faute de quoi la fusion risque de cafouiller

Le plus dur est le positionnement des contrôles. Idéalement, il faut définir les tailles et les positions en VBA de telle sorte à être sûr des alignements. Attention aussi aux propriétés auto extensible et auto réductible qui doivent être fixées à Non

[samloba]

Bravo Tofalu
Dans mon pays on dirait "C'est pas homme, c'est génie!"
Belle preuve de la puissance d'access+vba. En fait la programmation est plus une affaire d'idées que de tel ou tel langage.
Mille merci. Pourrais-tu formaliser cette astuce pour la FAQ pour en faire profiter le plus grand nombre?

[Tofalu]

Pourrais-tu formaliser cette astuce pour la FAQ pour en faire profiter le plus grand nombre?

Si j'ai mis une base de données en exemple (ce que je fais rarement) c'est justement parce que je n'avais pas le temps de rédiger. Mais ce post reste de côté pour plus tard