etat et sous etat impression meme vide

**rose0729** · 11/03/2014, 12h39

Bonjour,

J'ai vu un commentaire de marot qui disait :

"Donne au contrôle de sous-état une hauteur de 1cm par exemple, car une page Access ne peut pas faire plus de 50 cm, et défini les propriétés 'Peut rétrécir' et 'Peut s'agrandir' à vrai. Comme cela si ton état est vide il ne s'affichera pas.
Tu peux glisser des sauts de pages entre tes sous-état pour forcer le début sur une nouvelle page (attention, page pas feuille). Il faut un peu de code VBA pour les rendre conditionnel pour ne pas avoir de page blanche"

C'est cette phrase qui m'intéresse mais je ne sais pas comment faire : "Il faut un peu de code VBA pour les rendre conditionnel pour ne pas avoir de page blanche"

Comme j'ai fait un saut de page, je gaspille toujours une page quand le sous état est vide

Merci de votre aide

**loufab** · 16/03/2014, 11h29

Bonjour,

Pour qu'un contrôle "saut de page" s'exécute ou pas il faut régler sa propriété Visible sur Vrai ou Faux.

Dans le format de la zone où est situé le saut de page faire :

Code :

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

me.SautDePage.visible = ExpressionConditionnelle

ExpressionConditionnelle est une expression qui renvoie vrai ou faux, et uniquement ces 2 valeurs, donc pas de null.

Si tu dois tester s'il y a des enregistrements, une méthode consiste à interroger le recordset comme ceci :

Code :

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

me.recordset.recordcount>0

Ainsi si le recordset est dans le même état que le saut de page ceci devrait convenir :

Code :

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

me.SautDePage.visible = me.recordset.recordcount>0

Cordialement,

**rose0729** · 17/03/2014, 13h50

merci loufab

si tu savais le papier que j'ai gaspillé avec ces feuilles vides !

je teste et je te dis

**rose0729** · 17/03/2014, 15h31

Loufab, j'ai fait ça :

Code :

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

1
2
3
4
rs = Me.EreliquatEdition
If rs.RecordCount > 0 Then
Me.PiedÉtat.Visible = True
End If

Mon sous-état que je voudrais imprimer s'il n'est pas vide, je l'ai mis dans le pied d'état

Mais ça ne marche pas... message : recordCount "propriété ou méthode non géré par cet objet"

Tu as une idée ?

**loufab** · 17/03/2014, 19h39

Je me pose une question...
Comment à partir d'une seule ligne

Code :

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

1
2
 
me.SautDePage.visible = me.recordset.recordcount>0

Tu peux en créer 4 ?

Code :

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

1
2
3
4
5
 
rs = Me.EreliquatEdition
If rs.RecordCount > 0 Then
Me.PiedÉtat.Visible = True
End If

Tu n'as pas confiance en ce que je te propose ?

Je commente ton code pour t'expliquer pourquoi ça ne peut pas fonctionner :

Code :

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

rs = Me.EreliquatEdition

Rs est un recordset (puisque tu tentes un recordcount à la ligne suivante) mais il n'est pas déclaré (dim rs as DAO.Recordset).
Pourquoi utilises-tu un tel objet ? tu en as besoin plus loin dans le code ? Sinon ça ne sert à rien.

qu'Est-ce que "Me.EreliquatEdition" ? Si c'est un sous-état la syntaxe est fausse, si c'est l'état lui même je ne vois pas comment tu peux affecter un état à un recordset. Il s'agit de 2 objets totalement différents.

Maintenant analysons la syntaxe suivante qui semble correcte.

Code :

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

1
2
3
4
 
If rs.RecordCount > 0 Then
    Me.PiedÉtat.Visible = True
End If

... Si d'un point de vue syntaxique elles sont correctes, d'un point de vue fonctionnel elles sont totalement stériles.

