Discussion :

[tonion]

Bonjour à tous,
Je cherche en vain comment masquer les champs vides dans une requête sélection : ma requête demande de saisir un critère, suivant la valeur qui est entrée certains champs ont des valeurs et d'autres sont vides. Il y a un nombre très important de champs, 75, n'avoir la vision que de ceux qui ont des valeurs faciliterait la lecture.
SQL ? Formulaire+VBA ? si quelqu'un a la solution.
Merci

[loufab]

Bonjour,

Le plus simple c'est formulaire + VBA avec l'événement sur activation.

Code :

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

1
2
3
4
5
dim ctl as control
 
for each ctl in me.controls
     ctl.visible = not isnull(ctl.value)
next

Par contre ça ne rempli pas les espaces laissés vides.

ça c'est pour le mode Formulaire Simple.

Pour le mode formulaire continue il faut travailler avec la mise en page conditionnelle et une fonction vba.

Cordialement,

[tonion]

Bonsoir et merci pour votre aide.
J'ai donc créé un formulaire et lui ai affecté un code sur activation :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
Dim ctl As Control

 For Each ctl In Me.Controls
     ctl.Visible = Not IsNull(ctl.Value)
Next
End Sub

Mais j'ai un bug sur la partie en rouge... .

[loufab]

Oups !

Certains controles n'ont pas de Value (étiquettes, cadre, boutons)

met un

Code :

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

on error resume next

après la ligne dim

[tonion]

le bug a disparut et les vides ne sont plus affichés en tant que valeurs, mais il reste les étiquettes (en-tête de colonne dans mon formulaire). Si je fais un export sous excel du formulaire le résultat est bon, seules les colonnes avec des valeurs sont reprises, mais sur le formulaire j'ai les étiquettes qui polluent toujours la lecture. Est-il possible de les masquer elles aussi ?

[loufab]

Oui tu peux toujours renommer les étiquettes comme ceci

ET + le nom de son controle

Dans la boucle tu ajoutes

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Current()
Dim ctl As Control
on error resume next
 
For Each ctl In Me.Controls
     ctl.Visible = Not IsNull(ctl.Value)
     me.controls("ET" & me.ctl.name).visible = Not IsNull(ctl.Value)
Next
 
End Sub

[tonion]

Bonjour Fabrice et encore merci pour ton aide.
J'ai modifié le code comme tu me l'as indiqué mais j'ai une erreur de compil :

Code :

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

Me.Controls("ET" & Me.ctl.Name).Visible = Not IsNull(ctl.Value)

[User]

Salut,

essaie ceci:

Code :

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

Me.Controls("ET" & ctl.Name).Visible = Not IsNull(ctl.Value)

De plus dans le code que t'a donné Loufab il me semble que, par exemple, l'étiquette de la zone de texte nommée "Texte1" doit s'appeler "ETTexte1"...

[tonion]

Bonsoir User,
Le code que tu proposes supprime effectivement l'erreur de compilation mais ne change rien au problème d'affichage des étiquettes des champs ne comportant aucun enregistrement. En fait cette ligne ne déclenche aucune action sur le formulaire.

Ne pourrait-on pas agir sur la requête elle-même, par une instruction SQL, ALTER TABLE DROP par exemple ?

[User]

Re,

forcément tu as un :

Code :

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

on error resume next

donc au niveau de cette ligne sans le on error resume next tu aurais une erreur d'exécution genre nom d'étiquette incorrect !

Comme je te l'ai dit plus haut Les noms de tes étiquettes doivent être du genre:

"ETNomContrôle":

ou "NomContrôle" est le nom du contrôle contenant la valeur nulle et "ETNomContrôle" le nom de l'étiquette du contrôle en question...

Comprends-tu ?

[User]

Quel mode d'affichage utilises-tu pour ton formulaire ?
Feuille de données ?

[tonion]

J'ai renommé mes étiquettes ETNomduchamp mais ça ne change rien.
Je pense que je ne comprend pas vraiment ce que tu veux dire.

[tonion]

Oui, feuille de données

[User]

Re,

Pour masquer une colonne en mode feuille de données tu fais:

Code :

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

Me.Controls("NomContrôle").ColumnHidden = True

Peux tu joindre un aperçu de ton formulaire en mode feuille de donnée en expliquant ce que tu souhaites masquer ?

[tonion]

Je ne peux que te renvoyer à mon premier post. Le problème est que je connais pas à l'avance les colonnes qui devront être masquées puisque c'est fonction d'une valeur entrée par l'utilisateur : "UE". Pour les tests je travaille sur 3 champs ET108228;ETE0113;ETE3092 mais en réalité il y en a 77.
Quand je rentre 36 pour la valeur de UE, je ne voudrais que voir que les champs qui comporte une valeur (pour 36=masquer ET108228).

[User]

Re,

Peux-tu joindre ta base au format 2000 ou 2003,que je teste moi-même, ton formulaire à l'air en mode continu ?

[tonion]

Je n'arrive pas à joindre ma base, format mdb non reconnu dans les extentions de PJ acceptées sur le forum. Par mail ?
J'ai mis mon formulaire en mode simple mais ça ne change rien.

[User]

Salut,
Pour ne pas zipper ta base et joindre le fichier

Sinon il faudrait mettre la propriété affichage par défaut de ton formulaire à feuille de données.

et après si ton formulaire en mode feuille de données n'affiche qu'une ligne essayer ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
Dim ctl As Control
 
For Each ctl In Me.Controls
   If TypeOf ctl Is TextBox Then
     ctl.ColumnHidden = IsNull(ctl.Value)
   End If
Next
 
End Sub

A tester...

[tonion]

Ca marche mais je suis confronté à un problème de taille, j'ai un nombre de champs, 77, supérieur à ce qui est accepté dans un formulaire.

[User]

Salut,

Normalement Access accepte au plus 254 contrôles dans un formulaire.
As-tu essayé de recréer le formulaire ou de compacter ta base ?