Sous-Formulaire nombre de lignes vides ?

**popo68** · 07/12/2006, 16h22

Bonjour !

En m'aidant de la :FAQ: j'ai vu un Tuto de ARO pour compter le nombre de ligne dans un sous formulaire. (http://access.developpez.com/faq/?page=data)

Par contre quand mon sous formulaire est vide, comment tester la zone de texte qui compte le nombre de ligne ?

J'ai déjà essayer avec des if isnull() ou autre mais ca ne fonctionne pas.

L'erreur généré est "expression sans paramètre"
(Normal vu qu'il n'a rien compté...)

Quelqu'un à une idée ?
ou il faut que j'intercepte l'erreur et que je code à partir de là ? (je trouve pas cette solution très propre, c'est pour ca que je vous demande d'abord... )

Merci !

**Faw** · 08/12/2006, 03h38

Salut,
peut-être utiliser Nz() pour référencer les source contrôle dans le code de Aro.
exple

Code :

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

= nz([SF_contact].[Formulaire]![Nbcontact],0)

et tester si la

Code :

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

If zone  = 0

ou

Code :

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

if nz([SF_contact].[Formulaire]![Nbcontact],0)

**popo68** · 08/12/2006, 08h45

Merci Faw !

J'ai testé mais ca ne marche pas, j'ai regardé dans l'aide, et la fonction NZ() ne marche que quand la variable est null, or dans mon cas, la variable est ni null, ni égal à 0, elle est -rien-

Avec le NZ quand j'arrive à ce moment, il me ressort une erreur "expression sans paramètre" ...

Après dans l'exemple de Tofalu, est-il possible de forcer le compte et lui dire que s'il n'y a rien mettre 0 ?

Si quelqu'un a une astuce ! merci ^^

**Faw** · 08/12/2006, 09h33

Bonjour,
Bizarre chez moi ça fonctionne avec l'astuce de Aro posée "telle qu'elle..."
Même pas besoin de Nz()... et testée avec zéro enregistrements dans le sous-form.
Null dans vba veut dire "Aucune valeur exploitable", donc = Rien comme tu dis.

**popo68** · 08/12/2006, 09h42

Je pense bien faw, mais dans mon cas, pour bien expliquer les choses, j'ai plusieurs onglet avec a chaque fois un sous formulaire lié par un code identifiant de mon formulaire principale.

Il arrive que dans un formulaire je n'ai aucune données, et comme j'ai bloqué l'option 'allowadditions', il m'affiche juste l'entete de colone.
Et vu qu'il n'y a aucune ligne, j'ai l'impression qu'il ne prend meme pas la peine d'initialiser ma variable à null

(pour info, ma variable dans mon sous formulaire est défini comme :

Code :

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

=compte([codeid])

Dans le pied du formulaire. je pense que vu que le détail est vide, donc pas null, il ne peut pas initialiser cette expression ?)

J'ai essayé avec un

Code :

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

=iif([codeid]=true; compte([codeid]);0)

Mais ca marche toujours pas...

**popo68** · 08/12/2006, 09h46

En faite dans la Solution de Aro, je pense que si je ne bloque pas avec mon "AllowAdditions = false" dans le sous formulaire il va quand meme affiché une ligne ou il n'y aura rien car c'est la ligne pour ajouter un nouvelle enregistrement.

Mais à partir de là vu qu'il affiche au moins une ligne meme si elle est null, il peut initialiser la variable de compte à null.

Tandis que dans mon cas, il n'affiche rien, donc il ne fait rien

existe-il un moyen de tester cela ?

**popo68** · 08/12/2006, 10h03

Je viens de voir sur le forum que pour un etat ou il n'y a rien, on peut tester ca dans l'évenement "NoData".
Par contre il n'y pas pas cette évenement dans le sous formulaire...
Existe-t-il quelque chose d'analogue ?

**Arkham46** · 08/12/2006, 10h13

bjr,

avec access 2003 ça marche avec un test avec IsError :

Code :

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

=VraiFaux(IsError([SF_contact].[Formulaire]![Nbcontact];0;[SF_contact].[Formulaire]![Nbcontact])

**Faw** · 08/12/2006, 10h48

Salut Arkham, je connais pas cette expression mais il ne manquerait
pas une ")" ?

Code :

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

=VraiFaux(IsError([SF_contact].[Formulaire]![Nbcontact]);0;[SF_contact].[Formulaire]![Nbcontact])

**Arkham46** · 08/12/2006, 11h16

Envoyé par Faw

Salut Arkham, je connais pas cette expression mais il ne manquerait
pas une ")" ?

Code :

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

=VraiFaux(IsError([SF_contact].[Formulaire]![Nbcontact]);0;[SF_contact].[Formulaire]![Nbcontact])

je crois pas non, ou je vois pas clair ce matin, j'en ouvre 2, j'en referme 2

IsError s'utilise comme IsNull, ou IsEmpty

Dans mon test, [SF_contact].[Formulaire]![Nbcontact] affiche "#Erreur"
IsError permet de gérer ce cas.

**popo68** · 08/12/2006, 11h18

Merci d'essayer de m'aider mais ca ne mache toujours pas ...

donc dans mon code VBA j'ai :

Code :

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

1
2
 
z = IIf(IsError(Form(TabTab(i)).Form.NbLgn), 0, Form(TabTab(i)).Form.NbLgn)

Pour préciser, tabtab() est un tableau avec le nom de mes sousformulaires.
Nblgn est une zone de texte dans chaque pied de page de chaque sousformulaire.
J'ai essayé le iserror() aussi dans la zone de texte du sous formulaire aussi, ca marche pas

En faite le iserror ne fonctionne pas, car je pense que la zone de texte ne génère pas d'erreur en soi, il génère une erreur que quand on veut utiliser ce qu'elle contient, et vu que y a -rien-, meme pas de valeur null, ca me génère l'erreur -Expression sans paramètre- ...

Je pense qu'il va falloir intercepter l'erreur pour règlé le problème, car je ne vois pas d'autre solution ... (ou pour etre exact, mes connaissances Access+Vba ne me permettent pas de trouver autre chose

)

**Faw** · 08/12/2006, 11h23

Ok, merci pour la précision.
Mais je ne compte toujours que 3 parenthèses...Faut peut-être que je change
de marque de café

**popo68** · 08/12/2006, 11h25

Change Faw

Dans son dernier poste j'en compte 4

**Faw** · 08/12/2006, 11h27

Si NbLgn est un contrôle de formulaire, il faut utiliser le ! et non le Point

Code :

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

Form(TabTab(i)).Form!NbLgn

**Arkham46** · 08/12/2006, 11h28

Code :

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

Form(TabTab(i))

ça manque pas de s à Form?

**popo68** · 08/12/2006, 11h32

bah avec le "." quand il y a une ligne par exemple le code :

Code :

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

z = IIf(IsError(Form(TabTab(i)).Form.NbLgn), 0, Form(TabTab(i)).Form.NbLgn)

z est bien égale à 1 donc ca marche comme ca (j'ai aussi essayé avec '!' mais ca ne résoud pas mon problème

**Faw** · 08/12/2006, 11h34

Envoyé par Arkham46

bjr,

avec access 2003 ça marche avec un test avec IsError :

Code :

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

=VraiFaux(IsError([SF_contact].[Formulaire]![Nbcontact];0;[SF_contact].[Formulaire]![Nbcontact])

bon c'est rien que pour chipoter...et garder mon café pourri

Et à priori ça serait Forms et pas form.

**popo68** · 08/12/2006, 11h36

Non, ce n'est pas "formS" avec ca, il me génère une erreur :
"Erreur d'exécution '2450': impossible de trouver le formulaire 'SF_PE' blabla..."

**Arkham46** · 08/12/2006, 11h38

pour accéder à un sous formulaire, il faut accéder au contrôle qui le contient

depuis le form parent :

Code :

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

Controls("SF_PE").Form.NbLgn

**popo68** · 08/12/2006, 11h46

Ca revient au meme, je crois que j'avais déjà essayé ca au début en regardant dans la

Mais vu que ca m'avait généré l'erreur, j'ai testé avec le form().form.nblgn

j'ai revérifié avec le controls().form, mais ca me génère toujours l'erreur.

En faite mon code marche très bien, tant qu'il y a une valeur, voir un 'null' dans la variable qui compte le nombre de ligne, qui est dans le pied de page de mon sous formulaire en zone de texte (=compte([CodeID]))

Sous-Formulaire nombre de lignes vides ?

IHM

Discussions similaires

Partager

Partager