Discussion :

[Jean-Michel69]

Bonjour,

J'ai un état access qui imprime des fiches d'interventions, chaque fiche s'imprime sur 2 pages (la première page donne des informations d'ordre général : type de problème, localisation, etc.., la seconde page imprime les photographies décrivant le problème).
La plupart des fiches d'interventions n'ont pas de photographies, je voudrais donc ne pas imprimer cette seconde page quand il n'y a pas de photographies.
Il faudrait que je puisse dynamiquement changer la hauteur de ma section détail, j'ai positionné sur ma section détail les propriétés Autoexensible et Autoreductible à OUI, par contre je ne peux pas modifier la propriété Height de mon contrôle image.

Merci de votre aide.
jean-Michel

[ClaudeLELOUP]

Bonjour,

Voici un exemple de solution :

Dans mon exemple, la photo est dans le contrôle : « iPhoto » et le chemin de l’image dans « Photo »

On définit deux variables globales pour mémoriser les hauteurs « normales ». Dans un module ce code :

Code :

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

1
2
3
4
5
Option Compare Database
Option Explicit
 
Global iHauteurInitialeDetail As Integer
Global iHauteurInitialePhoto As Integer

À l’ouverture de l’état, on mémorise les hauteurs "normales" :

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
iHauteurInitialeDetail = Me.Section(acDetail).Height
iHauteurInitialePhoto = Me.iPhoto.Height
End Sub

Chaque fois que l’image manque, une erreur 2220 sera levée. Cela permet d'aiguiller le traitement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo PasPhoto
'Cas normal
Me.iPhoto.Picture = [Photo]
Me.Section(acDetail).Height = iHauteurInitialeDetail
Me.iPhoto.Height = iHauteurInitialePhoto
Exit Sub
PasPhoto:
 
If Err.Number = 2220 Then
    Me.iPhoto.Height = 0
    Me.Section(acDetail).Height = iHauteurInitialeDetail - iHauteurInitialePhoto
End If
End Sub

[Jean-Michel69]

Bonjour ClaudeLeLoup,

C'est résolu, ça marche.

Merci beaucoup.

Jean-Michel