Discussion :

[CrasherSEP]

Bonjour,

Je m'explique... :-)

J'ai un formulaire relié à une requête qui m'affiche différentes lignes, jusque-là pas de problème. Dans le résultat de cette requête il y un champ avec un nombre.

Dans l'en-tête du formulaire, j'ai un code qui m'affiche dans une zone de texte, la somme des nombres de ce champ. AUCUN PROBLEME !

Si aucun résultat, le champ devrait afficher "non", mais rien se s'affiche ! Pourquoi ?

Code :

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

=VraiFaux(EstNull([Nombre_dheures_supp]);"non";Somme([Nombre_dheures_supp]))

Il m'est donc impossible de récupérer cette valeur dans un autre morceau de code, car si la valeur est nulle, access se plante ? même si dans le code j'utilise la fonction EstNull ????

DONC :

• Une zone de texte qui m'affiche la somme d'un champ (heures en décimales)
• Une zone de texte qui prend cette somme d'heures en décimales et qui me l'affiche en heure (format heure)

RESULTATS :

Tout fonctionne sauf si pas de résultat lors de la somme...

Code :

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

1
2
3
4
5
6
7
8
If IsError(Nombre_dheures_supp.Value) Then Me.Texte22.Value = "0": GoTo finished2
 
   'Pour l'exemple
    Dim D As Single, Resultat, e
    D = Me.Texte13.Value
    e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0"
    Me.Texte22.Value = CStr(Int(D)) & ":" & Mid(e, 3, 2)
finished2:

Pourriez-vous m'aider ?

Ps : j'ai aussi essayé avec IsError...

[jimbolion]

CrasherSEP

As tu essayé nz ?

http://office.microsoft.com/fr-fr/ac...001228890.aspx

JimBoLion

[Robert1957]

Bonjour CrasherSEP, Jean-Marie,

Petite précision sur la réponse de Jean-Marie, je mettrais le Nz en amont, c'est à dire dans la requête source de ton formulaire en restant dans le numérique.

Code :

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

Nz(TonChamp,0)

Bonne journée

[CrasherSEP]

Ne fonctionne pas...

Voici exactement mes codes et tables, requêtes/

TABLE
=====
CHAMP1 | CHAMP2
=================
1 | 12,5
2 | 4
1 | 3,5
3 | 0,5


REQUETE
=======
La requête affiche les lignes sur choix de CHAMP1, donc mes résultats peuvent êtres :

Si CHAMP1 = 1 alors deux lignes avec CHAMP2 : 12,5 & 3,5
Si CHAMP1 = 2 alors une ligne avec CHAMP2 : 4
Si CHAMP1 = 3 alors une ligne avec CHAMP2 : 0,5
Si CHAMP1 = 4 alors pas de ligne

FORMULAIRE
=========

Un formulaire qui affiche le résultat de la requête précédente, avec en en-tête une zone de texte et c'est ici que cela se corse...

ZONE DE TEXTE
============
Avec le code suivant sur cette zone de texte :

Code :

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

=Somme([Nombre_dheures_supp])

Cela affiche le total des CHAMP2, donc :

Si CHAMP1 = 1 alors ZONE DE TEXTE = 12,5 + 3,5 = 16
Si CHAMP1 = 2 alors ZONE DE TEXTE = 4
Si CHAMP1 = 3 alors ZONE DE TEXTE = 0,5
Si CHAMP1 = 4 alors ZONE DE TEXTE = "vide, null... ??????"

Et cela fonctionne très bien, maintenant mon problème est si je veux récupérer la valeur de la zone de texte avec un CHAMP1 = 4 :

La valeur du CHAMP2 étant des heures en décimales, j'aimerais les transformer en heure avec le code suivant (il fonctionne très bien si CHAMP1 = 1 ou 2 ou 3)

• Me.Texte13.Value = ZONE DE TEXTE avec le total en décimale
• Me.Texte22.Value = ZONE DE TEXTE2 avec le résultats de la formule suivante

Code :

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

1
2
3
4
Dim D As Single, Resultat, e
    D = Me.Texte13.Value (ZONE DE TEXTE)
    e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0"
    Me.Texte22.Value = CStr(Int(D)) & ":" & Mid(e, 3, 2)

RESULTATS ET OBSERVATIONS
=======================
Le code précédent étant sur le clic de la ZONE DE TEXTE2 (Me.Texte22.Value),

Si la ZONE DE TEXTE contient une valeur , donc un total, lorsque je clic sur la ZONE DE TEXTE2, cela m'affiche le résultat en heure, cool :-)

Si la ZONE DE TEXTE ne contient rien, donc pas de total vu qu'il n'y a pas d'enregistrement (exemple avec CHAMP1 = 4), lorsque je clic sur la ZONE DE TEXTE2, access se plante !

