Discussion :

[francishop]

Bonjour,

Lorsqu'il nous faut reprendre des données sur le formulaire principal depuis un sous-formulaire, il faut accepter qu'il nous est imposé de prévoir :

1. Le calcul dans le sous-formulaire peut être => Erreur
2. Ce sous-formulaire peut être vide.

Le calcul du sous formulaire doit obligatoirement indiquer une valeur :

Code :

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

=VraiFaux(IsError([TonChampAsoucis]);0;[TonChampAsoucis])

Ceci vient en + de TonChampAsoucis et va s'appeler => TonChampAsoucisB
Le formulaire principale ne connait que => TonChampAsoucisB

Pour savoir si le sous formulaire est vide il nous est possible de recourir à diverses solutions. Soit :
=> Me.MonSousFormulaire.Form.RecordsetClone.RecordCount > 0
Ou
=> DCount("*", "table ou requête source du sous-formulaire") > 0

Diverses discussions se retrouvent sur le sujet.

Dont une...

Cordialement.

[marot_r]

Ok, si le iif(isError()) ne marche pas (au passage le 'iif' qui devient vrai/faux c'est normal, Access traduit les fonctions en français).

Il ne te reste que le VBA.

essaye cela : dans ton sous formulaire sur l'événement OnLoad (Au chargement) ou sur OnOpen (Sur ouverture).

Code :

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

1
2
3
4
5
if me.recordset.recordcount=0 then
     me.NomTonChampTotal.ControlSource="=0"
   else
     me.NomTonChampTotal.ControlSource="=Sum([Total Acompte])"
end if

il faudra peut-être aussi ajouter un me.recalc ou un me.refresh après.

A+

[clickandgo]

Merci pour ta réponse, en toute logique ça devrait marcher !! Je te tiens au courant...

Bon week end

[clickandgo]

Suite :

Marche pas !!!

Ta méthode marche car le total s'effectue bien tant qu'il y a des lignes dans le SF, mais dès qu'il n'y a aucune ligne ça marque tjs erreur.
D'autre part si je mets un recalc, une boucle se met en place et finit par planter Access (2010).
C'est pourtant classique de cacher des champs dans une application !

Que faire ?.

[francishop]

Bonjour,

Que faire ?.

Une solution possible : Envoyer une base avec les Forms incriminés.

Cordialement.

[clickandgo]

J'ai trouvé une solution !!!!

Comme le calcul ne pouvait se faire car le champ contenu dans l'expression n'était pas toujours actif dans le SF, j'ai utilisé la fonction SomDom précédée d'un NZ avec 0, tout marche impec ! Plus aucun problème !!!

Merci à tous en tous cas !