<div>
Try using this DSum formula in the total text box (Text6) on your Invoice Form:<br />
<br />
=DSum(&quot;Price&quot;,&quot;Euipment Table&quot;,&quot;InvoiceID= &quot;&nbsp;&amp; [InvoiceID])<br />
<br />
Flyster
</div>


<div>
In your report, add a text box and use this formula as the control source:<br />
<br />
=Format(DSum(&quot;Price&quot;,&quot;Euip<wbr />ment Table&quot;,&quot;InvoiceID= &quot;&nbsp;&amp; [InvoiceID]),&quot;$0,000.00&quot;)
</div>


<div>
that works. but it gives error on new record until put something in. Then it doesn't show total until you close form and reopen it.
</div>


<div>
Ok the code for auto update did not work did I do something wrong? I did change the Dsum To Sum. Here is my changes in file<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/12_w49/885635/Invoicenew-.zip" target="_blank" class="file-inline" title="Invoice new (89 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Invoicenew-.zip</a>
</div>


Invoicenew-.zip

<div>
DSum will be too slow. It's much faster to recalculate from within the subform than waiting for the main form to discover that something has changed.<br />
<br />
/gustav
</div>


<div>
Sorry I have got it work right in subform show in the main form yet. I got it work in report no problem when I print. when I go to add new record it shows #error until some data is imputed the it is blank until I close form then reopen it. If I click my command button to print (lunching Invoice report) it shows total. But when I come back to form no total until I close form and reopen it.
</div>


<div>
If you use DSum, you will have to requery the field on the main form for any change of the amount in the subform. Sum may work but with a delay. Been there, done that. It is just to slow for busy users.<br />
<br />
/gustav
</div>


<div>
Here is a sample using a non VBA approach. For the Invoice Form, the totals are obtained from the text box you placed in the subform. For the report, another price textbox was added and set to running total over group (Visible=False)<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/12_w49/885669/Invoice-.mdb" target="_blank" class="file-inline" title="Using Sum on SubForm and added text box in report (364 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Invoice-.mdb</a>
</div>


Using Sum on SubForm and added text box in report

Invoice-.mdb

<div>
I look at yours no sure where you are going with that, sorry. Look at mine now (in the form and other places) and see what it does when you add new record and before and after input of data and also click print command button. Go ahead and try all command buttons.<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/12_w49/885710/Invoice--new2.zip" target="_blank" class="file-inline" title="invoice new 2 (90 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Invoice--new2.zip</a>
</div>


Invoice--new2.zip

<div>
Your form has been modified to work.<br />
<br />
/gustav<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/12_w49/885718/Invoice-works-.zip" target="_blank" class="file-inline" title="Invoice form (32 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Invoice-works-.zip</a>
</div>


Invoice-works-.zip

<div>
sorry forget that one try this one.<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/12_w49/885719/Invoice-new-3.zip" target="_blank" class="file-inline" title="invoice new 3 (103 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Invoice-new-3.zip</a>
</div>


Invoice-new-3.zip

<div>
Thank you gustav ! once again you blow me away. so the code was<br />
Private Sub Form_Current()<br />
<br />
&nbsp; &nbsp; Call Me.Euipment_Table_subform.<wbr />Form.Calcu<wbr />lateTotal<br />
&nbsp; &nbsp; <br />
End Sub<br />
<br />
was that the fix on the form?
</div>


<div>
I just copied and pasted the code i posted previously, and adjusted to the name of your amount-field (Price).<br />
<br />
And then I added the call from the main form which I had forgot. It sets the value when switching invoice ID.<br />
<br />
/gustav
</div>


<div>
how di you get it to go to the unbound?
</div>


<div>
sorry bad typing how did you get it on the unbound txt box on the form?
</div>


<div>
was this it on the subform<br />
<br />
Private Sub Form_AfterDelConfirm(Statu<wbr />s As Integer)<br />
<br />
&nbsp; &nbsp; Call CalculateTotal<br />
<br />
End Sub<br />
<br />
Private Sub Form_AfterUpdate()<br />
<br />
&nbsp; &nbsp; Call CalculateTotal<br />
<br />
End Sub<br />
<br />
Public Sub CalculateTotal()<br />
<br />
&nbsp; &nbsp; Dim rst As DAO.Recordset<br />
&nbsp; &nbsp; Dim LineSum As Currency<br />
<br />
&nbsp; &nbsp; LineSum = 0<br />
&nbsp; &nbsp; Set rst = Me.RecordsetClone<br />
&nbsp; &nbsp; If rst.RecordCount &gt;&nbsp;0 Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; rst.MoveFirst<br />
&nbsp; &nbsp; &nbsp; &nbsp; Do Until rst.EOF<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; LineSum = LineSum + Nz(rst!Price.Value, 0)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; rst.MoveNext<br />
&nbsp; &nbsp; &nbsp; &nbsp; Loop<br />
&nbsp; &nbsp; End If<br />
&nbsp; &nbsp; rst.Close<br />
<br />
&nbsp; &nbsp; Me.Parent!txtTotal.Value = LineSum<br />
<br />
&nbsp; &nbsp; Set rst = Nothing<br />
<br />
End Sub
</div>


<div>
No, that's the code I added.<br />
From here:<br />
<br />
<a href="https://www.experts-exchange.com/questions/28571831/Help-with-total-from-subform-to-form-and-report.html?anchorAnswerId=40473341#a40473341" rel="ugc">https://www.experts-exchange.com/questions/28571831/Help-with-total-from-subform-to-form-and-report.html?anchorAnswerId=40473341#a40473341</a><br />
<br />
/gustav
</div>


<div>
Well gustav thank you again! Maybe someday I will learn enough that wont have bother you all.
</div>


<div>
You are welcome!<br />
<br />
/gustav
</div>


<div>
<div class="content wysiwyg-content">
I have a Invoice database that I need put a Sum of Price from a subform and put on form and also on a report for printing the same thing on form. Here is what I started with Invoiceold and Invoice is the new one. Please look at what I am doing so you understand my thinking.<br />
<a href="https://filedb.experts-exchange.com/incoming/2014/11_w49/885590/Invoice.zip" target="_blank" class="file-inline" title="Invoices databases (112 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Invoice.zip</a>
</div>
</div>


Invoice.zip

I have a Invoice database that I need put a Sum of Price from a subform and put on form and also on a report for printing the same thing on form. Here is what I started with Invoiceold and Invoice is the new one. Please look at what I am doing so you understand my thinking.

Help with total from subform to form and report

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.