J'ai donc essayé plusieurs choses :

Soit modifier le code de la ZONE DE TEXTE pour que si il n'y a pas d'enregistrement cela affiche 0, mais je n'y arrive pas, ni avec Nz, IsNull, IsError...

Code :

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

=VraiFaux(EstNull([Nombre_dheures_supp]);0;Somme([Nombre_dheures_supp]))

Soit en modifiant le code de la ZONE DE TEXTE2, mais là aussi aucun résultat...

Code :

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

1
2
3
4
5
6
7
8
If IsNull(Nombre_dheures_supp.Value) Then Me.Texte22.Value = "0": GoTo finished2
 
   'Pour l'exemple
    Dim D As Single, Resultat, e
    D = Me.Texte13.Value
    e = CStr(Round((D - Int(D)) / 100 * 60, 2)) & "0"
    Me.Texte22.Value = CStr(Int(D)) & ":" & Mid(e, 3, 2)
finished2:

Je sèche... :-( snif...

[Gado2600]

Change :

Code :

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

=VraiFaux(EstNull([Nombre_dheures_supp]);0;Somme([Nombre_dheures_supp]))

par

Code :

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

=Nz(Somme([Nombre_dheures_supp]);0)

[CrasherSEP]

Merci, mais non...

Le code :

Code :

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

=Nz(Somme([Nombre_dheures_supp]);0)

Ne m'affiche pas 0 si pas de résultat...

Cela pourrait sembler logique étant donné que si il n'y a pas de résultat, le champ [Nombre_dheures_supp] n'existe pas..., non ?

Ps : Il faudrait arriver à lui faire comprendre que si il n'y a pas d'enregistrement il affiche 0 ou... Ce qui est étrange, c'est qu'avec IsNull, cela ne fonctionne pas !

[CrasherSEP]

JE VIENS DE TROUVER....

Si dans les propriétés du formulaire l'option : "Ajout autorisé" est sur Non, cela ne fonctionne pas, vu qu'aucune ligne n'est présente, donc la vérification ne se fait pas, car il ne trouve pas le champ !

Il m'a suffit de mettre cette option sur "Oui", et TOUTES les formules fonctionnent !? Car, même si il n'y a aucun résultat, il y a quand même une ligne vide pour pouvoir encoder...

C'est dommage, mais bon...

Ps : si vous trouvez mieux...

[jimbolion]

CrasherSEP,

J'ai beau lire et relire ton message, j'ai du mal à comprendre.

Ou se trouve cette valeur CHAMP1 = 4 puisque non présente dans ton exemple dans la table1. Cette valeur se recoupe nécessairement avec une valeur dont le contenu est égal à 4 (une jointure je suppose) ?

Donc si je reprends ton exemple :

TABLE
=====
CHAMP1 | CHAMP2
=================
1 | 12,5
2 | 4
1 | 3,5
3 | 0,5

TABLE2
CHAMP1 |
=======
1
2
3
4

La jointure te renvoie donc

1 | 12,5
2 | 4
1 | 3,5
3 | 0,5
4 | Null

Ai je bien compris ton problème ?

JimBoLion

Je n'ai malheureusement pas de version access avec moi ce soir mais si j'ai bien compris ton problème je devrais pouvoir t'apporter une solution demain !

N'hésites pas à me faire parvenir un exemple avec ta première requête ainsi que la deuxième (cumul)

JimBoLion

[CrasherSEP]

Désolé, j'ai effectivement omis un petit détail...

Le CHAMP1 de la TABLE1 est reliée à une TABLE2 contenant des noms avec ID (1,2,3,4,5,6,7,8,.....)

La TABLE1 contient donc deux champs sur une ligne, un nom (ID) et un nombre...

Donc, lorsque je lance mon formulaire, il me demande le nom de la personne, donc je tape, 1,2,3,4,5,6....

Mais dans mon cas présent, il n'y a pas encore de ligne avec l'id 4, donc problème... car pas d'enregistrement,

Mais, j'ai trouvé une parade (vois plus haut) :-)

[jimbolion]

Crasher SEP,

Oui j'ai bien compris que tu avais trouvé une solution à ton problème mais je te confirme que la fonction Nz fonctionne avec une jointure lorsque les enregistrements de la table originede coïncident pas avec les valeurs de la table destination.

Cette requête reprend mon exemple précédent :

Code :

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

SELECT T2.Champ1, Nz([Champ2],0) AS Montant FROM T2 LEFT JOIN T1 ON T2.Champ1 = T1.Champ1;

Cette jointure reste valable dans ton cas (information passée à partir de ton formulaire).

Juste pour être puriste...

JimboLion