Let's make sure your code is running and get an idea of what it's doing. We'll do this by interspersing some WriteLn calls that will pop up a little window with some information. Here is your code with the WriteLns in it.

SubRoutine CalculateParts() 

Var vCount as Int 
Var vTotal as Double 
Var vRecord as Int 

WriteLn("STARTING CALC")

vRecord = 1 //Record variable 

vCount = @FormResultSetTotal("Repair1") 

WriteLn("GOT " + @Str(vCount) + " RECORDS")
If vCount > 0 Then 
{ 
While vRecord <= vCount 
{ 
//Loop through subrecords adding up totals. 
vTotal = vTotal + @TM(@FormFieldValue("Repair1", "Parts", vRecord)) 
WriteLn("vTotal: " + @Str(vTotal))
vRecord = vRecord + 1 
} 

//Place values in elements on form 
TotalRepairs = vTotal 
} 
WriteLn("DONE CALC")
End SubRoutine


Run this on a record.

If you don't ever see "STARTING CALC" then you are never running the Subroutine. Make sure you are actually calling it someplace.

If GOT # RECORDS always says 0, your form name is wrong.

If vTotal is always 0, you don't have an element called Parts in the subform.

Let us know what happens.

Hammer wrote on Mar 5^th, 2007 at 10:49pm:


Good morning:)

Here is a link to various screenshots of my databases (Inventory and Repair) and screenshots of the Program Editor window (Code tests without errors, btw)...

http://pg.photos.yahoo.com/ph/cspedden/album?.dir=/e5c3scd&.src=ph

I've run in preview mode, saved it, reconciled it, run multiple search/update, run in add data mode...I'm not getting a WriteLn window popping up or any data in my TotalRepairs field.    I'm obviously missing something that's preventing code from running properly, even though it's error free when I test it.

An double shot of espresso is in order me thinks...

I am finally getting to work with the original code posted by Bob Hansen.  When I test the code, I get the following error:

Error while parsing module "  GLOBAL CODE :srCalculateTotalCost":
Symbol expected [}], symbol found [Identifier].
Line 29, position 17: [Identifier:RunningTotal]
  RunningTotal =  vRunningTotal
                       ^

Any suggestions?

Thanks

Thanks.

That's what I thought it was telling me.  However, I am not very good with programming.  I could not see a missing curly brace.  Here is my code :

SubRoutine srCalculateTotalCost()

/*
Purpose is to calculate a Total for parent form and RunningTotal for subform
Structure is Parent Form name is frmParent, subform with natural link is named sfrmChild.
Currency element on frmParent, named TotalCost to show total of Cost for all lines in subform.
Currenty element on sfrmChild named Cost to show Cost for that individual record.
Unbound element on sfrmChild, named RunningTotal, ReadOnly, to show running total for Costs for all records in the subform.
Defined as subroutine so can be called on sfrmCost-OnExitElement and on sfrmCost-OnFormExit, 
Is also defined and called on frmParent-OnFormEntry.
*/
//==============================================

var vCount As Int            //Count number of records in subForm
var vLoop As Int            //While loop counter
var vTotal As Double            //Total Cost for all records in subForm
var vRunningTotal As Double      //Running total of Cost

If @FormIsStandalone() = 0 Then {

     vTotal = 0
     vRunningTotal = 0
     vCount = @FormResultSetTotal("sfrmChild")
     
     vLoop = 1
     While vLoop <= vCount {
           vTotal +=    @ToNumber(@FormFieldValue("sfrmChild","Cost",vLoop))
           vRunningTotal = vTotal
           RunningTotal = vRunningTotal
           vLoop += 1
           }

     If vTotal > 0 Then {
           FormFieldValue("frmParent","TotalCost",0,vTotal)
           }
     }

End SubRoutine
//======================================

Hold on.....

I just pasted my code from the forum into a test database and I am getting the same error.  Let me find out what is wrong.

Again, the code I submitted was an edited version of a working application, I must have missed something.  As Erika points out, it would seem to a missing or extra } or similar item.    Stay tuned......

Edited......
RunningTotal is an element on sfrmChild, it does not exist on frmParent.

So this needs to be modified, by adding an invisible RunningTotal element to frmParent, or making the line in code a conditional line..........    Stay tuned......

Edited again.....
GOT IT !
As noted above the code is referencing a missing element.  At one time I was calling the function from both frmParent and frmChild.  I forgot to remove the call from frmParent in my instructions.

THE FIX:
Do not call this function from frmParent.  Only call from elements on sfrmChild.

I have also modified my original posting to include that element in the set up instructions.

Thanks CapitalG for pointing out the problem.
Sorry about any confusion.   

Bob_Hansen wrote on Mar 8^th, 2007 at 9:30pm:


No need to apologize to me Bob...it's refreshing to have someone confusing me other than myself  

charliebrown wrote on Mar 14^th, 2007 at 5:33pm:


The line you show above will do something if you enter it as a switch in a mergefield in a Microsoft Word document. Sesame, however, considers it to be gobbledygook! (That's the technical term.)

Get rid of that line and just format your element as Money with 2 decimal places.

Hammer wrote on Mar 14^th, 2007 at 5:52pm:



As ordered...garbage in, garbage out  

And of course, when everything is as it should be...wonderous things happen    Thank you Erika, Bob and everyone... 

http://us.a2.yahoofs.com/users/456dd110z2ef31adb/e5c3scd/__sr_/df5bscd.jpgphQJG....

http://pg.photos.yahoo.com/ph/cspedden/detail?.dir=e5c3scd&.dnm=df5bscd.jpg&.src...