Error with no value

[Jason]

I am trying to pull the value of the subform onto the main form which works
OK when there are records on the subform. But, if no records I get:

Run-time error '-2147352567 (80020009)':
You entered an expression that has no value.
The expression may refer to an object that has no value, such as a form, or
a label control.

sub Form_OnCurrent:
msgbox FormNameSubform!TotalSum
end sub

control of text field:
=FormNameSubform!TotalSum

the text field shows #error which is why i entered the test onCurrent event.
I haven't had this error before but I suspect that is because those sub
forms have allowadditions = true wheras this subform has allowadditions =
false.

 

[Jeanette Cunningham]

Hi Jason,
see if the code and explanations at
http://allenbrowne.com/RecordCountError.html

help with your problem.


Jeanette Cunningham MS Access MVP -- Melbourne Victoria Australia

 

[Jason]

So I would use Formhasdata("FormName!FormNameSubform") to call the function.

I think it is easier to stick with what I have come up with after posting
question:
created query where the SQL is similar to that of the subform then all I
need is:
=nz(Dsum("Value","SubFormQuery","QueryID = " & ID))