Additionner UNIQUEMENT les champs NON VIDE

**VieuxGeek** · 19/04/2022, 19h08

Bonjour Amis Astuciens,

Mon application possède 5 champs que je remplit par un Prénom d'un enfant....
Chaque champ se nomme Enfant1, enfant2, etc... jusqu'à enfant5.

Si 5 champs remplit = 5 enfants
Si 3 champs remplit = 3 enfants
et si tous les champs sont vide = 0 enfants

Alors comment faire pour additionner ces champs NON VIDE ???
Suis nul en VBA alors un exemple ou une formule SVP.
Me suis-je bien expliqué ?

Merci d'avance et bonne soirée.
Bernard

**Zekraoui_Jakani** · 19/04/2022, 20h22

Vous pouvez utiliser la fonction "NZ".
Exemple : Nz([Champ1];0) donnera la valeur se trouvant dans champ1, mais si champ1 est "vide", elle donnera zéro.

Vous pouvez également tester le contenu de champ1 via la fonction IsNull([Champ1]) ou EstNull([Champ1])

**VieuxGeek** · 20/04/2022, 08h38

Merci Zekraoui_Jakani,

OUI c'est une bonne piste mais après comment additionner cela dans un formulaire ?

Je sais faire dans un état, mais ce que je veux c'est dans le formulaire de ma fiche ???

Suis NULL et mes neurones usés, car 74 ans....
Merci pour du clé en mains.
Bonne journée.
Bernard

**micniv** · 20/04/2022, 09h33

74 ans n'est pas une excuse acceptable ...
un exemple simple

Code :

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

