Discussion :

[julio02200]

Bonjour,
j'ai crée une zone de liste qui liste les champs que j'ai rentré dans les tables. Je voudrais savoir comment tester si la zone de liste est vide. Si oui, un formulaire s'ouvre.
J'ai effectué les méthodes présentes dans les faq et toutes sans succès...
En fait lorsque j'excecute mon programme, lorsque aucun champ n'est indiqué dans la zone de liste, il existe toujours un champ vide mais on peut cliquer dessus.
Est ce que mon problème viendrait de ça?
Comment réaliser cette opération?
Merci

[guigui5931]

Et si tu fait

Code :

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

1
2
 
MsgBox(liste.ListCount)

ça te donne quoi?

[julio02200]

Ca me donne 1 alors qu'il n'y a rien dans la table... Comment est ce possible?

[guigui5931]

Comment est ce que tu remplis ta liste? Avec du code VBA? Avec une requete? Avec directement la table entière
Essaye de détailler un peu comment tu fais

[julio02200]

Alors ma zone de liste est remplie de la façon suivante:
Origine source:table/requête
contenu:SELECT [Nom sous-groupe] FROM Requete_sous_groupe WHERE [Nom groupe]=form_form1!Liste1.value

En fait c un menu, imbriqué le lien se fait parfaitement.Voici un schéma du menu:

Groupe1------>Sous groupe 11
------>Sous groupe 12

Groupe2 ------>Pas de sous-groupe

Dans le cas du 2eme groupe, je voudrais tester si ya un sous-groupe ki existe. Si non alors un formulaire s'ouvre.
Où je peux tester ça?

[guigui5931]

Jvais poser une question ptetre stupide mais tu es sur qu'il n'y a pas une ligne vide dans ta table?
Sinon essaye de voir ce que te donne le ListCount si il y a 1 élément dans la liste

Sinon pour tester s'il y a un sous groupe, tu peut mettre le résultat de ta requete dans un RecordSet et tester si il est vide ou non

[julio02200]

Je crois ke g trouvé l'astuce en fait g changé le type de la jointure entre les 2 tables de la requête... Ca à l'air de fonctionner.
Par contre tu sais comment on peut faire pour que dans le cas où la zone de liste est vide alors le formulaire se ferme tout de suite?
Meci de ton aide

[guigui5931]

Ben tu fait ton test et pour fermer tu fais

Code :

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

1
2
 
DoCmd.Close acForm, "Tonformulaire", acSaveNo

[julio02200]

Je pensais aussi que c t ça qu'il fallait faire mais ca me donne une erreur qui me dit "l'expression entrée fait référence à un objet fermé ou supprimé" !