Discussion :

[DurDur]

Bonjour,

Je rencontre un problème sur une base de données qui fonctionnait bien jusqu'à maintenant (les sauvegardes ultérieures et successives font de même).

Qu'est ce qu'il a bien pu se passer ?

Je dois faire la somme des versements Epargne par adhérent.

J'ai créé une requête liant la table ADHERENT et EPARGNE.

Dans mon formulaire, un contrôle TotalEPARGNE ayant pour source:

Code :

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

=somme(MontantEPARGNE)

Si le champ MontantEPARGNE n'est pas vide, c'est OK.

Si le champ est vide, je n'ai pas de résultat.

Donc j'ai crée dans ma requête une nouvelle colonne M_Montant avec:

Code :

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

NZ(MontantEPARGNE;0)

Cette colonne comporte bien des Zéros lorsque le champ MontantEPARGNE correspondant est vide, mais cela ne change rien dans mon contrôle TotalEPARGNE qui n'affiche toujours rien quand il somme des Zéros.
Pour un traitement ultérieur, j'ai besoin que ce contrôle ne soit pas vide.
J'ai donc essayé :

Code :

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

NZ(somme(M_Montant);0)

sans changement, le contrôle TotalEPARGNE est toujours vide.

Si quelqu'un peut m'apporter de l'aide, il sera le bienvenu.

JCB57

[micniv]

Bonjour,
mes propositions :
dans les fonctions utilisées dans les requetes, il est recommandé de mettre des [] autour des champs arguments
donc essaie :

Code :

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

1
2
 
somme([M_Montant])

sinon

Code :

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

somme(NZ([MontantEPARGNE];0))

Hopefully

[DurDur]

Bonjour,

Merci de cette réponse.

Les crochets ont été ajoutés automatiquement et sans nouveau résultat.

JCB57

[micniv]

Pour plus d'aide, donne nous plus d'infos :
description des colonnes dans les 2 tables en jeu
et quelle est ta requête actuelle (en sql) ?

A suivre

[DurDur]

Bonjour,

Pour faciliter la recherche de l'erreur et aussi la tester sur un autre ordinateur, ci-joint ma base.

Comme cette erreur survient tout à coup et aussi sur les fichiers ultérieurs sauvegardés, est ce que cela ne proviendrait-il pas d'une altération d'ACCESS (référence manquante par exemple)?

JCB

[nico84]

Bonjour,

Nz(somme()) renvoie 0 si l'un des nombres est nul, c'est somme(nz()) qui renvoie la bonne réponse comme l'indique micniv !

[DurDur]

Bonjour,

Déjà essayé et pas d'amélioration.

Pouvez vous tester ma base mise en piéce jointe sur la réponse précèdente?

Merci.

JCB57

[francishop]

Bonjour,

Si pas d'épargne ► Pas de données dans le sous formulaire.

Pour faire simple :

Code :

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

1
2
3
Private Sub Form_Current()
    Me.sfrm_EPARGNE.Visible = (Me.sfrm_EPARGNE.Form.RecordsetClone.RecordCount > 0)
End Sub

Cordialement.

[DurDur]

Je reviens sur ce problème.

J'ai tout repris à zéro.

- Suppression dans la requête du nouveau champs "M_MONTANT" complété automatiquement par :

Code :

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

=nz([EpargneMONTANT];0)

.

- dans le sfr_Epargne, le champ de contrôle de "EpargneTOTAL" est modifié, au lieu de

Code :

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

=nz(somme([epargnemontantl]);0)

remplacé par

Code :

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

=Somme([epargnemontant])

, donc dans l'absence d'une valeur, il reste vide.

- dans le frm_adherent, le champ de contrôle "TotalEPARGNE" est maintenant complété par :

Code :

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

=NullToZero([sfrm_EPARGNE].[Formulaire]![EPARGNEtotal])

et ça tourne.

La fonction "NulltoZero" provient d'ici, mais le voici pour ceux que ça interesse.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function NullToZero(anyValue As Variant) As Variant
On Error GoTo error
    If IsNull(anyValue) Then
        NullToZero = 0
    Else
        NullToZero = anyValue
    End If
Exit Function
error:
NullToZero = 0
End Function

Donc maintenant ça tourne à nouveau, mais je me demande si ça provient bien de ces modifications qu'il me semble avoir essayées précédemment.

Merci à tous pour votre aide.

JC57