1
2
3
4
5
6
7
8
9
10
...
'n : nb d'enfants
n= 0
for i = 1 to 5 
if len(nz(me.controls("enfant" & i")) > 0 then
' si la longueur de la valeur du controle enfanti est > 0
n= n+1
end if
next i

Salut

**VieuxGeek** · 20/04/2022, 12h07

Merciiiii micniv

Je vais de ce pas mettre cela en application....

Bonne journée.
Je met résolu.

**VieuxGeek** · 20/04/2022, 17h28

Re-bonjour micniv

Trés bonne formule mais il y a un bug ...
Access me dit qu'il manque une parenthèse ou séparation sur la ligne :

if len(nz(me.controls("enfant" & i")) > 0 then

et je n'arrive pas à débugger ... Un conseil ou une correction SVP
Bonne soirée et merci pour ton aide.
Bernard

**tee_grandbois** · 20/04/2022, 18h05

bonsoir,
1 caractère en trop et 3 manquants, voici la correction:

Code :

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

if len(nz(me.controls("enfant" & i), 0)) > 0 then

**VieuxGeek** · 20/04/2022, 18h16

Encore un BUG: sur la variable I
Mais peut-être devrai-je la déclarer quelque part ???
Je sais suis NUL en VBA

Le message d'erreur :

Variable requise, impossible de l'affecter à cette expression

Mais merci de ton aide

Bernard

**tee_grandbois** · 20/04/2022, 20h24

Encore un BUG: sur la variable I
Mais peut-être devrai-je la déclarer quelque part ???

oui, de toute façon, mais il faudrait quand même poster ton code complet et la ligne en erreur

**hyperion13** · 21/04/2022, 06h26

La question surtout est de savoir si les textboxes sont bien nommées enfant1, enfant2, etc.
Et pour un 6ème enfant, vous faites comment ?

**VieuxGeek** · 21/04/2022, 08h26

NBonjour Tee_grandbois, merci pour ton aide...

Voici tout le code pour (J'espère) afficher le nombre d'enfants sur Click... Mais dans mon formulaire.
Sachant que mes CINQ champs se nomment :
[Enfant1], [Enfants2], [Enfant3], [Enfants4], [Enfant5]

Le bug est sur la ligne : For I = 1 To 5
La variable I n'est pas déclarée, mais ou ??? la déclarer ???
Suis vraiment nul en VBA, mais je sais parfaitement Copier/Coller tout ce que l'on m'explique...

Donc voici ce code.

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 Texte565_Click()
 
'n : nb d'enfants
N = 0
For I = 1 To 5
 
If Len(Nz(Me.Controls("enfant" & I), 0)) > 0 Then
' si la longueur de la valeur du controle enfanti est > 0
 
N = N + 1
End If
Next I
 
End Sub

Merci pour ton aide Amicale.
Bernard

**VieuxGeek** · 21/04/2022, 08h33

Envoyé par hyperion13

La question surtout est de savoir si les textboxes sont bien nommées enfant1, enfant2, etc.
Et pour un 6ème enfant, vous faites comment ?

Bonjour Hyperion13
Je n'avais pas vu ton message.
Le sixième enfant si
enfants et bien on en parle pas...
Les familles de plus de 5 enfants sont rare aujourd'hui et mon appli contient très peu de vieux couples.

D'autre part mon appli n'avait plus assez de places pour rajouter des champs sur l'interface.
Car je dois tenir compte de l'écran sur lequel je bosse (Un PC Studio2 de chez Microsoft) et de l'écran de mon portable qui est plus petit (Un surface PRO de chez Microsoft).

Voilà ta réponse.
Bonne journée et merciiiiiiiiiiiii

**micniv** · 21/04/2022, 11h44

if len(nz(me.controls("enfant" & i), 0)) > 0 then

Alors petite correction

Code :

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

if len(nz(me.controls("enfant" & i))) > 0 then

**tee_grandbois** · 21/04/2022, 14h00

bonjour,

Sachant que mes CINQ champs se nomment :
[Enfant1], [Enfants2], [Enfant3], [Enfants4], [Enfant5]

est-ce une faute de saisie ou y a t-il vraiment un s à Enfants2 et Enfants4 ?

**tee_grandbois** · 21/04/2022, 14h13

Le sixième enfant si
enfants et bien on en parle pas...
Les familles de plus de 5 enfants sont rare aujourd'hui et mon appli contient très peu de vieux couples.

Tu n'a jamais entendu parler de la la série documentaire "Familles nombreuses: la vie en XXL" à la télé ?

Car, à moins que ce soit bidon comme bon nombre de séries de télé-réalité, on ne peut pas dire que ce sont des couples âgés (en attendant que tu nous donnes ta définition de "vieux couples")

**VieuxGeek** · 21/04/2022, 17h49

Tee_grandbois d'abord merciiiiiiii pour ton aide amicale.

Pour enfant effectivement il ni a pas de S.
L'âge sans doute en est la cause...

Et pas de famille nombreuse de plus de CINQ Enfants.

Comment déclarer ma variable I ??????????
j'ai mis en dessus du code VBA : Dim I As Byte

Mais cela ne fonctionne pas hélas...
Dans l'espoir que tu me guide pour trouver cela ?
Amicalement et bonne soirée.
Bernard

**micniv** · 21/04/2022, 18h17

Code :

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

dim i as integer, n as integer

**tee_grandbois** · 21/04/2022, 18h19

j'ai mis en dessus du code VBA : Dim I As Byte

où çà, exactement la déclaration ?

Mais cela ne fonctionne pas hélas...

c'est toujours la même erreur ?
Byte est correct puisque compris entre 0 et 255

**tee_grandbois** · 21/04/2022, 18h29

autre chose, as-tu corrigé ma "bêtise" ?
incorrect:

Code :

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

if len(nz(me.controls("enfant" & i), 0)) > 0 then

correct (merci, micniv):

Code :

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

if len(nz(me.controls("enfant" & i))) > 0 then

**VieuxGeek** · 21/04/2022, 18h30

Voila mon code sur un champ (donné et rectifié par ce FORUM d'entr'aide Merveilleux)
J'ai déclaré ma variable ici ligne 3...
Le but et de compter pour chaque fiche le nombre d'enfants (Jusqu'à 5 pas plus)
Enfant1, enfant2, etc...
Si champ vide Zéro ou encore mieux RIEN
Si plusieurs champs remplit = Nombre de champs ce qui me marquera un chiffre qui sera le Nb d'enfant sur cette fiche.
Me suis bien fait comprendre car suis NUL en VBA (entre autre chose me dit ma femme!!!!)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Texte565_Click()
 
Dim I As Integer, N As Integer
'n : nb d'enfants
N = 0
For I = 1 To 5
 
    if len(nz(me.controls("enfant" & i))) > 0 then
 
        ' si la longueur de la valeur du controle enfanti est > 0
 
        N = N + 1
    End If
Next I
 
End Sub

Additionner UNIQUEMENT les champs NON VIDE [AC-2019]

Access

Discussions similaires

Partager

Partager