Discussion :

[docjo]

Bonjour
J'aimerai remplacer un sous etat pas un message si celui ci est vide plutot que d'avoir un espace vide.

J'ai cherché dans la FAQ et dans le forum mais pas trouvé.
Une idée ?

merci d'avance

[Gabout]

Bonjour,

Une idée : un sous-état fait appel à des enregistrements dépendant de l'état. Donc tu compte le nombre d'enregistrements du sous-état et, s'il n'y en a pas, tu mets sa propriété Visible à Non

A+

[L'Italiano]

Bon soir monsieur Docjo
Voilà à Vous le mdb demandé. J'espère d'avoir aidé.
Saluts

[L'Italiano]

Oui monsieur Gabout, n'est pas mal votre conseil, mais...
...le message demandé par monsieur Docjo où il est?.

[Gabout]

Désolé, j'étais sur plusieurs fronts

Je ne peux lire bd2.zip (problème de version).

Voilà un exemple avec 2 tables :

1. tUTR la table de l'état
2. tACT la table du sous état

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Compare Database
Option Explicit
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
   Dim i As Integer                                   'Le nombre d'enregistements sous-jacents
   i = DCount("*", "tACT", "[actutrid]=" & Me.utrid)  'Le décompte
   If i = 0 Then
      Me.seACT.Visible = False                        'On planque le sous-état
      Me.txtMessageAlerte.Visible = True              'On affiche un mesage d'alerte
   Else
      Me.seACT.Visible = True                         'On affiche le sous-état
      Me.txtMessageAlerte.Visible = False             'On planque un mesage d'alerte
   End If
End Sub

A+

[docjo]

c'est excellent pour moi !
Merci beaucoup