Pourquoi :
Par défaut ta zone (piedEtat) est visible. S'il y a des records (en admettant que rs soit correct) cette zone va passer à Visible=true (elle l'est déjà), s'il n'y en a pas... elle restera dans son état premier (aucun changement toujours Visible=true).
Maintenant admettons que tu ais mis Visible à false.
A la page 1, il y des records, le pied de page passe à true. Bravo !!! ça marche. à la 2ème page il n'y a pas de record... la zone reste visible puisque qu'il n'y a rien qui la gère, donc ça ne fonctionne pas.

Cordialement,

**rose0729** · 18/03/2014, 08h30

Loufab, j'ai entièrement confiance en tes conseils

J'ai essayé autre chose car j'ai eu un message en écrivant ta ligne

"cette fonctionnalité est uniquement disponible dans un fichier ADP"

EreliquatEdition est mon sous état, que j'ai mis en pied d'état

**loufab** · 18/03/2014, 08h36

Bien étrange ce message, je ne l'ai pas, probablement un problème de mauvais objet invoqué.

Si tu testes le sous-état voici comment procéder.

Code :

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

Me.PiedÉtat.Visible = me.EreliquatEdition.Report.Recordset.Recordcount>0

**rose0729** · 18/03/2014, 10h06

Bouuuuuuuuuuu !

Ta formule je l'ai testée partout

J'ai toujours "non disponible dans un fichier ADP"

**loufab** · 18/03/2014, 14h24

"cette fonctionnalité est uniquement disponible dans un fichier ADP"

"non disponible dans un fichier ADP"

C'est lequel qui est le bon ?

**rose0729** · 19/03/2014, 12h20

C'est celui là :

"cette fonctionnalité est uniquement disponible dans un fichier ADP"

**loufab** · 19/03/2014, 18h58

En effet le recordset ne fonctionne qu'en Adp.

Il faut utiliser HasData comme ceci :

Code :

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

me.controle.visible = me.MonSousform.Report.hasdata

Renvoi vrai s'il y a des enregistrements faux s'il n'y en pas ou que l'état n'est pas lié à une source de données.

**rose0729** · 21/03/2014, 08h59

Merci Loufab pour ta patience... mais

ok quand le sous état n'existe pas, il ne s'édite pas (donc, qu'une page ok)

mais

quand le sous état existe, il s'imprime mais à la suite, il ne s'imprime pas sur la page suivante ! (là je voudrais 2 pages !)

dans le pied d'état, là ou est mon sous état, j'ai essayé saut de page avant section, après section mais ça va pas

**loufab** · 21/03/2014, 18h48

Bonjour,
C'est déjà un grand pas.
Pour le problème de saut de page tu peux utiliser la même technique sur un contrôle saut de page.

Tu ajoutes un saut de page (icône avec 2 pages et une flèche qui les sépare) tu lui donnes un nom parlant.
SautPiedPage par exemple et tu appliques la même formule que précédemment :

Code :

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

me.SautPiedPage.visible = me.MonSousform.Report.hasdata

Cordialement,

**rose0729** · 24/03/2014, 18h00

Bouuuuuuuuuuuuu... quel casse tête

J'ose tout juste te dire que ça ne marche pas !

dès que je met ce saut de page, il saute bien.... une page vierge ou pas !

pourtant j'ai bien mis :

Code :

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

1
2
Me.PiedÉtat.Visible = Me.EreliquatEdition.Report.HasData
Me.SautDePage140.Visible = Me.EreliquatEdition.Report.HasData

**loufab** · 24/03/2014, 21h21

Saut de page = non ?

**rose0729** · 26/03/2014, 16h48

oui

j'ai bien mis saut de page = non

mais rien ni fait !

**loufab** · 27/03/2014, 17h28

Je peux éventuellement regarder ton édition.

**rose0729** · 28/03/2014, 17h46

J'ai voulu t'envoyer un exemplaire bon et un exemplaire avec le saut de page vide

J'ai fait ça en format pdf

et je ne comprend pas l'état ou j'ai le saut de page vide quand je le met en pdf, il ne sort qu'une page alors que moi à mon écran et en édition j'en ai 2 !!!!