Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 21/07/2011, 17h54   #1
Invité régulier
 
Homme
Technicien informatique
Inscription : mai 2011
Messages : 29
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Suisse

Informations professionnelles :
Activité : Technicien informatique
Secteur : Industrie Pharmaceutique

Informations forums :
Inscription : mai 2011
Messages : 29
Points : 5
Points : 5
Par défaut #erreur dans un état

Bonjour,

J'ai pas mal chercher à essayer du régler cette erreur mais je ne trouve pas la solution.

J'ai un état avec à l'intérieur cet état un sous état. Dans le pied d'état du sous état j'ai un champ calculé. Celui-ci fait la somme d'un champ.

Comme il peut arriver qu'il n'y a pas d'enregistrement dans ce champ [prix], j'ai l'erreur #erreur dans mon champ calculé.

j'ai essayé de faire un test vraifaux mais rien toujours la même erreur.

La valeur par défaut du champ est bien renseigné à 0 dans la table.


Merci
pasb71 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/07/2011, 18h55   #2
Rédacteur

 
Avatar de ClaudeLELOUP
 
Homme Claude LELOUP
Chercheur de loisirs (ayant trouvé !)
Inscription : novembre 2006
Messages : 5 242
Détails du profil
Informations personnelles :
Nom : Homme Claude LELOUP
Âge : 66
Localisation : Belgique

Informations professionnelles :
Activité : Chercheur de loisirs (ayant trouvé !)
Secteur : Finance

Informations forums :
Inscription : novembre 2006
Messages : 5 242
Points : 11 040
Points : 11 040
Bonjour,

Place cette fonction dans un module :

Code :
1
2
3
4
5
6
7
8
9
10
11
Function ErreurToZero(anyValue As Variant) As Variant
On Error GoTo error
    If IsNull(anyValue) Then
        ErreurToZero = 0
    Else
        ErreurToZero = anyValue
    End If
Exit Function
error:
ErreurToZero = 0
End Function
Et pour construire ton total, au lieu de A + B + ... ,
écris plutôt : ErreurToZero(A) + ErreurToZero(B) + ...

Ainsi la valeur éventuellement absente sera remplacée par zéro.

N. B. Cette fonction diffère de Nz() qui remplace la valeur "Null" par autre chose. Ici, on remplace une valeur absente par zéro.
ClaudeLELOUP est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/07/2011, 20h08   #3
Invité régulier
 
Homme
Technicien informatique
Inscription : mai 2011
Messages : 29
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Suisse

Informations professionnelles :
Activité : Technicien informatique
Secteur : Industrie Pharmaceutique

Informations forums :
Inscription : mai 2011
Messages : 29
Points : 5
Points : 5
super merci

tout fonctionne

bonne soirée
pasb71 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h05.


 
 
 
 
Partenaires

Hébergement Web